VB100到200之间随机产生25个数字,5*5排列,要一维和二维两种方法

Question

VB100到200之间随机产生25个数字,5*5排列,要一维和二维两种方法

Answer 1

Private Sub Command1_Click()
' 一维
Dim mArr%(1 To 25), i%
For i = 1 To 25
Randomize
mArr(i) = Int(Rnd * 101) + 100
Print mArr(i),
If i Mod 5 = 0 Then Print
Next i
End Sub
Private Sub Command2_Click()
'二维
Dim mArr2(1 To 5, 1 To 5), r%, c%
For r = 1 To 5
For c = 1 To 5
Randomize
mArr2(r, c) = Int(Rnd * 101) + 100
Print mArr2(r, c),
Next c
Print
Next r
End Sub