参考答案

'考生编写如下事件过程的程序（Command1_Click）
Private Sub Command1_Click()
    Dim Pal As Paltype
    Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal)
    Get #1, 3, Pal
    Text1.Text = Pal.Name
    Text2.Text = Pal.Tel
    Text3.Text = Str(Pal.Post)
    Close 1
End Sub
Private Sub Command2_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Text1.Text, Text2.Text, Text3.Text
    Close 1
End Sub