下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd Sub
A．12345
B．6
C．1 2 3 4 5 6
D．0
第1题：
设有如下程序：
Private Sub Form_Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(j)=i+1
sum=sum+ary(i)
Next 1
Print sum
Eud Sub
程序运行后，单击窗体，则在窗体上显示的是
A．15
B．16
C．20
D．25
第2题：
下列程序的输出结果是【 】
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a()
a (i) =20
Next i
第3题：
单击窗体时，下列程序的执行结果是
Private Sub Invert（ByVal xstr As String, ystr As String）
Dim tempstr As String
Dim I As Integer
I=Len（xstr）
Do While I >=1
tempstr=tempstr + Mid（xstr, I, 1）
I=I - 1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click（）
Dim s1 As String, s2 As String
s1= "abcdef"
Invert s1, s2
Print s2
End Sub（ ）。
A．abcdef
B．afbecd
C．fedcba
D．defabc
第4题：
下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub
A．4
B．5
C．6
D．7
第5题：
设有如下程序：
Private Sub Form. Click（ ）
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
A.15
B.16
C.20
D.25
第6题：
下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。
Private Sub form_ click()
Dim name As String
Dim age As Integer
Dim sex As String
name = "张三": age = 20: sex = "Male"
Open "D:\temp\CodE．txt" For Append As 1
______1, name, age, sex
______
End Sub
第7题：
下列程序输出的结果为【 】。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
第8题：
阅读下面的程序：
Private Sub Form_Click（）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。
10
第9题：
下面程序的输出结果是【 】。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
第10题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub