![[填空题] 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Comm](http://www.mshxw.com/aiimages/31/255870.png "[填空题] 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Comm")
[填空题] 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name 1 As String Phon As String *11 Address As String *10 PostCd As String*6 End Type ______’定义PerData类型的变量xData Pdvate 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 Ptirate Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i＜=reno Get#1,i,xData Debug.Print xData.Namel, ______ ,xData.Address,xData.PostCd i=i+1 Loop End Sub
参考答案：
Dim xData As PerData xData.Address xData.Phon问题解析:
声明用户定义类型的变量格式为：Dim变量名as用户定义类型名；定义了记录类型后，给该类型变量赋值时用“变量名.元素=要赋的值”的格式进行赋值。第3个空是引用变量的元素，应使用“变量名.元素”的格式。
