vb等級考試題目與評析29-資料下載頁
2025-08-26 10:05本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。時如果單擊“退出”按鈕，則結束程序，程序運行情況如圖所示。程序中不得使用任何變量。一個文本框，其名稱為Text1，編寫適當?shù)氖录^程。命令按鈕，則在文本框中顯示“等級考試”。Enabled屬性用來確定對象是否能夠對用戶產生的事件作出反應，即是否可用。值為True時，允許對象對事件作出反應；取值為False時，禁止對象對事件作出反應。當用戶向文本框中輸入新信息，或當程序把Text屬性設置為新值時，就會觸發(fā)Change事件。新建一個名為Form1的窗體，點擊工具箱中的CommandButton控件圖標，然后在窗體上拖拉出兩個命令按鈕，通。過屬性窗口分別設置其Name屬性為“C1”和“C2”,Caption屬性為“顯示”和“退出”。稱分別為F1和F2，標題分別為“交通工具”和“到達目標”。在結束程序運行之前，必須選中一個單。鈕，否則可能無成績。由于Value屬性是單選按鈕的缺省屬性，因此在設置該屬性的值的時候，可以省略屬性名。
【正文】 寫入數(shù)據(jù)附加到原來文件的后面。 Random 隨機存取方式，也是默認存取方式。 Binary 指定二進制方式文件。在這種方式下，可以用 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 文件號 解題方法： 打開工程文件 ，點擊工具箱中的 CommandButton控件圖標，然 后在窗體上拖拉出三個命令按鈕，通過屬性窗口分別設置其 Name屬性為“ C1”、“ C2”和“ C3” ,Caption 屬性為“讀入數(shù)據(jù)”、“計算”和“存盤”。 打開代碼窗口，輸入如下的代碼： Private Sub C1_Click（ ) ReadData1 ReadData2 End Sub Private Sub C2_Click（ ) Dim arr3（ 20) As Integer Sum = 0 For i = 1 To 20 arr3（ i) = Arr1（ i) \ Arr2（ i) Sum = Sum + arr3（ i) Next Print Sum End Sub 在上面的程序段中，通過循環(huán)將數(shù)組 Arr1和 Arr2的值訪問一遍，通過 arr3（ i) = Arr1（ i) \ Arr2（ i)一句將數(shù)組 Arr1和 Arr2中下標相同的元素進行整除，再把整除后的結果賦值給 arr3（ i)；通過 Sum = Sum + arr3（ i)一句累加出數(shù)組 arr（ 3)中所有元素的和。從而完成題目中要實現(xiàn)的工作。 Private Sub C3_Click（ ) WriteData , Sum End Sub 按要求進行操作并保存文件即完成本題。
公司管理相關推薦
鄂ICP備17016276號-1