13问答网 > 生成0~9之间的随机数10个,保存在数组中,分别统计10个数字分别出出现了多少次.

生成0~9之间的随机数10个,保存在数组中,分别统计10个数字分别出出现了多少次.

2025-04-26 23:29:19

推荐回答（1个）

回答1：

Private Sub Command1_Click()
  Randomize
  Dim a(9) As Integer, k(9) As Integer
  For i = 0 To 9
    a(i) = Int(Rnd(i + 1) * 10)
    k(a(i)) = k(a(i)) + 1
    Print a(i);
  Next i
  Print
  For i = 0 To 9
    Print "数字" & i & "出现" & k(i) & "次"
  Next i
  Print
  Print
End Sub