【答案】以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a（） As Integer) As I

以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a（） As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxval = max End Function Private Sub Command1_Click（） Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd（） 100) Print x(i); Next i Print Print maxval(x（）)End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。

A.语句“max = 1”应改为“max = a(1)”

B.语句“For i = 2 To 10”应改为“For i = 1 To 10”

C.If语句“max = i”应改为“max = a(i)”

D.语句“maxval = max ”应改为“maxval = a(max)”

正确答案： D