vb等級考試題目與評析27-資料下載頁
2024-09-04 16:53本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。程序運(yùn)行后，如果單擊命令按鈕，則把窗體的標(biāo)題修改為“等級。考試”，程序運(yùn)行結(jié)果如圖所示。程序中不得使用任何變量。在窗體上畫一個(gè)文本框，其名稱為Text1，Text屬性為空白。令按鈕，其名稱為C1，Visible屬性為False。編寫適當(dāng)?shù)氖录^程。運(yùn)行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。新建一個(gè)窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)。置其Name屬性為“C1”，Caption屬性為“顯示”。按要求保存文件即完成本題。Visible屬性用來設(shè)置對象的可見性，可以取True和False兩種值，取值為True時(shí)，對象可見；取值為False時(shí)，稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。程序運(yùn)行后，選擇不同單選按鈕時(shí)產(chǎn)生的顯示結(jié)果見下表。為“Op1”和“Op2”，Caption屬性為“飛機(jī)”和“火車”。為“Op3”和“Op4”，Caption屬性為“廣州”和“昆明”?！癓ab1”,Width屬性為3000，Height屬性為375。
【正文】 t和 Put語句對文件中任意字節(jié)位置的信息進(jìn)行讀寫。 “操作方式”用來指定訪問文件類型，可以是下列類型之一： Read 打開只讀文件 Write 打開只寫文件 Read Write 打開讀寫文件 “鎖定”用來限制其他用戶或進(jìn)程對打開的文件進(jìn)行讀 寫操作。鎖定類型包括： Lock Shared 允許機(jī)器上任何進(jìn)程讀寫該文件 Lock Read 不允許其他進(jìn)程讀該文件 Lock Write 不允許其他進(jìn)程寫該文件 Lock Read Write 不允許其他進(jìn)程讀寫該文件 “文件號(hào)”是 1到 511之間的某個(gè)整數(shù)，對打開文件的各種操作要靠文件號(hào)來與文件發(fā)生關(guān)系。 “記錄長度”對于隨機(jī)方式打開的文件，指記錄長度；對于順序文件，指緩沖字符數(shù)。 Input 語句 用來讀取順序文件的數(shù)據(jù)。語法為： Input 文件號(hào)，變量列表 Print 語句 用來把 數(shù)據(jù)寫入順序文件。語法為： Print 文件號(hào)， [[Spc（ n)|Tab（ n)] [表達(dá)式列表 ] [。|,]] Spc（ n)函數(shù)用來在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用來設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 分號(hào)表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號(hào)表示在當(dāng)前寫入的數(shù)據(jù)后換行。 Close語句 用來關(guān)閉一個(gè)被打開的文件。語法為： Close 文件號(hào) 解題方法： 打開工程文件 ，點(diǎn)擊工具箱中的 CommandButton控件圖標(biāo)，然后在窗體上拖拉出三個(gè)命令按鈕，通過屬性窗口分 別設(shè)置其 Name屬性為“ C1”、“ C2”和“ C3” ,Caption 屬性為“讀入數(shù)據(jù)”、“計(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) = Int（ Arr1（ i) / 10) * Int（ Arr2（ i) / 10) Sum = Sum + arr3（ i) Next Print Sum End Sub 在上面的程序段中，通過循環(huán)將數(shù)組 Arr1和 Arr2的值訪問一遍，通過 arr3（ i) = Int（ Arr1（ i) / 10) * Int（ Arr2（ i) / 10)一句將數(shù)組 Arr1和 Arr2中下標(biāo)相同的元素分別除以 10，然后取整，再把兩個(gè)取整后的數(shù)的乘積賦值給 arr3（ i)；通過 Sum = Sum + arr3（ i)一句累加出數(shù)組 arr（ 3)中所有元素的和。從而完成 題目中要實(shí)現(xiàn)的工作。 Private Sub C3_Click（ ) WriteData , Sum End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1