VB小菜菜麻烦各位帮忙解决~!

Question

如何简化以下代码?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

Answer 1

Dim j As String
dim p as integer    j = "d:\1000\1111\"for p=0 to 9
    Open j & Label1(p).Caption For Input As #1
    Line Input #1, NewName
    Label51(p).Caption = NewName
    Close #1
next
ps:你的变量NewName值不变吗?

Answer 2

NewName 用来临时存放从文件读取的数据啊

Answer 3

两个循环怎么套起来才正确啊?
我这样套起来得到了不正确的结果...Private Sub Command4_Click()
    Dim j As String
    Dim p, n As Integer
    j = "d:\1000\1111\"
    For n = 0 To 9
       For p = 0 To 9
         Open j & Label1(p).Caption For Input As #1
         Line Input #1, NewName
         Label2(n).Caption = NewName
         Close #1
       Next
    Next
End Sub

Answer 4

你看下自己这个是什么循环呀,, 这样的话,Label2()得到的都是Label1(9)的值呀

Answer 5

Private Sub Command4_Click()
    Dim j As String
    Dim p, n As Integer
    j = "d:\1000\1111\"
    'For n = 0 To 9
       For p = 0 To 9
         Open j & Label1(p).Caption For Input As #1
         Line Input #1, NewName
         'Label2(n).Caption = NewName
         Label2(p).Caption = NewName
         Close #1
       Next
    'Next
End Sub你的  n,p  是一样的循环  一个效果  所以只循环一个就可以了试下这个代码