单项选择题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i, Num
Randomize
Do
For i=1 To 1000
Num=Int(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next i
Loop
End Sub
上述事件过程执行后,下列叙述中正确的是
A.Do循环执行的次数为1000次
B.在For循环中产生的随机数小于或等于100
C.当所产生的随机数为12时结束所有循环
D.当所产生的随机数为65、68或92时窗体关闭,程序结束
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
有一个名称为Form1的窗体,上面没有控件,设有以下程序(其中方法Pset(X,Y)的功能是在坐标X、Y处画一个点): Dim cmdMave AS Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) cmdmave=False End Sub 此程序的功能是
A.每按下鼠标键一次,在鼠标所指位置画一个点
B.按下鼠标键,则在鼠标所指位置画一个点;放开鼠标键,则此点消失
C.不按鼠标键而拖动鼠标,则沿鼠标拖动的轨迹画一条线
D.按下鼠标键并拖动鼠标,则沿鼠标拖动的轨迹画一条线,放开鼠标键则结束画线
点击查看答案&解析
单项选择题
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是
A.11
B.12
C.16
D.20
点击查看答案&解析
相关试题
执行下面程序段,s的值是______。 s...
以下程序的功能是:把顺序文件smtext1.tx...
在关系数据库中,把数据表示成二维表,每一...
在窗体上画一个文本框,名称为Text1,然后...
在窗体上先画一个名为Text1的文本框和一个...