题目内容：
建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。Privme Type PerData
Namel As String*10
PhonAs String*11
Address As String*20
PostCd As String*6
EndType
Dim xData As PerData
Private Sub Form_Load()
Open”C：\phonBook.txt”For Random As #1
End Sub
Private Sub Command1.Click()
xData．Name1＝Text1.Text：xDam．Phon＝Text2.Text
xData．Address＝Text3.Text：xData．PostCd＝Text4.Text
Textl．Text＝””：Text2.Text＝””
Text3.Text＝””：Text4.Text＝””
EndSub
Pivate Sub Command2_Click()
reno＝LOF(1)/Len(xData)
i＝1
DoWhilei<＝reno
Get#1，i，xData．
Debu9．Print xData．Name1，xDam．Phon，xDam．Address，xData．PostCd
i＝i+1
Loop
End Sub
参考答案：
答案解析：