单项选择题

有如下程序：
Private Sub Form_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
Print Counter,Check
End　Sub
程序运行后，单击窗体，输出结果为( )。

A．15 0
B．20　-1
C．10 True
D．10 False
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) if n 2=n 2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是( )。
A．72 36
B．108 36
C．72 6
D．108 6
单项选择题
有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。
A．12
B．24
C．36
D．48
相关试题