<center id="e206k"></center> 
①使用WinRAR或WinZIP軟件把報(bào)告文件壓縮
②把報(bào)告文件后綴名改成“rar”或“zip”
③把報(bào)告文件里的圖像全部刪除
④適當(dāng)調(diào)小圖像素材的分辨率后，再替換文件中的原圖像
⑤把報(bào)告文件另存為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
運(yùn)行時(shí)，出錯(cuò)信息如下圖所示，導(dǎo)致此錯(cuò)誤的語(yǔ)句或原因是（ ）。
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，該程序的運(yùn)用結(jié)果是（ ）。
| 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 |
數(shù)組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 |
數(shù)組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
該程序的運(yùn)行結(jié)果是。
程序功能：在文本框Text1中輸入1~255十進(jìn)制待校驗(yàn)數(shù)，單擊“計(jì)算”按鈕后，在文本框Text2中顯示該數(shù)對(duì)應(yīng)的二進(jìn)制值，并在標(biāo)簽Label1中顯示該數(shù)的校驗(yàn)位值。
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) ' 輸入一個(gè)1~255的十進(jìn)制數(shù)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s ' str(a)將變量a的值轉(zhuǎn)換為字符串
Loop
v =
Text2.Text = s ' 顯示對(duì)應(yīng)的二進(jìn)制數(shù)值
Label1.Caption = "校驗(yàn)位值：" + Str(v) ' 顯示輸出校驗(yàn)位值
End Sub
