请教一个很简单的问题。

Question

1-100 范围
随机抽取1000次
然后输出1-100每个数字的出现次数

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  Dim ArrCount(1 To 100) As Long
  Dim ArrData(1 To 1000) As Long
  Dim i As Long
  Randomize (Timer)
  
  '随机取得1000位1至100之间的数
  For i = 1 To 1000
     ArrData(i) = Int(Rnd(1) * 99) + 1
  Next
  
  '统计1000位数中每个数据出现的次数
  
  For i = 1 To 1000
     ArrCount(ArrData(i)) = ArrCount(ArrData(i)) + 1
  Next
  
  '读出每个数据出现的次数
  For i = 1 To 100
    Debug.Print "数据" & i & "出现了" & ArrCount(i) & "次。"
  Next
End Sub

Answer 2

    Dim a(1 To 100) As Long
    Dim r As Long
    Dim i As Long
    
    Randomize
    For i = 1 To 1000
        r = Int(Rnd * 100) + 1
        a(r) = a(r) + 1
    Next
    
    '输出
    For i = 1 To 100
        Debug.Print i; a(i)
    Next

Answer 3

r = Int(Rnd * 100) + 1 '可能跑出个101
 

Answer 4

Rnd * 100 应该是0到99吧
查了下公式应该是:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Answer 5

不会,我错了.应该是这样./Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式

Answer 6

int(Rnd * 100) 应该是0到99吧 
查了下公式应该是: 
Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 

Answer 7

thanks
怎么给分？
我是新手