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