【正文】
程序不完整,請(qǐng)把它補(bǔ)充完整。其中 XXX是在列表框中所選擇的項(xiàng)目。 *注意: 存盤時(shí)必須存放在考生文件夾下,工程文件名為 ,窗體文件名為 。程序運(yùn)行后,如果單擊 操作 菜單中的 顯示 命令,則在圖片框中顯示 等級(jí)考試 ;如果單擊 清除 命令,則清除圖片框中的信息。程序中不得使用任何變量。 第二題主要考查了 ListBox控件的使用方法,在 ListBox中選擇一項(xiàng)將觸發(fā)其 Click事件,同時(shí)將 ListIndex的屬性設(shè)值為選中項(xiàng)的編號(hào)。最后把修改后的文件按原文件名存盤。 第 1小題 本題考查列表框?qū)傩缘脑O(shè)置,以及如何添加相應(yīng)事件的代碼。 隨機(jī)文件 3個(gè)字段,分別為姓名、電話號(hào)碼和郵政編碼,其名稱和長(zhǎng)度分別為: 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)打開隨機(jī)文件 ,讀取其中的第三個(gè)記錄,把該記錄中的三個(gè)字段在三個(gè)文本框中顯示出來,三個(gè)文本框中所顯示的字段分別為姓名、電話號(hào)碼和郵政編碼。 對(duì)題目中已給出的命令按鈕的 Click事件代碼進(jìn)行修改,其代碼如下: Private Sub Command1_Click() Dim i As Integer, j As Integer, iSum As Integer Print 連續(xù)和為 1250的正整數(shù)是: For i = 1 To 500 iSum = 0