单项选择题

阅读下面的程序： 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
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(a) If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是
A．2
B．6
C．10
D．12
单项选择题
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = Text2．Text c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG
相关试题