Question

VB定义多维数组，并作一些统计计算

已知数组如下:
04 07 11 15 16 17
01 03 07 11 19 30
01 09 14 20 23 31
03 08 11 14 25 29
01 06 07 14 18 30
01 11 20 31 32 33
01 16 22 25 26 30
说明：以上共7个数组，每个数组含6个元素，且每个数组中的元素已经从小到大排列好了，每个元素都是数值型的（1写成了01是为了整齐）

请各高手帮我编个程序，要求如下：
1.定义一个动态数组，即上面所给的数组共7个，如果再添加一个数组：
01 03 04 08 11 30
就变成了8个数组，只要改变程序中的某个参数就可以了
2.统计（或计算）这7个数组，要求在同一个数组中第一个元素是01、最后一个元素是30，满足这样的数组共有几个？并要求显示出来。

（说明：通过人工统计可以看出，满足条件的数组共有3个，它们分别是：
01 03 07 11 19 30
01 06 07 14 18 30
01 16 22 25 26 30
如果再增加一个数组：01 03 04 08 11 30
则共有8个数组，则满足条件第一个元素是01、最后一个元素是30的数组共有4个，它们分别是：
01 03 07 11 19 30
01 06 07 14 18 30
01 16 22 25 26 30
01 03 04 08 11 30
请你用程序表达出来!

请各位高手帮我编个程序，要求如下：
1.定义一个数组，每个数组的元素都含6个元素，

Answer 1

输入数据到数组比较麻烦,不知道你的数据是存在哪里的,给个例子,假设数据是存在文本框里,而且是用一个空格分割的

Private Sub Command1_Click()
Dim Suzu() As String
Dim Su1() As String, Su2() As String
'读入数据到数组Suzu
Su1 = Split(Text1, vbCrLf) '假设数据是在text1里
nn = UBound(Su1)
ReDim Suzu(nn, 5)
For i = 0 To nn
Su2 = Split(Su1(i), " ")
If UBound(Su2) = 5 Then
For j = 0 To 5
Suzu(i, j) = Su2(j)
Next
End If
Next

'显示要求的数据
Text2 = ""
For i = 0 To nn
If Suzu(i, 0) = "01" And Suzu(i, 5) = "30" Then
For j = 0 To 5
Text2 = Text2 & Suzu(i, j) & " "
Next
Text2 = Text2 & vbCrLf
End If
Next

End Sub