a(j)=a(j+1):
a(j+1)=t
Nextj
Nexti
Fori=1Ton
Picture2.Printa(i);Spc
(1)
Nexti
EndSub
PrivateSubForm_Load()
Text1=""
EndSub
21、随机产生10个[30,100]内的整数,求最大值、最小值和平均值。
PrivateSubForm_click()
Dima(1To10)AsInteger,i%,maxa%,mina%,aver!
Fori=1To10
a(i)=Int(Rnd*71+30)
Nexti
mina=a
(1)
maxa=a
(1)
avera=a
(1)
Fori=2To10
Ifa(i)>maxaThenmaxa=a(i)
Ifa(i)avera=avera+a(i)
Nexti
Fori=1To10
Printa(i)
Nexti
Print
Print"max=";maxa,"min=";mina,"aver=";avera/10
EndSub
22(维数错误!
!
!
!
!
!
!
!
!
)、定义三个4×4的二维数组A,B,C,A和B中的元素均随机生成,
数组A的范围是1~20,数组B的范围是100~200,数组C是A和B相乘得到的。
请编程生成并输出A,B,C。
PrivateSubForm_click()
Dima%(1To4,1To4),b%(1To4),c%(1To4,1To4)
Print"数组A"
Fori=1To4
Forj=1To4
a(i,j)=Int(Rnd*20+1)
PrintTab(j*4);a(i,j);
Nextj
Print
Nexti
Print"数组B"
Fori=1To4
Forj=1To4
b(i,j)=Int(Rnd*100+100)
PrintTab(j*6);b(i,j)
Nextj
Print