Dima()AsInteger，i%，imax%，max%Label.Text=“”Fori=Toa(i)=Int(Rnd()*+)Label.Text&=a(i)&””Nextmax=a()imax=Fori=ToIfa(i)>maxThenmax=a(i)imax=__EndIfNextMsgBox(“最大值”&max&“下标”&imax)