Question

vb 程序的编写

Private Sub Form_Click()
Dim tmp As String
Dim arr() As String

tmp = "1 12 23"
If tmp <> "" Then
arr = Split(tmp, vbTab)
End If
Text1.Text = arr(1)

End Sub
为何运行提示下标越界 哪里有问题
我想要的是text中显示12
谢谢了

Answer 1

Dim tmp As String
Dim arr() As String

tmp = "1 12 23"
If tmp <> "" Then
arr = Split(tmp, " ") '这里把vbtab改为一个空白字符就OK了。用VBTAB分出来结果只有一个整串，就是arr(0)="1 12 23",,没有arr(1)，所以下标越界
End If
Text1.Text = arr(1)

Answer 2

程序本身没有什么问题，是你提供的样本数据有问题：
tmp = "1 12 23"应该修改为tmp="1" & chr(9) & "12" & chr(9) & "23"

Answer 3

数组变量应用错误呗
Private Sub Form_Click()
Dim tmp As String
Dim arr() As String

tmp = "1 12 23"
If tmp <> "" Then
Redim arr(1)
arr(1) = Split(tmp, vbTab)
End If
Text1.Text = arr(1)
End Sub

Answer 4

arr(0)