单项选择题

在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是______。

A.1
B.2
C.3
D.4

<上一题目录下一题>

热门试题

单项选择题

若有以下窗体单击事件过程： Private Sub Form_Click() result=1 For i=1 To 6 step 3 result=result*i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是______。

A.1
B.4
C.15
D.120

单项选择题

窗体中有命令按钮run34，对应的事件代码如下： Private Sub run34_Enter() Dim num As Integer, a As Integer, b As Integer, i As Integer For i=1 To 10 nun=InputBox( 请输入数据: , 输入 ) If Int(num 2)=num 2 Then a=a+1 Else b=b+1 End If Next i MsgBox( 运行结果：a= & Str(a) & ,b= & Str(b)) End Sub 运行以上事件过程，所完成的功能是______。

A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据分别统计奇数和偶数的个数
D.对输入的10个数据分别统计整数和非整数的个数

相关试题