单项选择题

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

单项选择题
假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(菜单) 小图标 smallicon 3(菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是( )。
A．Private Sub bigicon_Click()
　bigicon.Checked=False
End Sub
B．Private Sub bigicon_Click()
　Me.appear.bigicon.Checked=True
End Sub
C．Private Sub bigicon_Click()
　bigicon.Checked=True
End Sub
D．Private Sub bigicon_Click()
　appear.bigicon.Checked=True
End Sub
单项选择题
如果要在程序代码中为图片框动态加载和清除图像，可以利用( )函数。
A．InputBox
B．Input
C．LoadPicture
D．PaintPicture
相关试题