建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
Private Type PerData
Name1 As String
Phon As String *11
Address As String *10
PostCd As String *6
End Type
______ ’定义PerData类型的变量xData
Private Sub Form_Load()
Open "C:\phonBook.txt" For Random As 1
End Sub
Private Sub Command1_Click()
xData.Name1=Text1.Text
xData.Phon=Text2.Text
______=Text3.Text ’地址
xData.PostCd=Text4.Text
Put #1,1,xData
Text1.Text="":Text2.Text=""
Text3.Text="":Text4.Text=""
End Sub
Private Sub Command2_Click()
reno=LOF(1)/Len(xData)
i=1
Do While i＜=reno
Get #1,i,xData
Debug.Print xData.Name 1,______,xData.Address,xData.PostCd
i=i+1
Loop
End Sub

判断对错，对的画“√”，错的画“×”。

(      )1. Sarah: How are you?

             Bai Ling: Fine, thank you!

(      )2. Li Ping: How old are you?

            Wu Yifan: I'm nine.

(      )3. John:  Thank you !

            Mike: You're welcome.

(      )4. Chen Jie: May I have a look?

            Bai Ling: Look!

(      )5. John: What's your name?

             Bai Ling: My name is Bai Ling.

(      )6. Tom: Let's go to school, OK?

             Sarah: Great!