[填空题] 建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Comm

19 查阅

[填空题] 建立一个通讯录的随机文件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

参考答案:

Dim xData As PerData xData.Address xData.Phon

声明用户定义类型的变量格式为：Dim变量名as用户定义类型名；定义了记录类型后，给该类型变量赋值时用“变量名.元素=要赋的值”的格式进行赋值。第3个空是引用变量的元素，应使用“变量名.元素”的格式。