网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中有一个命令按钮Command1，对应的事件代码如下：
Private Sub Command1_Enter()
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox("请输入数据："，"输入"，1)
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个数据分别统计有几个是奇数，有几个是偶数
参考答案
更多 “ 在窗体中有一个命令按钮Command1，对应的事件代码如下：Private Sub Command1_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Thena＝a+1Elseb＝b+1End IfNext iMsgBox("运行结果：a＝" Str(A) :",b＝" Str(B) )End Sub运行以上事件所完成的功能是( )。A．对输入的10个数据求累加和B．对输入的10个数据求各自的余数，然后再进行累加C．对输入的10个数据分别统计有几个是整数，有几个是非整数D．对输入的10个数据分别统计有几个是奇数，有几个是偶数 ” 相关考题
考题
在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A. 4B. 5C. 10D. 40
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Clicka = "1234"b = Len(a)Me.Lb1.Caption = bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1 Click()a＝"1234"b＝Len(A)Me.Lb1.Caption＝bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。A．13.45.8B．1 3 5C．147D．无数据输出
考题
在窗体中有一个标签kabel()，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：Private Sub Conunandl_Click()Label(). Caption=“标签”End SubPrivate Sub Foml_Load()Form.Caption：“举例”Commandl.Caption=“移动”End Sub打开窗体后单击命令按钮，屏幕显示A．B．C．D．
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
考题
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Form1.Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。A．1 3.4 5.8B．1 3 5C．1 4 7D．无数据输出
考题
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。A．1 3.4 5.8B．1 3 5C．1 4 7D．无数据输出
热门标签
最新试卷