VB怎样删除二维数组中的数据

拿第一个与后面的比较，第二个与后面的比较。。。。。。
如果有一样的保留第一个数据坐标，把之后一样的都置一个数&HFFFF。
最后新建一个数组，将不重复的坐标放进去，将值为&HFFFF的坐标给排除在外。

Dim R As String, sz(20, 2) As Double, sz1(2) As Double
Open "c:\ls.txt" For Input As #1
x = 0
Do While Not EOF(1)
Line Input #1, R
mStr = Split(R, "，")
y = 0
For Each s In mStr
If IsNumeric(s) Then
y = y + 1
sz1(y) = s
End If
Next s
m = 1
f = 0
Do While (m <= x) And (f = 0)
If (sz(m, 1) = sz1(1)) And (sz(m, 2) = sz1(2)) Then f = 1
m = m + 1
Loop
If f = 0 Then
x = x + 1
sz(x, 1) = sz1(1)
sz(x, 2) = sz1(2)
End If
Loop

For m = 1 To x
Print sz(m, 1), sz(m, 2)
Next
Close #1来自：求助得到的回答本回答被提问者采纳

3、用循环将数据读入二维数组arr row=0 while not rs.eof arr[row,0]=VB中如何实现自动递增的字段 怎样在数据库中检索一个时间段 找出相同结构两

说说思路：
这个显然要用ADO
1、连接数据库，得到连接对象conn
2、用下面的select语句打开表，将数据读入RecordSet
set rs=conn.execute("select * from 表名")
3、用循环将数据读入二维数组arr
row=0
while not rs.eof
arr[row,0]=rs["id"]
arr[row,1]=rs["year"]
arr[row,2]=rs["mon"]
arr[row,3]=rs["1"]
arr[row,4]=rs["2"]
...
...
...
row=row+1
wend

循环进行比较呗，没什么更好的方法