单项选择题

有如下程序： 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
单项选择题
设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox( 输入数据 ) If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i) 2=b(i) 2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。
A．数组b中的偶数被保存在数组C中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
相关试题