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

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

窗体中有命令按钮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


参考答案

更多 “ 窗体中有命令按钮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 ” 相关考题
考题 ( 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

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

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