（ 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)&
题目
（ 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, 对应的事件代码如下:private sub run35_enter()Dim num as int ”相关问题
-
第1题：
在窗体中有一个名称为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=False
B．flag=Not flag
C．flag=True
D．Exit Do
正确答案：C
解析：Do…While…Loop循环结构是在条件式为真时，执行循环体，并持续到条件式结果为假或执行到Exit Do语句而退出循环。通过题面要求，事件代码中“If result＞=0 And result=100 Then”就是判断输入的成绩是否在0到100分之间，而“Else MsgBox”成绩输入错误，请重新输入””则是对输入的成绩不在0到100分之间的情况进行处理，所以可以判断出，要求填空的部分应该是针对输入成绩正确的情况进行处理，即代码判断条件满足，退出循环。本题中A、B、D三个选项均可以使程序退出循环，而C选项，则会使循环继续下去，成为死循环。 -
第2题：
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：
打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A. 4
B. 5
C. 10
D. 40
正确答案：C
本题考查VBA中定长字符串的知识。
当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。
符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。 -
第3题：
|在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数
正确答案：D
本题考查程序设计的知识。本题的重点在于判断Int(num／2)=num／2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num／2)=num／2成立，说明该数是一个偶数；反之，若其除2后不为整数，此时Int(num／2)必然不等于nurn／2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。 -
第4题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
正确答案：25
25 -
第5题：
在窗体中使用一个文本框名为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】 。
正确答案：
及格