|
【2】VBA字符串?dāng)?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í)例-按需定義數(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怎么定義字符串?dāng)?shù)組，怎么賦值 https://zhidao.baidu.com/question/207100427.html 定義字符串?dāng)?shù)組和負(fù)值有兩種方式： 方式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ù)組第三個(gè)值 Str = StrArray(6) '取數(shù)組最后一個(gè)值 Str = StrArray(0) '取數(shù)組第一個(gè)值 ------------ 定義以及賦值一般寫在程序的前面。如果是公共數(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ù)組的上標(biāo) t = ubound(arr) 寫在你的過程里 比如： sub test() dim arr() as string arr(0) = "abcd" '數(shù)組第一個(gè)為 abcd arr(ubound(arr))="dfasudfhuashuiof" '數(shù)組最后一個(gè) end sub 還有這個(gè)是定義靜態(tài)的數(shù)組 ----------- 2）VB 如何定義字符串?dāng)?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 如何定義一個(gè)String類型的動態(tài)數(shù)組？可以用dim A() as string，之后在程序根據(jù)需要redim A(100)重新定義就可以。 注意:使用Preserve參數(shù)時(shí)數(shù)組下界不可以更改,上界可以更改，比如： Dim tStrings() As String ReDim tStrings(0 To 100) ReDim Preserve tStrings(0 To 49) 'Preserve參數(shù)保留數(shù)組原有內(nèi)容。但如縮小了數(shù)組的上界，則后面的元素會丟失。這時(shí)49到100的以后的元素就丟失了。 |
|
|
