vb编程时程序调试运行不通，求高手解答

Private Sub Command6_Click()
Dim DD, DM, BM, DX, DY, DZ, DH, DG As String
Dim B(100) As Variant
Dim strPair() As String

Dim i As String, j As String
L1:
If Text1.Text = "" Then '提示需要先选择文件才能进行数据转换
MsgBox "请先选择需要转换的文件！", vbInformation, 提示
Else

Open App.Path & "\" & TrimPath(Text1) & "1.dat" For Output As #2 '
Open "1.txt" For Input As #3

Do While Not EOF(3)
For N = 1 To 100
Line Input #3, A1$'在这里提示下标越界，我想可能还有一些问题，求解答，我的QQ：1162576108，谢
strPair = Split(A1$, ",")
DG = strPair(N)
'Debug.Print aa
Next N
Close
Loop
Open Text1 For Input As #1
Do While Not EOF(1)
Line Input #1, A$
strPair = Split(A$, ",")
DD = strPair(0)
DY = strPair(1) '按数据分隔符逗号来读取数据
DX = strPair(2)
'Debug.Print DX
'DX = strPair(2)
'DY = strPair(3)
DZ = strPair(3) '从行数据的末尾开始读取数据直到第1个,号为止,读取数值为高程值。
DH = strPair(4)
Print #2, DD;
Print #2, ",";
Print #2, DY;
Print #2, ",";
Print #2, DZ;
Print #2, ",";
Print #2, DX;
If Val(DG) = Val(DD) Then
DH = 0
Else
Print #2, ",";
Print #2, DH
End If
Loop
Close
MsgBox "数据处理成功！", vbInformation, "提示"
End If
End Sub
txt文件的格式为:1,11,12,14,15 为#3号文件
nput As #1文件格式为
1,,53414.28,31421.88,39.555
2,,53387.8,31425.02,36.8774
......
最终运行后要使3#文件中具有相同点名的1#号文件中如1号点的1,,53414.28,31421.88,0

请按数据输出要求给出程序，谢谢

Do While Not EOF(3)
For N = 1 To 100
Line Input #3, A1$'在这里提示下标越界，我想可能还有一些问题，求解答，我的QQ：1162576108，谢
strPair = Split(A1$, ",")
DG = strPair(N)
'Debug.Print aa
Next N
Close
Loop
以上代码嵌套两个循环读文件，肯定有问题。

看出来了,你是做个走马灯样的东西.

function c

static a as integer

a=a+1

if a>15 then a =0

dim i as integer ,x as integer

x=a

for  i =0 to 5

label1(i).forecolor = qbcolor(x)

x=x+1

if x >15 then x =0

next

end function

窗体上,增加 label1,再复制 再 粘贴,点是,粘贴几次得到6个 ,排好位置.就行了.

然后加个timer,双击,写代码

b

c

如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！

点此我要举报以上问答信息