网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_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/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&Str(a)&：”，b=”&Str(b)) End Sub 运行以上事件所完成的功能是( )。
A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计有几个是整数，有几个是非整数
D．对输入的10个数据分别统计有几个是奇数，有几个是偶数
参考答案
更多 “ 在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_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/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：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
考题
在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数
考题
在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数
考题
在窗体中有一个标签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．无数据输出
考题
在窗体中有一个标签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
热门标签
最新试卷