①使用WinRAR或WinZIP软件把报告文件压缩
②把报告文件后缀名改成“rar”或“zip”
③把报告文件里的图像全部删除
④适当调小图像素材的分辨率后，再替换文件中的原图像
⑤把报告文件另存为txt文本文件
B . 
C . 
D . 
Private Sub Command1_Click()
Dim s As Integer, i As Integer
s = 0
For i = 1 To 1000
s = s + i
Next i
Print s
End Sub
运行时，出错信息如下图所示，导致此错误的语句或原因是（ ）。
Dim a As String, b As String
a = InputBox("输入a")
b = InputBox("输入b")
If a < b Then
a = a + b
Else
b = b + a
End If
Print a + b
依次输入32，123，该程序的运用结果是（ ）。
| a[1] | a[2] | a[3] | a[4] | a[5] | a[6] | a[7] |
| 188 | 177 | 175 | 172 | 168 | 166 | 155 |
| a[1] | a[2] | a[3] | a[4] | a[5] | a[6] | a[7] | a[8] |
| 168 | 162 | 177 | 155 | 179 | 166 | 191 | 188 |
数组a
|
a[1] |
a[2] |
a[3] |
a[4] |
a[5] |
a[6] |
a[7] |
a[8] |
|
2 |
5 |
4 |
1 |
6 |
3 |
8 |
7 |
数组b
|
b[1] |
b[2] |
b[3] |
b[4] |
b[5] |
b[6] |
b[7] |
B[8] |
|
1 |
4 |
2 |
3 |
7 |
5 |
9 |
6 |
Dim a(1 To 5) As Integer, i As Integer, c As Integer
a(1) = 2: a(2) = 1: a(3) = 3: a(4) = 4: a(5) = 5
c = 0
For i = 1 To 4
If a(i) <= a(i+1) Then c = c + 1
Next i
Print c
该程序的运行结果是。
程序功能：在文本框Text1中输入1~255十进制待校验数，单击“计算”按钮后，在文本框Text2中显示该数对应的二进制值，并在标签Label1中显示该数的校验位值。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text) ' 输入一个1~255的十进制数
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s ' str(a)将变量a的值转换为字符串
Loop
v =
Text2.Text = s ' 显示对应的二进制数值
Label1.Caption = "校验位值：" + Str(v) ' 显示输出校验位值
End Sub
