问题
填空题
找出其中的最大值和对应的输入位置。请在空白处填入适当语句,使程序可以完成指定的功能。
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
解析: 本题程序的功能是接收从键盘输入的10个大于0的不同整数,找出其中的最大值和对应的输入位置。首先程序中定义了两个初值为0的变量:max和maxn,分析程序可知,变量max中存放的是最大值,变量maxn存放的是变量max值的位置。程序中定义了一个For循环,用以控制输入10个数,变量i的值表示循环的次数,同时也表示这是第几次输入(输入的数值的位置),‘通过语句“num=Val(InputBox("请输入第"&i&"个大于0的整数:"))”将输入的值赋给变量num,接下来需要通过一个if语句来比较输入数值的大小,所以第11空填“num>max”,如果输入的数比变量max中存放的数值大,那么就将该值赋给变量max,并将该数的位置存放进变量maxn中,因此第12空填“i”。