网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中有一个命令按钮Commandl，对应的事件代码如下。 Private Sub Commandl_Enter（ ） Dim num As IntegerDim aAs IntegerDimbAsIntegerDim iAs IntegerFori=lT010num=InputBox（"请输入数据："，"输入"，1）IfInt（num／2）=num／2 Thena=a+1Elseb=b+lEndIfNextlMsgBox（"运行结果：a="&；Str（A．&；："，b="&；Str（B．）EndSub运行以上事件所完成的功能是（ ）。运行以上事件所完成的功能是（ ）。
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据统计有几个是整数，有几个是非整数
D.对输入的10个数据统计有几个是奇数，有几个是偶数
参考答案
更多 “ 在窗体中有一个命令按钮Commandl，对应的事件代码如下。 Private Sub Commandl_Enter（ ） Dim num As IntegerDim aAs IntegerDimbAsIntegerDim iAs IntegerFori=lT010num=InputBox（请输入数据：，输入，1）IfInt（num／2）=num／2 Thena=a+1Elseb=b+lEndIfNextlMsgBox（运行结果：a=amp；Str（A．amp；：，b=amp；Str（B．）EndSub运行以上事件所完成的功能是（ ）。运行以上事件所完成的功能是（ ）。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个数据求各自的余数，然后再进行累加
考题
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：Private Sub Commandl Click（ ）Lablel．Caption=”标签”End SubPrivate Sub Form—Load（ ）Form．Caption=”举例”Commandl．Caption=”移动”End Sub打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
考题
在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:Private SuB command
在已建窗体中有一命令按钮（名为Commandl），该按钮的单击事件对应的ＶBA代码为：Private SuB commandl_Click()SuBT.Form.RecordSource = “select*From 雇员”End SuB单击该按钮实现的功能是A．使用select命令查找“雇员”表中的所有记录B．使用select命令查找并显示“雇员”表中的所有记录C．将suBt窗体的数据来源设置为一个字符串D．将suBt窗体的数据来源设置为“雇员”表
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare DatabaseDim aAs String*10Private Sub Command 1_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEnd sub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。【考点3 VBA程序设计基础】A.4B.5C.10D.40
考题
在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下：Private Sub Commandl_Click()Labele.Caption＝“标签”End SubPrivate Sub Form_Load()Form.Caption＝“举例”Commandl.Caption＝“移动”End Sub打开窗体后，单击命令按钮，屏幕显示( )。A．B．C．D．
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database Dim a As String*10 Pfivae Sub Commandl_Click() a＝“1234” b＝Len(A) Me.Lbl.Caption＝b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
考题
在窗体中有一个标签kabel()，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：Private Sub Conunandl_Click()Label(). Caption=“标签”End SubPrivate Sub Foml_Load()Form.Caption：“举例”Commandl.Caption=“移动”End Sub打开窗体后单击命令按钮，屏幕显示A．B．C．D．
热门标签
最新试卷