问题
填空题
在窗体中有一个名为command12的命令按钮,click事件的代码如下。该事件所完成的功能是:接受从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。 Private Sub Command12_Click() max=0 max_n=0 For i=1 To 10 Num=Val(InputBox("请输入第"& i &"个大于0的整数:")) If(nunl>Inax)Then max= (12) max_n= (13) End If Next i MsgBox("最大值为第"&max_n &"个输入的" & max) End Sub
答案
参考答案:(12) num (13) i
解析: 本题考查的是VBA编程基础。题目要求接收从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置。本题中先给最大值max变量赋值为0,把每次从键盘输入的数num与最大值max比较,如果num的值大于最大值max的值,最大值max就要被赋予num的值,因此,(12)空处应填入num。变量max_n记录最大值输入的位置,即第几次输入的数,因此,(13)空处应填入i。