vb 数组 赋值 数组切割

在VB中，你可以使用Split函数来切割字符串。Split函数的语法是：变量 = Split(原字符串变量, 切割标志)。其中，原字符串变量是需要切割的字符串，切割标志是指定切割位置的字符或字符串。Split函数会将原字符串根据切割标志分割成多个小字符串，并将这些小字符串存储在一个数组中。
另外，在VB中，你可以使用Array函数来定义一个数组。Array函数的语法是：数组 = Array(数值1, 数值2, 数值3, ...)。这个函数会返回一个包含指定数值的数组。
下面是一些关于使用Split和Array的示例代码：

使用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
登录后复制

使用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, " ")
登录后复制
在这个例