【2】VBA字符串數(shù)組賦值動態(tài)數(shù)組  

6/Office 365函數(shù)新世界—動態(tài)數(shù)組  https://www.toutiao.com/i6899619452564947460/?timestamp=1606452847&app=news_article_lite&group_id=6899619452564947460&use_new_style=1&req_id=202011271254060102040260313C1E4397

5/VBA中動態(tài)數(shù)組的定義及創(chuàng)建/今日頭條極速版

4）excel vba真正的動態(tài)數(shù)組實例-按需定義數(shù)組大小

https://blog.csdn.net/lijil168/article/details/12201241

3）Excel 二維動態(tài)數(shù)組怎么定義

https://zhidao.baidu.com/question/1770277973840189660.html

2）Excel ba 中的動態(tài)數(shù)組 怎么定義

https://zhidao.baidu.com/question/205166834564921565.html

1）vb怎么定義字符串數(shù)組，怎么賦值

https://zhidao.baidu.com/question/207100427.html

定義字符串數(shù)組和負值有兩種方式：

方式1：

Dim StrArray()

StrArray = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")

方式2：

Dim StrArray(6) As String

StrArray(0) = "星期一"

StrArray(1) = "星期二"

StrArray(2) = "星期三"

StrArray(3) = "星期四"

StrArray(4) = "星期五"

StrArray(5) = "星期六"

StrArray(6) = "星期日"

調(diào)用數(shù)組值

Dim Str As String

Str = StrArray(2) '取數(shù)組第三個值

Str = StrArray(6) '取數(shù)組最后一個值

Str = StrArray(0) '取數(shù)組第一個值

------------

定義以及賦值一般寫在程序的前面。如果是公共數(shù)組，放在代碼最前面；如果是子程序數(shù)組，則放在子程序定義的后一行，比如：

'公用數(shù)組

Dim StrArray0(6) As String

Private Sub Command2_Click()

'子程序數(shù)組定義賦值方式1

Dim StrArray()

Dim Str As String

StrArray = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")

Str = StrArray(2) '子程序數(shù)組取值

Str = StrArray0(2) '公共數(shù)組取值

End Sub

Private Sub Command3_Click()

'子程序數(shù)組定義賦值方式2

Dim StrArray(6) As String

Dim Str As String

StrArray(0) = "星期一"

StrArray(1) = "星期二"

StrArray(2) = "星期三"

StrArray(3) = "星期四"

StrArray(4) = "星期五"

StrArray(5) = "星期六"

StrArray(6) = "星期日"

Str = StrArray(2) '子程序數(shù)組取值

Str = StrArray0(2) '公共數(shù)組取值

End Sub

Private Sub Form_Load()

'公用數(shù)字賦初始值

StrArray0(0) = "星期一"

StrArray0(1) = "星期二"

StrArray0(2) = "星期三"

StrArray0(3) = "星期四"

StrArray0(4) = "星期五"

StrArray0(5) = "星期六"

StrArray0(6) = "星期日"

End Sub

----------

BBS：dim arr() as string

arr(i) = "abcd"

調(diào)用 比如 想獲得數(shù)組的上標 t = ubound(arr)

寫在你的過程里 比如：

sub test()

dim arr() as string

arr(0) = "abcd" '數(shù)組第一個為 abcd

arr(ubound(arr))="dfasudfhuashuiof" '數(shù)組最后一個

end sub

還有這個是定義靜態(tài)的數(shù)組

-----------

2）VB 如何定義字符串數(shù)組，動態(tài)數(shù)組

https://zhidao.baidu.com/question/62441285.html?qbl=relate_question_1&word=vb%D4%F5%C3%B4%B6%A8%D2%E5%D7%D6%B7%FB%B4%AE%CA%FD%D7%E9%2C%D4%F5%C3%B4%B8%B3%D6%B5

　如何定義一個String類型的動態(tài)數(shù)組？可以用dim A() as string，之后在程序根據(jù)需要redim A(100)重新定義就可以。

　注意:使用Preserve參數(shù)時數(shù)組下界不可以更改,上界可以更改，比如：

Dim tStrings() As String

ReDim tStrings(0 To 100)

ReDim Preserve tStrings(0 To 49)　'Preserve參數(shù)保留數(shù)組原有內(nèi)容。但如縮小了數(shù)組的上界，則后面的元素會丟失。這時49到100的以后的元素就丟失了。