问答题

以下是一个能返回数组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程序运行时，发现

答案：语句“maxval?=?max?”应改为“maxval??=?a(max)”

你可能感兴趣的试题

下面程序的运行结果为（）。Dima%,b%,c%Subp1(x%,y%)DimcAsIntegerx=2x:y=y+2:c=x+yEndSubSubp2(x%,ByValy%)DimcAsIntegerx=2x:y=y+2:c=x+yEndSubPrivateSubCommand1_Click()a=2:b=4:c=6Callp1(a,b)Callp2(a,b)Printa;b;cEndSub

答案： 8 6 6

假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮

答案：第一空： 4321DCBA