计算机二级
窗体中有命令按钮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程序空白处应该填入的表
题目
窗体中有命令按钮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
相似问题和答案
第1题：
在窗体中有1个命令按钮，对应的事件代码如下。单击命令按钮时，输出的结果是（）。 Private Sub Commandl_Click（) Dim s As Integer s = f （1) + f （2) + f （3) Debug.Print s End Sub Public Function f（n As Integer) As Integer Dim i As Integer f = 0 For i = 1 To n f = f + i Next i End Function
A．1
B．3
C．6
D．10
第2题：
在窗体中有一个名为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 单击命令按钮后，标签显示的结果是（）。
第3题：
试题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分析
题目是用man来存储最大值，用max_x存储输入位置，条件是输入的值必须大于0，首先将0赋给max，当输入的值大于max的时候，将输入的值赋给max，因此，最后max的值就是最大值。
试题32答案
C
第4题：
在窗体中有一个标签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
解析： 本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(A) ＝10。
第5题：
在窗体中有一个标签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
暂无解析，请参考用户分享笔记
第6题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
25
第7题：
在窗体中有一外名为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
num 解析：题目要求依次输入第i个大于0的整数num，当num大于定义的max值时，则执行赋值语句max＝num，继续依次输入第i个数据，每次都和max值作比较，如果num>max则执行赋值操作max＝num。
第8题：
（ 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
第9题：
（ 11 ）在窗体中有一个名为 command 的命令按钮， 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
单击命令按钮后，标签显示的结果是 ___[11]___ 。
