【正文】
d1和 Command2,標題分別為 顯示第三記錄 和 保存 ,如圖所示,編寫適當?shù)氖录^程。 隨機文件 3個字段,分別為姓名、電話號碼和郵政編碼,其名稱和長度分別為: Name 字符串 8 Tel 字符串 10 Post Long 其類型定義為: Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type 變量定義為: Dim Pal As PalInfo 要求: 1)打開隨機文件 ,讀取其中的第三個記錄,把該記錄中的三個字段在三個文本框中顯示出來,三個文本框中所顯示的字段分別為姓名、電話號碼和郵政編碼。 這一題主要考察了對于隨機文件的讀取與寫入操作,在讀文件時,可以使用 Get語句,其語法如下: Get 文件號 ,記錄號 ,變量名 本題主要代碼如下: Option Explicit Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type Dim Pal As PalInfo Private Sub Command1_Click() Open For Random Access Read As 1 Len = Len(Pal) Get 1, 3, Pal = = = End Sub Private Sub Command2_Click() Open For Output As 1 Print 1, , , Close 1 End Sub