[填空題] 建立一個(gè)通訊錄的隨機(jī)文件phonBook.txt，內(nèi)容包括姓名、電話、地址和郵編，用文本框輸入數(shù)據(jù)。單擊“添加主記錄”按鈕Command1時(shí)，將文本框數(shù)據(jù)寫入文件，單擊“顯示”按鈕Command2時(shí)，將文件中所有記錄內(nèi)容顯示在立即窗口。 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

Dim xData As PerData

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