niusouti.com

在窗体中有一个命令按钮run1，对应的事件代码如下：Private Sub run1_Enter()Dim num As IntegerDim m As IntergerDim n As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Thenm＝m＋1Elsen＝n＋1End IfNext iMsgBox("运行结果：m＝"& Str(m) & "，n＝" & Str(n))End

题目

在窗体中有一个命令按钮run1，对应的事件代码如下：

Private Sub run1_Enter()

Dim num As Integer

Dim m As Interger

Dim n As Integer

Dim i As Integer

For i＝1 To 10

num＝InputBox("请输入数据："，"输入"，1)

If Int(num/2)＝num/2 Then

m＝m＋1

Else

n＝n＋1

End If

Next i

MsgBox("运行结果：m＝"& Str(m) & "，n＝" & Str(n))

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

3.在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A. 4B. 5C. 10D. 40

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

更多“在窗体中有一个命令按钮run1,对应的事件代码如下:Private Sub run1_Enter()Dim num As IntegerDi ”相关问题

  • 第1题：

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

  • 第2题：

    在窗体中有一个标签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
    暂无解析，请参考用户分享笔记

  • 第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题：

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


    正确答案：
    及格

  • 第5题：

    在窗体中有一个命令按钮(名称为run1)，对应的事件代码如下： Private Sub rum_Click() suln=0 For i=10 To 1 Step-2 sum=Sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。

    A．10

    B．30

    C．55

    D．其他结果


    正确答案：B
    解析： 本题考查的是VBA编程基础、循环结构。事件代码中“For i=10 To 1 Step -2”表示循环变量i的初值为10，终值为1，步长为-2，那么：第一轮循环结果：i=10，Sum=0+10=10；第二轮循环结果：i-10-2=8，Sum=10+8=18；第三轮循环结果：i=8-2=6，sum=18+6=24；第四轮循环结果：i=6-2=4，Sum=24+4=28；第五轮循环结果：i=4-2=2，sum=28+2=30。

  • 第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，单击命令按钮，输出结果是【 】。


    正确答案：及格
    及格

相关内容