用VB写一个函数

来源：百度知道 编辑：UC知道 时间：2024/07/02 01:12:06
10个数组,每个数组里面都有6个值。例如：
a()=278145
b()=401725
c()=463512
d()=523147
e()=648912
f()=278145
g()=391245
h()=587124
i()=710245
j()=587124

我想得到的结果是：取一个值的出现次数。

比如我想知道5这个值在10个数组中出现了多少次.
比如我想知道7这个值在10个数组中出现了多少次.
等等.....
有可能是不定数量的数组，N个数组，数组里面的值是6个
要详细函数代码。

在上班的时候偷偷打开VB给你写的，测试没有问题的，祝你成功！！！！！
'参数说明：RndNumCount，6位数的个数；MySearchNum，要找的那个数字
Private Function SearchNumCount(ByVal RndNumCount As Integer, ByVal MySearchNum As Integer) As Integer
Dim i As Integer '6位数的个数
Dim j As Long '随机6位数的值
Dim a As Integer '当前查询的6位数
Dim start As Integer '查询的起始位置
Dim temp As Integer '临时位置
Dim length As Integer'要查数字的长度(为1)
ReDim mArray(RndNumCount - 1) '定义参数个长度的数组
Randomize '随机数种子

For i = 0 To RndNumCount - 1 '将随机6位数赋值给数组
j = clng(999999 * Rnd + 100000)
mArray(i) = j
Next

For a=0 to RndNumCount-1 '循环取得数组中要查询数的出现次数
start=1
length=Len(MySearchNum)
Do
temp=Instr(start,mArray(a),MySearchNum)
If temp<>0 then
SearchNumCount = SearchNumCount + 1
start=temp+length
Else <