①使用WinRAR或WinZIP软件把报告文件压缩
②把报告文件后缀名改成“rar”或“zip”
③把报告文件里的图像全部删除
④适当调小图像素材的分辨率后,再替换文件中的原图像
⑤把报告文件另存为txt文本文件
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[8]
162
179
191
数组a
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]
9
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
Print c
该程序的运行结果是。
程序功能:在文本框Text1中输入1~255十进制待校验数,单击“计算”按钮后,在文本框Text2中显示该数对应的二进制值,并在标签Label1中显示该数的校验位值。