网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
试题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
参考答案
更多 “ 试题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 ” 相关考题
考题
（ 34 ）在窗体中有一个命令按钮（名称为 run34 ） ，对应的事件代码如下：Private Sub run34_Click( )sum=0For i=10 To 1 Step -2sum=sum+iNext iMsgBox sumEnd Sub运行以上事件，程序的输出结果是（ ） 。A ） 10B ） 30C ） 55D ）其他结果
考题
在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A. 4B. 5C. 10D. 40
考题
（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：private sub command1_click()f=0for n=1 to 10 step 2f=f+nnext nme!lb1.caption=fend sub单击命令按钮后，标签显示的结果是 ___[11]___ 。
考题
（ 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
考题
在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。Private Sub Disp_Click （）Me.HideForm2. 【10】End Sub
考题
窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub
考题
若窗体Frml中有一个命令按钮Cmdl，则窗体和命令按钮的Click事件过程名A．Form_Click() Commandl_Click()B．Frml_Click() Commamdl_Click()C．Form_Click() Cmdl_Click()D．Frml_Click() Cmdl_Click()
考题
在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run 34_Click() sum=0 For i=1 To 10 Step 3 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。A．22B．30C．55D．25
考题
在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
考题
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：Private Sub Commandl Click（ ）Lablel．Caption=”标签”End SubPrivate Sub Form—Load（ ）Form．Caption=”举例”Commandl．Caption=”移动”End Sub打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
考题
在窗体中有一外名为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
考题
在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run34_Click() Sum=0 For i=10 To 1 Step -2 sum＝sum+i Next i MsgBox sum End Sub运行以上事件，程序的输出结果是______。A．10B．30C．55D．其他结果
考题
在已建窗体中有一命令按钮(名为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窗体的数据来源设置为“雇员”表
考题
窗体中有命令按钮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
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1B. 2C. 3D. 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．4B．5C．10D．40
考题
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1 Click()a＝"1234"b＝Len(A)Me.Lb1.Caption＝bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
考题
在窗体中有一个名为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.2B.3C.4D.5
考题
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：PrivateSubCommandl_Click()Dima(10,10)Form=2To4Forn2To5a(m,n)=m*nNextnNextmMsgBoxa(2,5)+a(3,4)+(4,5)EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．22B．32C．42D．52
考题
在窗体中有一个标签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．4B．5C．10D．40
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()Dim x As Integer,y As Integerx=12：y=32Call p(x,y)MsgBox x*yEnd SubPublic Sub p(n As Integer,By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
考题
（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。Private Sub cmdTest_Click()Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）If Answer=vbOK ThencmdDisplay.Visible= 【 15 】ElseDocmd.CloseEnd IfEnd Sub
考题
在窗体中添加一个标签控件，名称为Lbll；添加一个命令按钮，名称为Commandl，Click事件代码如下：PrivateSubCommandl_Click()A=1234B￥=Str￥(A)C=Len(B￥)ME.Lbll.Caption=CEndSub单击命令按钮，则在窗体上显示的内容是()。A.2
B.0
C.6
D.5
热门标签
最新试卷