窗体中有命令按钮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
窗体中有命令按钮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
相关考题:
( 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
在窗体中有一外名为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
在窗体中有一个标签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
在窗体中有一个标签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
试题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
在窗体中有一个名为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 单击命令按钮后,标签显示的结果是()。
在窗体中有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 FunctionA.1B.3C.6D.10