有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End Sub
A．5
B．10
C．12
D．20
第1题：
（ 14 ）执行以下程序后输出的是
Private Sub Command1_Click()
Ch$= ” AABCDEFGH ”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH
B)ABCD
C)FG
D)AB
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Y as String
X=5
Y=X & Space(3) & X
Print X；
Print Trim(Y)；Len(Trim(Y))
End Sub
该程序的执行结果是【 】。
第3题：
执行下面的程序段，x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
第4题：
有如下程序：
Private Sub Command1_Click()
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环【 】次，程序执行完毕后j的值是【 】。
第5题：
在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
第6题：
执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8
第7题：
A、2 2
B、 2 2.5
C、 2.5 2
D、 2.5 2.5
第8题：
有如下程序段，该程序段执行完后，执行循环的次数是
total=0
Counter=1
Do
Print Counter
total=total + Counter
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10（ ）。
A．5
B．10
C．15
D．20
第9题：
设有如下程序
Private Sub Command1 Click（ ）
x=10：Y=0
For i=l To 5
Do
x=x-2
y=y+2
Loop Until y>5 Or x<-l
Nex1
End Sub
运行程序，其中Do循环执行的次数是（ ）。
A.15
B.10
C.7
D.3
第10题：
有如下过程：
Sub SS(ByVal X，ByRef Y，Z)
X=X + 1
Y=Y + 1
Z=Z + 1
End Sub
执行该过程的事件过程如下：
Private Sub Command1_Click()
A = 1
B = 2
C = 3
Call SS(A，B，C) Print A；B；C
End Sub
则该程序的执行结果是【 】。