单项选择题

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

单项选择题
对窗体编写如下事件过程:Option Base 1Private Sub Form_KeyPress (KeyAScii AS Integer)arr=Array(12,15,18,20,24)m1=arr(1)m2=1If fKeyAscii=12 ThenFor i=2 To 5If arr(i)>m1 Thenm1=arr(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行之后按回车键,输出结果为( )。
A. N=0  Do   N=N+1  Loop Until N>=100
B. N=0  Do   N=N+1  Loop While n<100
C. N=0  N=N+1  Do  Loop Until N<100
D. N=0  Do While n<100    N=N+1  Loop
单项选择题
有如下事件过程,单击命令按钮扣,输出结果是( )。Private Sub Command1 Click( )Dim b% (1 To4) ,j%, t#For j=1 To 4b(j) =jNext jt=Tax(b( ) )Print t= ; t,End SubFunction Tax (a( ) As Integer)Dim t#, i%t=1For i=2 To UBound (a)t=t * a(i)Next iTax=tEnd Function
A. t=18
B. t=24
C. t=30
D. t=32
相关试题
  • 在深度为7的满二叉树中,度为2的结点个数...
  • 下列软件系统结构图的宽度为【 】
  • 对长度为10的线性表进行冒泡排序,最坏情...
  • 数据结构分为逻辑结构和存储结构,循环队列...
  • 在一个工程中有两个窗体,窗体Form1上有一...