单项选择题

有如下程序；
Private SubForm_Click()
Dim check As Boolean，n As Integer
check=False
n=0
Do
Do While n＜10
n=n+1
If n=5 Then
check=True
Exit Do
End if
Print n；
Loop
Loop Until check = True
End Sub
程序运行后，输出的结果是 ______ 。

A．1 2 3
B．1 2 3 4
C．1 2 3 4 5
D．1 2 3 4 5 6

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1. Flags=cdlOFNHideReadOnty CommonDialog1.Filter= All Files(*．*)| *.*|Text Files &_ (*.txt)| *.txt|Batch Files (*.bat)|*.bat CommonDialogl.FilterIndex=2 CommonDialog1. ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______ 。

A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．不确定

单项选择题

设x和y均为整形变量，则执行程序中的循环后，y的值为 x=1 y=1 Do While y ＜ = 50 If x＞=10 Then Exit Do End If If (x Mod 2) = 1 Then x=x+5 End If If x Mod 2 ＜＞ 1 Then x=x-3 End If y=y+1 Loop

A．2
B．4
C．6
D．8

相关试题