Private arr(100) As Integer
Private n As Integer
Private Sub Command2_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Text1.Text
    Print #1, Text2.Text
    Print #1, Text3.Text
    Print #1, Text4.Text
    Close #1
    MsgBox "保存成功！"
End Sub
Private Sub Form_Load()
    Open App.Path & "\in5.txt" For Input As #1
    n = 0
    Do While Not EOF(1)
        Input #1, x
        n = n + 1
        arr(n) = x
    Loop
    Close #1
End Sub
Private Sub Command1_Click()
'========考生编写程序开始========
???
'==========考生编写程序结束==============
End Sub