填空题

下列程序段用于实现以下功能：随机产生一个100以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。 Private Sub Command1_Click() RANDOMIZE a = 【1】 Do Input "请输入一个数字:", n If n = a Then Print "Good!" 【2】 ElseIf n＞a Then Print "大了" Else Print "小了" End If Loop End Sub

【参考答案】

Int(100*Rnd) Exit Do

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。

A．7 11
B．5 11
C．76
D．2 1

单项选择题

当Command1_Click事件发生时，窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b ＜＞ 0 Then x = 7 Else x=x+8 End If If c ＜＞ 0 Then x = x-3 Else x = 4 End If Print x End Sub

A．7
B．8
C．4
D．3

相关试题