Question

vb 怎样把文本框txt1中的数据输入二维数组

01 23 12 15 18 13..... 22
.......
.......
02 08 09 23 65 33......14
.......
几百行，几百列
先谢谢回答！
不明白输入到数组后显示出来的数前面的 "0" 不见了 。
我是新手，好像要处理字符串二维数组才能得到 01 02 08 09 008 034

Answer 1

'Text1中的数据以Tab和回车间隔，每行的Tab数量一样多

Private Sub Command1_Click()
On Error Resume Next
Dim m As Long, n As Long
m = UBound(Split(Text1.Text, vbCrLf))
n = UBound(Split(Split(Text1.Text, vbCrLf)(0), vbTab))
ReDim a(m, n) As String
For i = 0 To m
For j = 0 To n
a(i, j) = Split(Split(Text1.Text, vbCrLf)(i), vbTab)(j)
Next
Next
For i = 0 To 1
For j = 0 To 2
s = s & a(i, j) & " "
Next
s = s & vbCrLf
Next
MsgBox s
End Sub

Answer 2

你数组肯定是定义为数字型，他会自动把0去掉，你要把数组定义为string

Answer 3

0不见了，是因为你定义的数据类型不是string类型

Answer 4

定义成string就不会掉0了

Answer 5

使用split分割为数组 然后依次赋值