先说说你的想法吧

或者你做过不成功的方法

没弄懂你的意思，哪个数字在各数组中出现的次数啊？

循环来查找可以吗？

应该可以利用循环你那几个数组来找的!

是作业吗？这个问题看似简单，实际上有一定难度。代码如下：

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer
Dim k As Integer, n As Integer, i As Integer, j As Integer, L As Integer

Randomize
k = 10  '数组元素个数
n = 100 '允许的最大值
ReDim a(1 To k), b(1 To n) '重定义数组下标，注意a、b的不同

For i = 1 To k: a(i) = (n * Rnd) + 1: Next '为数组赋值

For i = 1 To k: Debug.Print a(i) & ",";: Next: Debug.Print: Debug.Print '这一行让你看看是些什么数，可以删除

For i = 1 To k: j = a(i): b(j) = b(j) + 1: Next '统计

For i = 1 To n: Debug.Print i & "的出现次数：" & b(i): Next '这是一种显示方式

Debug.Print

For j = 0 To k '这是另一种显示方式
  L = 0
  Debug.Print "出现次数=" & j; "的数是：";
  For i = 1 To n
    If b(i) = j Then L = L + 1: Debug.Print i & ",";
  Next
  Debug.Print "（共" & L & "个）"
Next

End Sub