VB陣列中的元素累加,但是元素的個數不確定,怎麼做

2025-07-13 14:50:06 字數 2671 閱讀 9377

1樓:匿名使用者

vb6中資料組元素的上標下標可以用lbound()\ubound()兩個函式來實現,就可以實現元素個數不確定的相加了,也可以用for each迴圈實現,不知道你的程式需求是什麼。可以給你個例子dim t

sum = 0for each t in fssum= sum + t

next這樣,你不知道fs的元素個數也可以執行或者 sum = 0for i = lbound(fs) to ubound(fs)sum = sum + fs(i)

next i

vb中,如何判定乙個數是否屬於乙個陣列中的元素呢?

2樓:閃星

用 for next 遍歷陣列元素,用 if then 比較。

3樓:網友

通過迴圈的方式比較這個數是否和當前的陣列元素一致。

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 '定義乙個迴圈變數for i=0 to ubound(a) '迴圈陣列a,獲取裡面的每個元素。

if a(i)=4 then

4在陣列中。

end if

next i

4樓:網友

有,vb6沒有,通用的方式就是遍歷陣列比較一下,找到就退出,幾行**而已。

vb中如何獲得陣列元素中個數

5樓:網友

你要取的實際值吧?

你已經定義a(10) 那他所有元素就是10個。 你要判斷其他是否空值 就用迴圈判斷。

s=0for i=0 to 9

if a(i)<>"" then s=s+1next

print "陣列共有有效元素:";s

vb題目,有關陣列中的元素個數的

6樓:

vb預設的陣列下界是0, dim a(3,-2 to 2,5) 相當於 dim a(0 to 3, -2 to 2, 0 to 5)

陣列a第一維長度為4,第二維長度為5,第三維長度為6,元素的個數為4*5*6=120

如果通用宣告區有 option base 1 ,則預設陣列下界是1,這時陣列a的元素個數為75

計算陣列元素個數的**:

n = 0for each i in a

n = n + 1

nextmsgbox "陣列a包含的元素的個數為 " & n

vb如何判斷乙個動態生成的控制項陣列的控制項個數?

7樓:尚心部落

判斷元素個數:

若想改變控制項陣列中元素的個數,只能是load或者unload

8樓:網友

返回陣列長度用ubound(text())可不可以?

動態生成的控制項只能用unload釋放,否則在窗體銷燬時釋放。

vb一些計算式的計算結果如果與陣列中某元素相同,則統計該結果的數量

9樓:涐吢銥舊囿儚

你說的「則給該元素計數,最後把該陣列沒一元素的統計數列出來」,沒明白是什麼意思。

vb中,我從乙個系統中取到一些數值,但是個數不確定,如何儲存到陣列中?跪求!!

10樓:網友

可以先定義乙個動態陣列,再根據情況定義陣列的下標。

如:dim a() as integer, i as integerfor i = 1 to 10

redim preserve a(i)

a(i) = i

next i

11樓:網友

我給你做了個函式,呼叫方法也寫了。記得全域性變數不能少。

dim count as integer

dim a()

private sub command1_click()geta (5)

end sub

private sub form_load()count = -1

end sub

private sub geta(byval num as double)

count = count + 1

redim preserve a(count)a(count) = num

end sub

12樓:網友

定義動態陣列,然後用redim preserve重定義陣列。

13樓:網友

發跪著的**以及身份證確認。

vb中計算任意一位陣列元素個數的公式是

14樓:匿名使用者

對於一維陣列a

元素個數為 ubound(a)-lbound(a)+1

vb 計算陣列中相同元素的個數

15樓:網友

我想,除了遍歷陣列成員別無他法了。

元素的陣列。隨機所有元素並排序vb編寫

private sub mand1 click randomize dim a 20 as integer for i 1 to 20 a i int rnd 101 100 print a i next i for i 1 to 20 for j 1 to 20 i if a j a j 1 th...

vb程式設計 一維陣列中刪除乙個元素,動態陣列,哪裡出錯了

很多地方都出錯了。第乙個迴圈之前a 沒有redim,迴圈中用a i 的話必然出錯。第二迴圈之前的redim a to n 中的n沒有賦值,預設為,那麼實際上就是redim a to 出錯。其他的錯誤跟這個兩個主要的有關。刪除一維陣列重的某個元素 vb 出錯 急急 a j a j 這裡有錯,應該是a ...

vb計算題定義有元素的陣列,vb計算題定義一個有10個元素的陣列

private sub mand1 click randomize dim a 9 as integer dim min as integer,mini as integer for i 0 to 9 a i int rnd 100 60 1 60 if min a i then min a i m...