PrivateSubCommand1_Click()
\'一维
DimmArr%(1To25),i%
Fori=1To25
Randomize
mArr(i)=Int(Rnd*101)100
PrintmArr(i),
IfiMod5=0ThenPrint
Nexti
EndSub
PrivateSubCommand2_Click()
\'二维
DimmArr2(1To5,1To5),r%,c%
Forr=1To5
Forc=1To5
Randomize
mArr2(r,c)=Int(Rnd*101)100
PrintmArr2(r,c),
Nextc
Print
Nextr
EndSub |