求两个数中的最大数 (1) maxVal(a,b): (2) a(3)b(4)a(5)b

以下是一个能返回数组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 PrivateSubCommand1_Click() Dimx(1To10)AsInteger Fori=1To10 x(i)=Int(Rnd()*100) Printx(i); Nexti Print Printmaxval(x()) EndSub 程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。