在窗体中有一个命令按钮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="

题目

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

相似考题

1.在窗体中使用一个文本框（名为 num1 ）接受输入值，有一个命令按钮 run13 ，事件代码如下：Private Sub run13_Click()If Me!num1 >= 60 Thenresult = " 及格 "ElseIf Me!num1 >= 70 Thenresult = " 通过 "ElseIf Me!num1 >= 80 Thenresult = " 合格 "End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为 85 ，单击命令按钮，输出结果是 【 13 】

2.在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：单击命令按钮后，标签显示的结果是( )。

3.在已建窗体中有一命令按钮(名为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窗体的数据来源设置为“雇员”表

4.在窗体中有一个命令按钮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,对应的事件代码如下: Private Sub run35_Enter( . Dim num As Int ”相关问题

  • 第1题：

    在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：打开窗体后单击命令按钮，窗体中显示的内容是（ ）。

    A. 4

    B. 5

    C. 10

    D. 40


    正确答案：C
    本题考查VBA中定长字符串的知识。
    当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。
    符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故1cn(a)=10。

  • 第2题：

    在窗体中使用一个文本框名为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】 。


    正确答案：
    及格

  • 第3题：

    在窗体中有一个标签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．4

    B．5

    C．10

    D．40


    正确答案：C
    解析： 本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(A) ＝10。

  • 第4题：

    在窗体中有一个标签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．4

    B．5

    C．10

    D．40


    正确答案：B

  • 第5题：

    在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。

    A.4

    B.5

    C.1O

    D.40


    正确答案：C
    暂无解析，请参考用户分享笔记

  • 第6题：

    在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：

    Private Sub run13_Click()

    If Me!num1>=60 Then

    result="及格"

    Elself Me!num1>=70 Then

    result="通过"

    ElselfMe!numl>=85 Then

    result="合格"

    End If

    MsgBox result

    End Sub

    打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。


    正确答案：及格
    及格

相关内容