在 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

nextfor 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 exit do

end if

loop next

msgbox "您要查詢的號碼" +cstr(mysearchnum)+"出現"+cstr(rndnumcount)+"6 位數字的個數為："+cstr(searchnumcount)+"次！ "

end function

dim num as long

num=0for i=1 to n

for j=0 to 5

如果 array（j） = 你要找的數字，那麼 num=num+1下乙個 j

next i

num 的值是您要查詢的出現次數。

首先，找到每個陣列中出現的值的次數，然後將這些值相加，僅此而已，為您提供乙個小想法，您應該可以通過檢視 VB 教程來做到這一點。

1，2，3，4...9 依次迭代 n 個陣列。

這個演算法有點慢，你可以查一些關於找演算法的資訊！

寫更多**。 做大量的線上研究。 問別人怎麼實現，肯定沒問題，VB很簡單！