189 8069 5689
窗体上添加3个标签，1个按钮，在按钮的单击事件里写代码，如下：
成都创新互联是一家成都网站建设、成都做网站，提供网页设计，网站设计，网站制作，建网站，按需策划，网站开发公司，2013年开创至今是互联行业建设者，服务者。以提升客户品牌价值为核心业务，全程参与项目的网站策划设计制作，前端开发，后台程序制作以及后期项目运营并提出专业建议和思路。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(,) As Integer = {{5, 6}, {1, 3}, {8, 9}, {72, 1}, {63, 4}}
Dim Temp As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer
'显示排序前的数据
Label1.Text = "排序前数据：" vbCrLf
For i = 0 To 4
Label1.Text = Label1.Text a(i, 0) " " a(i, 1) vbCrLf
Next
For i = 0 To 3
For j = i + 1 To 4
If a(i, 0) a(j, 0) Then
Temp = a(i, 0)
a(i, 0) = a(j, 0)
a(j, 0) = Temp
Temp = a(i, 1)
a(i, 1) = a(j, 1)
a(j, 1) = Temp
End If
Next
Next
'显示排序前的数据
Label2.Text = "排序后数据：" vbCrLf
For i = 0 To 4
Label2.Text = Label2.Text a(i, 0) " " a(i, 1) vbCrLf
Next
'把第3行元素赋予X,Y
x = a(2, 0)
y = a(2, 1)
'输出X,Y
Label3.Text = "X=" x vbCrLf "Y=" y
End Sub
思路与方法：
1，一行为读取单位，读取并保存到数组。
2，逆序循环，可以获得末尾空白行数。
3，以行为写单位，写入到文件。
动态数组一般开始不能直接写dim a as string。除非Variant。一般先定义类型 但是数组名后得加上括号。例如
DIM a() AS STRING
后面根据需要使用的时候，可以自己定义大小。但是必须注意一点。重新定义的时候，
Redim a(11) 的时候，就会将原来的数组元素清空了，没有保存。
Redim Preserve a(11) 就会将重新定义数组大小的同时，还将原来的数据保存了。
Dim a(3, 3, 3)
Dim b(3, 3), c(3, 3), d(3, 3)
Private Sub aaa()
' 对数组a(3,3,3)赋值
For i = 1 To 3
For j = 1 To 3
b(i, j) = a(1, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
c(i, j) = a(2, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
d(i, j) = a(3, i, j)
Next
Next
End Sub
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
你只是定义了一个对象，类而已
首先要给对象设置变量，这个还不是数组
Public class As Single的class 应该是关键字请换一个名字
Dim KidsX(1 to 100) as kids
KidsX(1).classx=1
KidsX(1).grade=1
KidsX(1).name=”张某"
KidsX(2).classx=1
KidsX(2).grade=2
KidsX(2).name=”王某"
……