某人编写了如下程序,用来求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个负数时结果是错误的,程序需要修改,下面的修改中可以得到正确运行结果的是( )。