Question

VB 如何定义为二维数组

Dim b
Dim a
Dim s As String
Dim i As Integer
Dim j As Integer
Dim xy() As Integer

Private Sub Command1_Click()
Form1.Cls

Open "f:\1.txt " For Input As #1
Do While Not EOF(1)
Line Input #1, s
Loop
a = Split(s, vbCrLf) '读行
For i = 0 To UBound(a)
b = Split(a(i), ",") ’读取列
'然后怎吗写才能将 a 行 b列中的数据写入到xy()的二位数组中

Close #1
End Sub

Answer 1

VB定义为二维数组的方法如下：

1、可以通过双击代码窗口中的任何控件来创建代码框架。

2、然后就可以开始编写定义语句了。

3、如果忘记了如何编写变量类型，可以在AS之后执行系统搜索。

4、然后便可以给他进行赋值或者输出；

5、请注意，无法重复定义相同的变量名称，如下图所示。

6、另外，不能是数字的开头，图片也是错误的。

Answer 2

1、我们双击任何一个控件进入代码窗口，都可以创建一个代码框架。

2、然后我们便可以开始编写定义语句。

3、我们如果忘了变量类型怎么写，可以在AS后进行系统查找。

4、然后我们便可以给他进行赋值或者输出。

5、注意，相同的变量名不能重复定义，如下图是错的。

6、另外，不能是数字开头，如图也是错的。

Answer 3

数组

使用数组可以缩短和简化程序，因为可以利用索引值设计一个循环，高效处理多种情况。数组有上界和下界，数组的元素在上下界内是连续的。

多维数组

有时需要追踪记录数组中的相关信息。例如，为了追踪记录计算机屏幕上的每一个像素，需要引用它的 X、Y 坐标。这时应该用多维数组存储值。

可用 Visual Basic 声明多维数组。例如，下面的语句声明了一个过程内的 10 × 10 的二维数组。

Static MatrixA (9, 9) As Double
可用显式下界来声明两个维数或两个维数中的任何一个：

Static MatrixA (1 To 10, 1 To 10) As Double
可以将所有这些推广到二维以上的数组。例如：

Dim MultiD (3, 1 To 10, 1 To 15)
以下代码声明了一个二维Integer数据类型数组，含有5 * 6个元素，共30个。

Option Explicit
    Dim sj(4, 5) As Integer

Answer 4

第一，Loop放在上面肯定不行，这样你只读到了文本的最后一行。
第二，文本共有多少段，每段有多少列，是否每一段都是相同的列数等未知，所以难以在程序中对变量进行重新定义。建议一开始定义好，变量可以取值大一点。
Dim b
Dim a
Dim s As String
Dim i As Integer
Dim j As Integer
Dim xy(100, 100)

Private Sub Command1_Click()
Form1.Cls

Open "d:\1.txt " For Input As #1
Do While Not EOF(1)
Line Input #1, s

a = Split(s, vbCrLf) '读行
For i = 0 To UBound(a)
b = Split(a(i), "，") '读取列
'然后怎吗写才能将 a 行 b列中的数据写入到xy()的二位数组中
For j = 0 To UBound(b)
xy(i, j) = b(j)
Next j
Next i
Loop
Close #1
End Sub

追问

xy(i, j) = b(j)
类型不匹配怎嘛办
我想设置一个行列均不确定的二维数组

追答

Dim b
Dim a
Dim s, X As String
Dim i As Integer
Dim j As Integer
Dim xy() As String

Private Sub Command1_Click()
Form1.Cls

Open "d:\1.txt " For Input As #1
Do While Not EOF(1)
Line Input #1, X
j = j + 1
s = s & X & vbCrLf
Loop
'Text1 = s
Close #1

ReDim xy(j, 10)

a = Split(s, vbCrLf) '读行
For i = 0 To UBound(a)
b = Split(a(i), ",") '读取列
'然后怎吗写才能将 a 行 b列中的数据写入到xy()的二位数组中
For j = 0 To UBound(b)
xy(i, j) = b(j)
Text1 = Text1 & xy(i, j) & vbCrLf
Next j
Text1 = Text1 & vbCrLf & vbCrLf
Next i

End Sub

Text是我测试输出的，已注释掉了

Answer 5

又改了一下，
你试一试这样

Private Sub Command1_Click()
Form1.Cls

Open "f:\1.txt " For Input As #1
Do While Not EOF(1)
Line Input #1, s
Loop
a = Split(s, vbCrLf) '读行
b = Split(a(0), ",")
ReDim xy(UBound(a), 0)

For i = 0 To UBound(a)
b = Split(a(i), ",") '读取列
'然后怎吗写才能将 a 行 b列中的数据写入到xy()的二位数组中
If UBound(b) > UBound(xy, 2) Then
ReDim Preserve xy(UBound(a), UBound(b))
End If
For j = 0 To UBound(b)

xy(i, j) = b(j)

Next

Next

Close #1
End Sub

追问

xy(i, j) = b(j)
类型不匹配
我想设置一个行列均不确定的二维数组