（11）建立一個(gè)通訊錄的隨機(jī)文件phonBook.txt,內(nèi)容包括姓名、電話、地址和郵編，用文本框輸入數(shù)據(jù)。單擊“添加主記錄”按鈕Command1時(shí)，將文本框數(shù)據(jù)寫入文件，單擊“顯示按鈕”Command2時(shí)，將文本中所有內(nèi)容顯示在立即窗口。Private Type PerDate Name1 As String Phon As String*11 Address As String*10 PostCd As String*6 End Type定義PerData類型的變量xDataPrivate Sub Form_Click() Open"C:\PhonBook.txt"For Random As 1End SubPrivate 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.Name1,______,xData.Address,xData.PostCd i=i+1 LoopEnd Sub

Dim xData As PerData xData.Address xData.Phon【解析】聲明用戶定義類型的變量格式為：Dim變量名as用戶定義類型名；定義了記錄類型后，給該類型變量賦值時(shí)用“變量名．元素二要賦的值”的格式進(jìn)行賦值。第3個(gè)空是引用變量的元素，應(yīng)使用“變量名.元素”的格式。