给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20 Counter = Counter +1 if Counter = 10 then Check=False exit do End if Loop Loop until Check=False MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。

A．True

B．False

C．20

D．10

[单选题]给出下面程序： Private Sub Command1_Click() Dim x，y，z X=False For Each y In 2 If y．Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是A．退出For Each…Next循环的条件是x=TrueB．退出For Each…Next循环的条件是x=FalseC．程序检查y对象的Text属性，等于“”时退出For Each…Next循环D．程序逐一查找在z

[单选题]设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是( )。A．1+1/2+2/3B．1+1/2+1/3+1C．1/2+2/3D．1/2+1/3

[单选题]程序段如下：Private Sub Command1_ Click() a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后，程序的输出结果是 ______。A．0 13B．15 13C．0 15D．15 15

[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21

[单选题]运行下列程序：Private Sub Command1_Click( )D．im A(10) As IntegerF．or i = 1 To 5A．(i) = iA．(i + 5) = iNext iF．or i = 1 To 10s = s + A(i)Next iD．ebug.Print sE．nd Sub单击按钮后，则在立即窗口内显示的结果是( )。A．5B．10C．30D．出错信息

[单选题]运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = &quo运行下列程序：Private Sub Command1_Click( )D．im s1 As String * 1D．im s2 As Strings1 = "a"F．or i = Asc(s1) To Asc(s1) + 4s2 = s2 & Chr(i)Next iPrint s2E．nd Sub单击Co

[单选题]有如下程序。Private Sub Command1_Click()D．im a As SingleD．im b As Singlea=5: b=4C．all Sub1(a, b)E．nd SubSub Sub1(x As Single, y As Single)t=xx=t / yy=t Mod yE．nd Sub在调用运行上述程序后,a和b的值分别为A．0 0B．1 1C．2 2D．1 2

[单选题]阅读下列程序。Private Sub Command1_Click()D．im i As Integer, k As Integerk=2F．or i=1 To 3Print Fun(k) ;NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a + 1b=b + 1F．un=a  b + jE．nd Function程序运行后,单击命令按钮输出结果是A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t/Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B． 1 1C．2 2D．1 2

[单选题]运行下列程序：Private Sub Command1_Click()D．im x As Integer, n As Integern = 0D．on = n + 2x = x + nLoop While n< 10D．ebug.Print xE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是是()。A．2B．10C．12D．30