填空题

找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command12_Click()
max=0
maxn=0
For i=1 To 10
num=Val(InputBox("请输入第"＆i＆"个大于0的整数:"))
If (11) Then
max=num
maxn= (12)
End If
Next i
MsgBox("最大值为第"＆maxn＆"个输入的"＆max)
End Sub

【参考答案】

i
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Do Until b＜0 a=inputBox( 输入a的值 ) a=Val(a) b=inputBox( 输入b的值 ) b=Val(b) a=a+b Loop Print a End Sub 程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是______。
填空题
num＞max或max＜num
相关试题