vb基础问题21、*求一维数组A
正确代码如下:PrivateSubCommand启动_Click()Dima(20)AsInteger,iAsInteger,averAsIntegerDimmaxAsInteger,minAsIntegeraver=0Fori=1To20a(i)=Int(90*Rnd)+10Printa(i);aver=aver+a(i) /20Print"aver=";avermax=0:min=100Fori=1To20Ifa(i)>averThenIfa(i)>maxThenmax=a(i)Ifa(i)全部
正确代码如下:PrivateSubCommand启动_Click()Dima(20)AsInteger,iAsInteger,averAsIntegerDimmaxAsInteger,minAsIntegeraver=0Fori=1To20a(i)=Int(90*Rnd)+10Printa(i);aver=aver+a(i) /20Print"aver=";avermax=0:min=100Fori=1To20Ifa(i)>averThenIfa(i)>maxThenmax=a(i)Ifa(i) 收起