Question

程序的功能为产生10个个位数互不相同的两位随机正整数,并存放到下标与其个位数相同的数组元素中.请完成程

Answer 1

Dim a(0 To 9) As Integer

Private Sub Command1_Click()

For i = 0 To 9

Randomize

a(i) = Int(Rnd * 9 + 1) & i

Next

End Su