某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。A．把Ifa(k)＞max Then 改为 If a(k)＜max ThenB．把max=a(k)改为a(k)=maxC．把第2个循环语句For k=1 To 10改为For k=2 To 10D．把max=O改为max=a(10)
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A．把Ifa(k)＞max Then 改为 If a(k)＜max Then
B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=O改为max=a(10)
相关考题：
有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是__________。 Private Sub Command1_Click（) Dim min%, k%, a% For k = 1 To 4 a = Val（InputBox（"输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End SubA．14B．23C．56D．88E．0