Question

在VB中如何从1到100任意选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