建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 Posted 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