建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerDataName1 As StringPhon As String *11Address As String *10PostCd 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.TextxData.Phon=Text2.Text______=Text3.Text ’地址xData.PostCd=Text4.TextPut #1,1,xDataText1.Text="":Text2.Text=""Text3.Text="":Text4.Text="" End Sub Private Sub Command2_Click()reno=LOF(1)/Len(xData)i=1Do While i＜=reno Get #1,i,xData Debug.Print xData.Name 1,______,xData.Address,xData.PostCd i=i+1Loop End Sub
