若是有option base XX,例如option base 1,a(3,4)就等價于a(1 To 3,1 To 4),數組就有3*4=12個元素。

創新互聯建站專業IDC數據服務器托管提供商,專業提供成都服務器托管,服務器租用,綿陽服務器托管,綿陽服務器托管,成都多線服務器托管等服務器托管服務。
例如a(3,4),第一維是3,第二維是4,數組就有(3+1)*(4+1)=20個元素,因為這時下界默認是0,等價于a(0 To 3,0 To 4)。
同理,option base 2,a(3,4)就等價于a(2 To 3,2 To 4),數組就有(3-1)*(4-1)=6個元素。
n = (ubound(arr,1) - lbound(arr,1) +1) * (ubound(arr,2) - lbound(arr,2) +1)將數組的名字替換公式中的 arr,就可以計算出個數 n ,與option base 什么的都沒關系。
VBA判斷數組上下限和數組長度(元素個數數組下限,LBOUND(數組) ?結果,一般為0數組上限:UBOUND(數組)數組長度:,UBOUND(數組)-LBOUND(數組)+1。
每行的數字個數不同,你說的這是不規則數組,解決方案如下:
Dim b As String = ""
Dim a As Integer()() = New Integer(9)() {}
a(0) = New Integer() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
a(1) = New Integer() {0, 3, 4, 5}
a(2) = New Integer() {0, 4, 5, 6, 7}
a(3) = New Integer() {0, 6, 5, 8, 9, 1}
a(4) = New Integer() {0, 2, 5, 1, 7}
a(5) = New Integer() {0, 4, 2, 6, 7, 3}
a(6) = New Integer() {0, 4, 5, 3, 2}
a(7) = New Integer() {0, 4, 1, 6, 2, 8, 5, 3}
a(8) = New Integer() {0, 4, 9, 6, 3, 5, 7}
a(9) = New Integer() {0, 1, 5, 9, 7, 6, 2, 4, 3, 8}
For i As Integer = 0 To a.GetUpperBound(0)
b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "個數" vbCrLf
Next
MessageBox.Show(b)
共15個元素。
這是一個二維數組,第一維從3到5(3、4、5),共3個元素;第二維從-2到2(-2、-1、0、1、2),共5個元素
所以,元素個數為3*5=15
Dim
A(1
To
6,
6)
As
String定義的數組包含的元素個數是42
Dim
A(6,
6)
As
Integer定義的數組包含的元素個數是49,二維數組,長寬都是是7
Dim
B(10
To
20)
定義的數組元素個數是11,UBound(數組名)-LBound(數組名)+1,20-10+1=11
a10(5)相當于在一維數組的5個點
b
(3,4)相當于在二維數組里的12個點(x軸上三個點,y軸上四個點)
c
(1
to
5,2
to
4,
3
to
6)相當于在三維數組里的60個點(5×3×4)
dim
a10(5):一維數組,限5;整型
dim
b(3,4):二維,限3,4;整型
dim
c(1
to
5,2
to
4,3
to
6):三維,限5,3,4
                本文題目:vb.net元素個數為 vbnet數組添加元素
                
                轉載源于:http://www.yijiale78.com/article28/ddocjcp.html
            
成都網站建設公司_創新互聯,為您提供網頁設計公司、云服務器、App開發、外貿建站、搜索引擎優化、網站收錄
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯