题目内容（请给出正确答案）

[主观题]

（35 ）在窗体中有一个命令 run35, 对应的事件代码如下：private sub run35_enter（)Dim num as int

（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 个数据分别统计有几个是奇数，有几个是偶数

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“（35 ）在窗体中有一个命令 run35, 对应的事件代码如…”相关的问题

第1题

（35 ）在窗体中有一个名称为 run35 的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成

绩不在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35 命令按钮

的 Click 的事件代码如下：

Private Sub run35_Click()

Dim flag As Boolcan

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

点击查看答案

第2题

在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter（)Dim num As Intege

在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

点击查看答案

第3题

在窗体中有一个名称为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

点击查看答案

第4题

在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter（． Dim num As Int

在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

点击查看答案

第5题

在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在O～100分

之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下： PrivateSub run35_ClickDim flag As Boolcanresult=O flag=True Do Whileflag result=Val(InputBox(”请输入学生成绩：”，”输入”)) Ifresult＞=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

点击查看答案

第6题

翻在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0～100

分，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下。 Private Sub run35_Click（） Dim flag As Boolcanresult=0flag=TrueDo While flagresult=Val（InputBox（"请输入学生成绩："，"输入"））Ifresult>=0 And result<=100 ThenElseMsgBox”成绩输入错误，请重新输入”EndIfLoopRem。成绩输入正确后的程序代码略 End Sub程序中有一空白处，需要填人一条语句使程序完成其功能。下列选项中错误的语句是（）。【考点4 VBA流程控制语句】

A.flag=False

B.flag=Not flag

C.flag=True

D.Exit Do

点击查看答案

第7题

|在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter（） Dim num As In

tegerDim 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个数据分别统计有几个是奇数，有几个是偶数

点击查看答案

第8题

在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click（) 　　Dim s As Integer 　　s = P（1)+ P（2)+ P（3)+ P（4) 　　debug.Print s End Sub Public Function P（N As Integer) 　　Dim Sum As Integer 　　Sum = 0 　　For i = 1 To N 　　　　Sum = Sum + i 　　Next i 　　P = Sum End Function 打开窗体运行后，单击命令按钮，输出结果是（)。

A.15

B.20

C.25

D.35

点击查看答案

第9题

A.15

B.20

C.25

D.35

点击查看答案

第10题