单项选择题
阅读下面的程序:
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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x,s) Sum=Sum+ s Next X Print Sum End Sub Private Sub subl(y,w) w = 1 For i=1 To y w = w * i Next i End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.5
B.120
C.153
D.160
点击查看答案&解析
单项选择题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n : 4 TO 0 Step -1 x(n)= n + 1 Print x(n); Next n End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.54321
B.4
C.54321
D.0
点击查看答案&解析
相关试题
要想在文本框中显示垂直滚动条,必须将Scro...
有下列程序,运行后变量x1、y1和z1的结...
在窗体上画两个文本框,然后编写程序。程序...
在窗体上画两个文本框(名称分别为Text1和...
为了建立窗体的Click事件过程,即Form_Cli...