（ 35 ）在窗体中有一个命令 run35, 对应的事件代码如下：private sub run35_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 个数据分别统计有几个是奇数，有几个是偶数
（ 35 ）在窗体中有一个命令 run35, 对应的事件代码如下：
private sub run35_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 个数据分别统计有几个是奇数，有几个是偶数
相关考题：
（ 35 ） 在窗体中有一个名称为 run35 的命令按钮 ， 单击该按钮从键盘接收学生成绩 ， 如果输入的成绩不 在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮的 Click 的事件代码如下：Private Sub run35_Click( )Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val(InputBox(" 请输入学生成绩 :", " 输入 "))If result=0 And result =100 Then___________ElseMsgBox " 成绩输入错误，请重新输入 "End IfLoopRem 成绩输入正确后的程序代码略End Sub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（ ） 。A ） flag=FalseB ） flag=Not flagC ） flag=TrueD ） Exit Do
在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_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个数据分别统计有几个是奇数，有几个是偶数
在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i＝1 To 10 num＝InputBox(“请输入数据：”，“输入”，1)A．:",b＝" Str(B．) End Sub 运行以上事件所完成的功能是( )。C．对输入的10个数据求累加和D．对输入的10个数据求各自的余数，然后再进行累加
在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_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个数据分别统计有几个是奇数，有几个是偶数
在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在。到100分之间，则要求重新输入：如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolean result=0 flag＝True Do While flag result=Val(InputBox("请输入学生成绩：","输入")) If result＞=0 And result＜=100 Then ______ Else MsgBox"成绩输入错误，请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。A．flag=FalseB．flag=Not flagC．flag=TrueD．Exit Do
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 = 60 Then result = "及格" ElseIf Me!num1 = 70 Then result = "通过" ElseIf Me!num1 = 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
|在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter（ ） Dim num As IntegerDim aAs IntegerDimbAs IntegerDim iAs IntegerFori=l T0 10num=InputBox（"请输入数据："，"输入"，1）If Int（num／2）=num／2 Thena=a+1ElseB=b+1EndIfNextiMsgBox（”运行结果：a="&；Str（A．&；"，b="&；Str（B．）End Sub运行以上事件所完成的功能是（ ）。【程序设计综合知识】A.对输入的10个数据求累加和B.对输入的10个数据求各自的余数，然后再进行累加C.对输入的10个数据分别统计有几个是整数，有几个是非整数D.对输入的10个数据分别统计有几个是奇数，有几个是偶数