填空题

找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
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

【参考答案】

num＞max或max＜num
<上一题 目录 下一题>
热门 试题

填空题
运行下面程序代码后，变量J的值为______。 Private Sub Fun() Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End Sub
填空题
以下程序的功能是：求被5和7除余数均为1的数。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Form_Click() Dim Ncount%，n% Ncount=0 n=1 Do n=n+1 If ______ Then Debug.Print n Ncount=Ncount+1 End If Loop Until Ncount=5 End Sub
相关试题