网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

在窗体中有一外名为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


参考答案

更多 “ 在窗体中有一外名为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)End Sub ” 相关考题
考题 ( 12 )在窗体中有一个名为 Command12 的命令按钮, Click 事件的代码如下:该事件所完成的功能是:接受从键盘输入的 10 个大于 0 的整数,找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。Private Sub Command12_Click( )max=0max_n=0For i=1 To 10num=Val(InputBox(" 请输入第 " i " 个大于 0 的整数: "))If (nummax)Thenmax= ___________max_n= ___________End IfNext iMsgBox(" 最大值为第 " max_n" 个输入的 " max)End Sub

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

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

考题 在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:Private SuB command 在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:Private SuB commandl_Click()SuBT.Form.RecordSource = “select*From 雇员”End SuB单击该按钮实现的功能是A.使用select命令查找“雇员”表中的所有记录B.使用select命令查找并显示“雇员”表中的所有记录C.将suBt窗体的数据来源设置为一个字符串D.将suBt窗体的数据来源设置为“雇员”表

考题 在窗体中有一个名为Command12的命令按钮,Click事件功能是:接收从键盘输入的10个大于O的不同整数,找出其中的最大值和对应的输入位置。请在空白处填入适当语句,使程序可以完成指定的功能。Private Sub Command12_C1ick( )max=0maxn=0For i=1 To 10Num=Val(InputBox(”请输入第”i”个大于O的整数:”))If_____Thenmax=nummaxn=_____End ifNext iMsgbox(“最大值为第”maxn“个输入的”max)End Sub

考题 窗体中有命令按钮Command32,其Click事件代码如下。该事件的完整功能是:接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。Privme Sub Command32_Click()max=0max_n=0For i=1 To 10num=Val(InputBox("请输入第"i"个大于0的整数:"))If______Thenmax=nummax_n=iEnd IfNext iMsgBox("最大值为第"&max_n"个输入的"max)End Sub程序空白处应该填入的表达式是A.numiB.imaxC.nummaxD.nummax

考题 窗体上添加有3个命令按钮,分别命名为Commandl、Command2和Command3,编写Commandl的单击事件过程,完成的功能为:当单击按钮Commandl时,按钮Command2可用,按钮Command3不可见。以下正确的是( )。A.B.C.D.

考题 试题32窗体中有命令按钮Command32,其Click事件代码如下。该事件的完整功能是:接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。Private Sub Command32_Click()max=0max_n=0For i = 1 To 10Num=Val(InputBox(“请输入第“i”个大于0的整数:”))If ________ Thenmax = nummax_n = iEnd IfNext iMsgBox(“最大值为第“ max_n ”个输入的” max )End Sub空白处应该填入的表达式是()A.num1 B.imax C.nummax D.nummax

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