level 5
用arraylist这个东东吧。设置两个变量,当个二维数组用。
Dim li1 As New ArrayList : Dim li2 As New ArrayList
li1.Add("一维一") : li2.Add("一维二")
li1.Add("二维一") : li2.Add("二维二")
For x = 0 To li1.Count - 1
Textrz.Text = li1(x) & ";" & li2(x) & vbCrLf
Next
2018年11月26日 08点11分