itgle.com

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。Private Sub Command2_Click()max＝0max_n＝0For i＝1 To 10num＝Val(InputBox("请输入第"& i &"个大于0的整数："))If num＞max Thenman＝【 】max_n＝iEnd IfNext iMsgBox("最大值为第"& max_n &"个输入的" & max)

题目

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。

Private Sub Command2_Click()

max＝0

max_n＝0

For i＝1 To 10

num＝Val(InputBox("请输入第"& i &"个大于0的整数："))

If num＞max Then

man＝【 】

max_n＝i

End If

Next i

MsgBox("最大值为第"& max_n &"个输入的" & max)

End Sub

相似考题

1.（ 12 ）在窗体中有一个名为 Command12 的命令按钮， Click 事件的代码如下：该事件所完成的功能是：接受从键盘输入的 10 个大于 0 的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。Private Sub Command12_Click( )max=0max_n=0For i=1 To 10num=Val(InputBox(" 请输入第 "& i &" 个大于 0 的整数： "))If (num>max)Thenmax= ___________max_n= ___________End IfNext iMsgBox(" 最大值为第 "& max_n&" 个输入的 "& max)End Sub

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.窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub

更多“在窗体中有一外名为Command2的命令按钮,该命令的功能是:接受从键盘输入的10个大于0的整数,找出其 ”相关问题

  • 第1题：

    在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于O的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。

    Private Sub Command12_C1ick( )

    max=0

    maxn=0

    For i=1 To 10

    Num=Val(InputBox(”请输入第”&i&”个大于O的整数：”))

    If_____Then

    max=num

    maxn=_____

    End if

    Next i

    Msgbox(“最大值为第”&maxn&“个输入的”&max)

    End Sub


    正确答案：num>max i
    num>max i 解析：本题依次取接收到的数与原最大数比较，若比原最大数大，则将最大数设为新取得的数。

  • 第2题：

    窗体上添加有3个命令按钮，分别命名为Commandl、Command2和Command3，编写Commandl的单击事件过程，完成的功能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。以下正确的是（ ）。

    A.

    B.

    C.

    D.


    正确答案：C
    本题考查控件的可见和可用属性的知识。在VBA中，要想使某个控件可用，则使其Enabled属性为True要想使某个控件可见，则使其Visible属性为True.所以本题正耐答案为C。

  • 第3题：

    （ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。

    Private Sub cmdTest_Click()

    Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）

    If Answer=vbOK Then

    cmdDisplay.Visible= 【 15 】

    Else

    Docmd.Close

    End If

    End Sub


    正确答案：

  • 第4题：

    窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：

    接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。

    Privme Sub Command32_Click()

    max=0

    max_n=0

    For i=1 To 10

    num=Val(InputBox("请输入第"&i&"个大于0的整数："))

    If______Then

    max=num

    max_n=i

    End If

    Next i

    MsgBox("最大值为第"＆max_n&"个输入的"&max)

    End Sub

    程序空白处应该填入的表达式是

    A．num>i

    B．i<max

    C．num>max

    D．num<max


    正确答案：C
    解析：本程序的作用是对键盘输入10个数据，利用函数实现找出其中最大值，并找出最大值对应的位置。实现过程是在键盘上每输入一个数据把它存入num中并与当前最大值max比较，如果num>max说明当前输入的值大于当前最大值，则把它的值存入max中作为新的最大值，故答案为C)。

  • 第5题：

    试题32

    窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。

    Private Sub Command32_Click()

    max=0

    max_n=0

    For i = 1 To 10

    Num=Val(InputBox(“请输入第“&i&”个大于0的整数：”))

    If ________ Then

    max = num

    max_n = i

    End If

    Next i

    MsgBox(“最大值为第“& max_n &”个输入的”& max )

    End Sub

    空白处应该填入的表达式是（）

    A．num>1 B．i<max C．num>max D．num<max


    正确答案：C
    试题32分析
    题目是用man来存储最大值，用max_x存储输入位置，条件是输入的值必须大于0，首先将0赋给max，当输入的值大于max的时候，将输入的值赋给max，因此，最后max的值就是最大值。
    试题32答案
    C

相关内容