vb等級(jí)考試題目與評(píng)析36(文件)
【正文】 amp。語法為： Close 文 件號(hào) 解題方法： 打開 ，執(zhí)行“工具”菜單中的“菜單編輯器”命令，打開菜單編輯器。語法為： Print 文件號(hào)， [[Spc（ n)|Tab（ n)] [表達(dá)式列表 ] [。鎖定類型包括： Lock Shared 允許機(jī)器上任何進(jìn)程讀寫該文件 Lock Read 不允許其他進(jìn)程讀該文件 Lock Write 不允許其他進(jìn)程寫該文件 Lock Read Write 不允許其他進(jìn)程讀寫該文件 “文件號(hào)”是 1到 511之間的某個(gè)整數(shù)，對(duì)打開文件的各種操作要靠文件號(hào)來與文件發(fā)生關(guān)系。 Random 隨機(jī)存取方式，也是默認(rèn)存取方式。窗體文件 中的 ReadData過程可以把 100個(gè)整數(shù)讀入 Arr數(shù)組中； 而 WriteData過程可以把 指定的整數(shù)值寫到考生文件夾下指定的文件中（整 數(shù)值通過計(jì)算求得，文件名為 ）。 第 2小題： 本題的考查的是數(shù)組的應(yīng)用，通過調(diào)用過程 Sort將數(shù)組按升序排序， Ubound()函數(shù)是用來獲得數(shù)組的上界，Lbound()函數(shù)是獲得數(shù)組的下界，打開工程文件 ，在代碼窗口中補(bǔ)充如下代碼： Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LBound(a) Finish = UBound(a) For i = 4 To 2 Step 1 For j = 1 To 3 If a(j) a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i End Sub 按要求保存文件即完成本題。 圖 1 圖 2 第 1小題： 列表框的 ListIndex屬性 用來設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。程序運(yùn)行后，在四個(gè) 文本框中各輸入一個(gè)整數(shù)（如圖 1所示），然后單擊命令按鈕，即可使數(shù) 組按升序排序，并在文本框中顯示出來（如圖 2所示）。但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。編寫適當(dāng) 的事件過程。 Value屬性代表滑塊所在位置滾動(dòng)條的當(dāng)前值。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1