题目内容:
某人编写了如下程序,用来求1 0个整数(整数从键盘输入)中的最大值:Private Sub Command1_Click()
Dim a(10)As Integer,max As Integer
For k=1 T0 10
a(k)=InputBox(“输入一个整数”)
Next k
max=0
For k=1 T0 10
If a(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是( ) A.把If a(k)>max Then改为If a(k)<max Then
B.把max:a(k)改为a(k):max
C.把第2个循环语句Fork=1 T0 10改为Fork=2T0 10
D.把max:0改为max:arlm
参考答案:
答案解析: