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