vb,产生10个个位数互补相同的三位随机正整数,并存放在下标与其个位数相同的数组
1个回答

Private Sub Command1_Click()

Dim m(9) As Integer

Randomize

For i = 1 To 10

abc = Int(Rnd * 900) + 100

Do While m(abc Mod 10) 0

abc = Int(Rnd * 900) + 100

Loop

m(abc Mod 10) = abc

Next i

For i = 1 To 10

Print m(i - 1)

Next i

End Su