（ 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= _

题目

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

Private Sub Command12_Click( )

max=0

max_n=0

For i=1 To 10

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

If (num>max)Then

max= ___________

max_n= ___________

End If

Next i

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

End Sub

相似考题

1.（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：private sub command1_click()f=0for n=1 to 10 step 2f=f+nnext nme!lb1.caption=fend sub单击命令按钮后，标签显示的结果是 ___[11]___ 。

2.在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10

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

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

更多“( 12 )在窗体中有一个名为 Command12 的命令按钮, Click 事件的代码如下:该事件所完成的功能是: ”相关问题

  • 第1题：

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


    正确答案：D
    解析：本题主要考查窗体的RecordSource属性，该属性用来指明该窗体的数据源。本题的数据源是一个数据表，因此本题选D)。

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

    在窗体中有一个名为Command1的命令按钮，Click事件的代码如下： Private Sub Command1_Click（) f = 0 For n = 1 To 10 Step 2 f = f + n Next n Me!Lb1.Caption = f End Sub 单击命令按钮后，标签显示的结果是（）。


    C 弹出的是m(2+m(6))，m(6)=11—6=5，因此弹出的是m(2+5)=m(7)=11-7=4。

  • 第4题：

    在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Command1_Click（ ） Dim m(10) For k=1 T0 10 m(k)=11=k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是（ ）。

    A.2

    B.3

    C.4

    D.5


    正确答案：C
    弹出的是m(2+m(6))，m(6)=11—6=5，因此弹出的是m(2+5)=m(7)=11-7=4。

  • 第5题：

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

相关内容