VB確定陣列，如何確定乙個數字是否在VB中的陣列中

dim a(7) as string

dim b(11) as string

dim c as string

dim i, j, k as integerc = ""

k = 0a(0) = 0

a(1) = 4

a(2) = 8

a(3) = 9

a(4) = 3

a(5) = 2

a(6) = 5

a(7) = 6

b(0) = 1

b(1) = 2

b(2) = 3

b(3) = 2

b(4) = 1

b(5) = 2

b(6) = 3

b(7) = 5

b(8) = 8

b(9) = 7

b(10) = 9

b(11) = 5

for i = 0 to 7

for j = 0 to 11

if a(i) k = k + 1

if k = 12 then

c = c & "" & a(i)

end if

end if

next j

k = 0next i

msgbox c

只需將上述程式放在單個控制項上即可。

private sub command1_click()dim number_find as integerdim yuansu as variantdim i as integer

dim mydim(100) as integerdim number_in_dimension as booleannumber_in_dimension=falsenumber_find=50

for i=1 to 100

mydim(i)=i

nextfor each yuansu in mydimif yuansu=number_find thennumber_in_dimension=trueend if

nextif number_in_dimension thenmsgbox("數字在陣列中")

elsemsgbox（“數字不在陣列中")

end if

end sub

如果你對速度有很高的要求，你可以使用二叉樹等經典演算法來實現這一點。

如果只想查詢資料，可以使用迴圈查詢資料。

對於每個迴圈，此迴圈專門設計用於檢查陣列，並且只能檢查，而不能寫入。

您還可以使用字典的 exists 方法，該方法比以前的方法更簡單。

一：使用錯誤捕獲功能進行判斷。

dim arrays() as stringprivate sub command1_click()on error goto z

if ubound(arrays) >1 thenmsgbox "陣列不為空"

end if

z:msgbox "陣列為空"

end sub

2.加入方式：

dim arrays() as stringprivate sub command1_click()if (cstr(join(arrays, "")))= "" then

msgbox "為空"

elsemsgbox "不為空"

end if

end sub

ubound 函式。

ubound 函式的示例。

該示例使用 ubound 函式來確定陣列的給定維度的最大可用下標。

dim upper

dim myarray(1 to 10, 5 to 15, 10 to 20) '宣告陣列變數。

dim anyarray(10)

upper = ubound(myarray, 1) '返回 10。

upper = ubound(myarray, 3) '返回 20。

upper = ubound(anyarray) '返回 10。

你寫錯了表示式、

dim aa = split(, vbcrlf)

shiji = ubound(a)

ubound（a） 返回陣列的數量，從 0 開始。

technorati tag： vb， empty arrays對於空陣列，如果使用 ubound（arr），則會出現錯誤：錯誤的下標。

有沒有辦法在使用動態陣列之前檢視它是否初始化？ 嘗試過是空的，是空的，只不過是工作。 如果之前不想使用 redim arr（0），則只能使用錯誤處理，在發生錯誤時進行處理，然後繼續。

暫時沒有更好的方法可以做到這一點。

使用 ubound 時會發生錯誤，空時會發生錯誤。

使用以下方法。

我正在使用它。 if （cstr（join（陣列，"")))"" then

只要有 12 個元素，DIM B（0 到 2,0 到 3）就有 0,1,2=3 0,1,2,3=4 3*4=12。

調暗 A（1 到 100），因為字串有 100 個元素 1-100 = 100。

調暗 A （2，-2 到 As 整數 0,1,2=3 -2，-1,0,1=4 3*4=12。

dim（3,4） 有 20 個元素。 0,1,2,3=4 0,1,2,3,4=5 4*5=20.

使用 for next 遍歷陣列元素，並與 if then 進行比較。

通過迴圈比較此數字是否與當前陣列元素一致。

1. 定義乙個陣列。

dim a(3) as integer '定義乙個陣列（包含四個數字），預設上限為 a（0）。

a(0)=2 '為 a（0） 賦值。

a(1)=3

a(2)=4

a(3)=5

2. 在陣列中找到 4

dim i as integer '定義乙個迴圈變數，將 i=0 設定為 ubound（a）。'遍歷陣列 a 以獲取其中的每個元素。

if a(i)=4 then

陣列中的 4。

end if

next i

是的，VB6 沒有，常見的方法是遍歷陣列進行比較，找到它並退出，幾行**。