单项选择题

有如下程序： 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 Tree
D．10 False
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i) 3=arr(i) 3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．25
B．26
C．27
D．28
单项选择题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1 Click() Dim x， y， z As Integer x = 5 y = 7 z = 0 Text1.Text = Call P1(x， y， z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer， ByVal b As Integer， c As Integer) c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(
D．没有显示
相关试题