大家好,如果您還對vb字符串轉數組不太了解,沒有關系,今天就由本站為大家分享vb字符串轉數組的知識,包括vb截取字符串的當中一段的問題都會給大家分析到,還望可以解決大家的問題,下面我們就開始吧!
VB里面怎么給一個字符數組批量賦值,或者字節數組
1、必須滿足的條件:如果文本框是數組控件,聲明的數組必須和文本框對應;如果文本框不是數組控件,聲明的數組必須和文本框的個數相符;如果聲明的數組是動態的,必須聲明數組的下標。
2、數組的聲明(以20個文本框為例):靜態數組:DimAA(1To20)AsString;動態數組:DimAA()AsString;在后面定義數組下標,ReDimAA(1To20)
3、為數組賦值:文本框為20個數組控件:ForI=1To20AA(I)=Text1(I-1).Text'注意:I-1是文本框數組是從0開始的,20個文本框數組控件下標最小為0,最大為19。'在執行上面語句,文本框的內容賦值給數組了。NextI文本框不是數組控件,要逐一賦值,這個就不一一列舉了。
4、如果是將一個文本框的內容分別賦值給數組,又是另外的情況,需要根據你的要求才能決定,由于不知你是什么情況,所以不好回答。
vb中哪幾個語句聲明數組
Adima[3,4]asinteger中括號在VB里面不能用來聲明數組,在C語言中可以,如:inta[3,4]; bdima(3,4)asinteger正確的聲明 cdima(m,n)asinteger變量是不確定的值,不能用于數組的聲明 ddim(3,4)asinteger這根本就不是個數組在VB中聲明數組形式可以有:dima(3,4)asinteger定義一個整形的二維數組dima(3,4)沒有定義它的類型,默認為變體型dima()asinteger定義一個空的整形數組,稱為動態數組,在以后的代碼中你可以根據這個重新定義靜態數組,比如:redima(3,4)dima()定義一個空的數組,默認為變體型,方法跟上面差不多
vb怎么反轉一個一維數組
DimfileNameAsStringDimstartnumber%,endnumber%ConstMyFile=1Dimi%DimT()OpenfileNameForInputAs#MyFile'打開文件Input#MyFile,startnumber,endnumber'讀文件RedimT(endnumber-startnumber)Fori=startnumberToendnumberInput#MyFile,T(i)NextiClose#MyFile'關文件
VB怎么聲明數組
DimCounters(14)AsInteger'15個元素。
DimSums(20)AsDouble'21個元素。
為建立公用數組,直接用Public取代Dim。
PublicCounters(14)AsInteger
PublicSums(20)AsDouble
在過程之中同樣的聲明使用Dim:
DimCounters(14)AsInteger
DimSums(20)AsDouble
第一個聲明建立了一個有15個元素的數組,其索引號從0到14。第二個聲明建立了一個有21個元素的數組,其索引號從0到20。缺省的下界為0。
為了規定下界,用關鍵字To顯式提供下界(為Long數據類型):
DimCounters(1To15)AsInteger
DimSums(100To120)AsString
包含其它數組的數組
PrivateSubCommand1_Click()
DimintXAsInteger'聲明計數器變量。
'聲明并放置整數數組。
DimcountersA(5)AsInteger
ForintX=0To4
countersA(intX)=5
NextintX
'聲明并放置字符串數組。
DimcountersB(5)AsString
ForintX=0To4
countersB(intX)="hello"
NextintX
DimarrX(2)AsVariant'聲明擁有兩個成員的新數組。
arrX(1)=countersA()'將其它數組移居到數組。
arrX(2)=countersB()
MsgBoxarrX(1)(2)'顯示每一個數組的成員。
MsgBoxarrX(2)(3)
EndSub
多維數組
有時需要追蹤記錄數組中的相關信息。例如,為了追蹤記錄計算機屏幕上的每一個像素,需要引用它的X、Y坐標。這時應該用多維數組存儲值。
可用VisualBasic聲明多維數組。例如,下面的語句聲明了一個過程內的10×10的二維數組。
StaticMatrixA(9,9)AsDouble
StaticMatrixA(1To10,1To10)AsDouble
DimMultiD(3,1To10,1To15)
這個聲明建立了三維數組,大小為4×10×15。元素總數為三個維數的乘積,為600。
注意在增加數組的維數時,數組所占的存儲空間會大幅度增加,所以要慎用多維數組。使用Variant數組時更要格外小心,因為他們需要更大的存儲空間。
用循環操作數組
DimIAsInteger,JAsInteger
StaticMatrixA(1To10,1To10)AsDouble
ForI=1To10
ForJ=1To10
MatrixA(I,J)=I*10+J
NextJ
NextI
要創建動態數組,請按照以下步驟執行:
(如果希望數組為公用數組,則)用Public語句聲明數組,或者,(如果希望數組為模塊級,則)在模塊級用Dim語句聲明數組,或者(如果希望數組為局部數組,則)在過程中用Static或Dim語句聲明數組。給數組附以一個空維數表,這樣就將數組聲明為動態數組。
DimDynArray()
用ReDim語句分配實際的元素個數。ReDimDynArray(X+1)
ReDim語句只能出現在過程中。與Dim語句、Static語句不同,ReDim語句是一個可執行語句,由于這一語句,應用程序在運行時執行一個操作。
ReDim語句支持這樣的語法,它與固定數組中使用的語法相同。對于每一維數,每個ReDim語句都能改變元素數目以及上下界。但是,數組的維數不能改變。
ReDimDynArray(4to12)
例如,用第一次聲明在模塊級所建立的動態數組Matrix1:
DimMatrix1()AsInteger
SubCalcValuesNow()
ReDimMatrix1(19,29)
EndSub
ReDim語句給Matrix分配一個20×30的整數矩陣(元素總大小為600)。還有一個辦法,用變量設置動態數組的邊界:
ReDimMatrix1(X,Y)
注意您可以將字符串賦值給大小可變的字節數組。一個字節數組也可以被賦值給一個可變長的字符串。一定要注意字符串中的字節數會隨平臺而變化。同一個字符串在Unicode平臺上的字節數是它在非Unicode平臺上的兩倍。
保留動態數組的內容
每次執行ReDim語句時,當前存儲在數組中的值都會全部丟失。VisualBasi重新將數組元素的值置為Empty(對Variant數組)、置為0(對Numeric數組)、置為零長度字符串(對String數組)或者置為Nothing(對于對象的數組)。
,這樣做是非常有用的。有時希望改變數組大小又不丟失數組中的數據。使用具有Preserve關鍵字的ReDimPreserveDynArray(UBound(DynArray)+1)
ReDimPreserveMatrix(10,UBound(Matrix,2)+1)
而不可這樣編程:
ReDimPreserveMatrix(UBound(Matrix,1)+1,10)
vb判斷數組
一:利用錯誤捕獲功能判斷
DimArrayS()AsString
PrivateSubCommand1_Click()
OnErrorGoToz
IfUBound(ArrayS)>-1Then
MsgBox"數組不為空"
EndIf
z:
MsgBox"數組空"
EndSub
二、Join方法:
DimArrayS()AsString
PrivateSubCommand1_Click()
If(CStr(Join(ArrayS,"")))=""Then
MsgBox"為空"
Else
MsgBox"不為空"
EndIf
EndSub
好了,關于vb字符串轉數組和vb截取字符串的當中一段的問題到這里結束啦,希望可以解決您的問題哈!