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

A、把If a(k)>max Then改为If a(k)
B、把max＝a(k)改为a(k)＝max
C、把第2个循环语句For k＝1 To 10改为For k＝2 To 10
D、把max＝0改为max＝a(10)

【正确答案】 D

【答案解析】解析：程序中把变量max的初始值设置为0，没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值，然后让数组中的各个元素与这个值比较，如果比它大，就替换变量max的值，这样才能得到数组中的最大值。因此要修改max＝0这一行。