Dim a(10) As Integer
Public Sub Save()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Label4.Caption
    Close #1
End Sub
Private Sub Command1_Click()
    Open App.Path & "\Data5.txt" For Input As #1
'    Do While Not ?
        For i = 1 To 10
            Input #1, a(i)
'            s = s & ?
        Next i
    Loop
    Close #1
    Label2.Caption = s
End Sub
Private Sub Command2_Click()
'============以下考生编写程序开始=================
??(1)??
'============考生编写程序结束=====================
    For i = 1 To 10
        s = s & Str(a(i))
    Next i
    Label4.Caption = s
    Save
End Sub