vb等級(jí)考試題目與評(píng)析72-閱讀頁(yè)
2025-09-20 16:50本頁(yè)面
【正文】 d1和 Command2，標(biāo)題分別為 顯示第三記錄 和 保存 ，如圖所示，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。 隨機(jī)文件 3個(gè)字段，分別為姓名、電話(huà)號(hào)碼和郵政編碼，其名稱(chēng)和長(zhǎng)度分別為： Name 字符串 8 Tel 字符串 10 Post Long 其類(lèi)型定義為： Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type 變量定義為： Dim Pal As PalInfo 要求： 1）打開(kāi)隨機(jī)文件 ，讀取其中的第三個(gè)記錄，把該記錄中的三個(gè)字段在三個(gè)文本框中顯示出來(lái)，三個(gè)文本框中所顯示的字段分別為姓名、電話(huà)號(hào)碼和郵政編碼。 這一題主要考察了對(duì)于隨機(jī)文件的讀取與寫(xiě)入操作，在讀文件時(shí)，可以使用 Get語(yǔ)句，其語(yǔ)法如下： Get 文件號(hào) ,記錄號(hào) ,變量名 本題主要代碼如下： 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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1