VB小菜菜麻烦各位帮忙解决~!
如何简化以下代码?
Dim j As String
j = "d:\1000\1111\ "
Open j & Label1.Caption For Input As #1
Line Input #1, NewName
Label51.Caption = NewName
Close #1
Open j & Label2.Caption For Input As #1
Line Input #1, NewName
Label52.Caption = NewName
Close #1
Open j & Label3.Caption For Input As #1
Line Input #1, NewName
Label53.Caption = NewName
Close #1
Open j & Label4.Caption For Input As #1
Line Input #1, NewName
Label54.Caption = NewName
Close #1
Open j & Label5.Caption For Input As #1
Line Input #1, NewName
Label55.Caption = NewName
Close #1
Open j & Label6.Caption For Input As #1
Line Input #1, NewName
Label56.Caption = NewName
Close #1
Open j & Label7.Caption For Input As #1
Line Input #1, NewName
Label57.Caption = NewName
Close #1
Open j & Label8.Caption For Input As #1
Line Input #1, NewName
Label58.Caption = NewName
Close #1
Open j & Label9.Caption For Input As #1
Line Input #1, NewName
Label59.Caption = NewName
Close #1
Open j & Label10.Caption For Input As #1
Line Input #1, NewName
Label60.Caption = NewName
Close #1
------解决方案--------------------
把俩组LABEL设为数组形式
