vb等級考試題目與評析36-資料下載頁
2025-08-26 16:53本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。名稱為Command1，標題為“顯示”），如圖1所示。程序運行后，在文本框中輸入“計算機等級考試”，然。后單擊命令按鈕，則標簽和文本框消失，并在窗體上顯示文本框中的內容。要求程序中不得使用任何變量。編寫適當?shù)氖录^程。大或縮小文本框中的“國”字。最后按照題目要求保存文件即可。新建一個工程，在窗體上添加一個文本框Text1和一個水平滾動條HScroll1。文本框的Text屬性設置為“國”，F(xiàn)ontName屬性設置為“黑體”。滾動條的Max、Min屬性值表示滑塊處于滾動條最大、最小位置時所代表的值。擊滾動條的前后部位時，Value的改變量，SmallChange表示當單擊滾動條兩端箭頭時，Value的改變量。移動滑塊時，引發(fā)Change事件。但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。改為正確的內容，使其實現(xiàn)上述功。用來設置或返回列表框中當前選中的列表項。本題的考查的是數(shù)組的應用，通過調用過程Sort將數(shù)組按升序排序，Ubound()函數(shù)是用來獲得數(shù)組的上界，
【正文】 式下，可以用 Get和 Put語句對文件中任意字節(jié)位置的信息進行讀寫。 “操作方式”用來指定訪問文件類型，可以是下列類 型之一： Read 打開只讀文件 Write 打開只寫文件 Read Write 打開讀寫文件 “鎖定”用來限制其他用戶或進程對打開的文件進行讀寫操作。鎖定類型包括： Lock Shared 允許機器上任何進程讀寫該文件 Lock Read 不允許其他進程讀該文件 Lock Write 不允許其他進程寫該文件 Lock Read Write 不允許其他進程讀寫該文件 “文件號”是 1到 511之間的某個整數(shù)，對打開文件的各種操作要靠文件號來與文件發(fā)生關系。 “記錄長度”對于隨機方式打開的文件，指記錄長度；對于順 序文件，指緩沖字符數(shù)。 Input 語句 用來讀取順序文件的數(shù)據(jù)。語法為： Input 文件號，變量列表 Print 語句 用來把數(shù)據(jù)寫入順序文件。語法為： Print 文件號， [[Spc（ n)|Tab（ n)] [表達式列表 ] [。|,]] Spc（ n)函數(shù)用來在當前的輸出位置加入 n個空白； Tab（ n)函數(shù)用來設置在第 n個位置寫入數(shù)據(jù)。 分號表示后續(xù)寫入的數(shù)據(jù)將接著當前的數(shù)據(jù)尾部寫入；逗號表示在當前寫入的數(shù)據(jù)后換行。 Close語句 用來關閉一個被打開的文件。語法為： Close 文 件號 解題方法： 打開 ，執(zhí)行“工具”菜單中的“菜單編輯器”命令，打開菜單編輯器。 在“標題”欄中輸入“讀入數(shù)據(jù)”，在“名稱”欄中輸入“ Read”；點擊“下一個”按鈕，然后在“標題”欄中輸入“計算并輸出”，在“名稱”欄中輸入“ Calc”；點擊“下一個”按鈕，在“標題”欄中輸入“存盤”，在“名稱”欄中輸入“ Save”。在窗體上添加一個文本框，在屬性窗口中把 MultiLine屬性設置為 True,把 ScrollBars屬性設置為 2。打開代碼窗口，輸入如下的代碼： Dim temp As Integer Private Sub Calc_Click() = For i = 1 To 100 If Arr(i) = 50 Then = amp。 Arr(i) amp。 Space(5) temp = temp + Arr(i) End If Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData , temp End Sub 按要求進行操作并保存文件即完成本題。
公司管理相關推薦
鄂ICP備17016276號-1