vb 数组 赋值 数组切割
时间: 2023-10-06 21:08:38 浏览: 74
在VB中,你可以使用Split函数来切割字符串。Split函数的语法是:变量 = Split(原字符串变量, 切割标志)。其中,原字符串变量是需要切割的字符串,切割标志是指定切割位置的字符或字符串。Split函数会将原字符串根据切割标志分割成多个小字符串,并将这些小字符串存储在一个数组中。
另外,在VB中,你可以使用Array函数来定义一个数组。Array函数的语法是:数组 = Array(数值1, 数值2, 数值3, ...)。这个函数会返回一个包含指定数值的数组。
下面是一些关于使用Split和Array的示例代码:
1. 使用Split函数的例子:
```
Private Sub Form_Load()
Dim a
x = "22.214 214.121 1546"
a = Split(x)
For i = 0 To UBound(a)
MsgBox "第" & i + 1 & "段是" & a(i)
Next i
End Sub
```
2. 使用Array函数的例子:
```
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i - 1))
Next i
Sort arr2()
Text1.Text = arr2(1)
Text2.Text = arr2(2)
Text3.Text = arr2(3)
Text4.Text = arr2(4)
End Sub
```
需要注意的是,使用Array函数定义的数组的下标是随意的,并非从0开始;而使用Split函数得到的数组的下标必然是从0开始。
如果你想在VB中将一个长字符串按照空格进行分割,并将分割得到的小字符串赋值给一个数组,你可以使用类似下面的代码:
```
Dim ReDate() As String
ReDate = Split(TextBox1.Text, " ")
```
在这个例