以下是一个能返回数组a中最大数的函数过程代码：Functionmaxval(a（）AsInteger)AsIntegerDimmax%max=1Fori=2To10Ifa(i)>a(max)Thenmax=iNextimaxval=maxEndFunctionPrivateSubCommand1_Click（）Dimx(1To10)AsIntegerFori=1To10x(i)=Int(Rnd（）100)Printx(i);NextiPrintPrintmaxval(x（）)EndSub程序运行时，
以下是一个能返回数组a中最大数的函数过程代码：Functionmaxval(a（）AsInteger)AsIntegerDimmax%max=1Fori=2To10Ifa(i)>a(max)Thenmax=iNextimaxval=maxEndFunctionPrivateSubCommand1_Click（）Dimx(1To10)AsIntegerFori=1To10x(i)=Int(Rnd（）100)Printx(i);NextiPrintPrintmaxval(x（）)EndSub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。
A.语句“max=1”应改为“max=a(1)”
B.语句“Fori=2To10”应改为“Fori=1To10”
C.If语句“max=i”应改为“max=a(i)”
D.语句“maxval=max”应改为“maxval=a(max)”
正确答案：D
Tag：VisualBasic程序设计 语句 函数
时间：2021-05-06 20:07:29
- 上一篇：有如下函数过程：FunctionCys(ByValxAsInteger,ByValyAsInteger)AsIntegerDimquotientsDoWhiley<>0quotients=x/yx=yy=quotientsLoopCys=xEndFunction以下是调用该函数的事件过程，该程序的运行结果是（）。PrivateSubCommand1_Click（）DimaAsIntegerDimbAsIntegera=10b=2x=Cys(a,b)PrintxEndSub
- 下一篇：在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click（）DimxAsIntegerx=10PrintFun1(Fun1(x,(Fun1(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是（）。