vb等級(jí)考試題目與評(píng)析47-資料下載頁
2024-09-04 10:04本頁面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。在Form1的窗體上畫一個(gè)文本框，名稱為Text1。C1，標(biāo)題為“顯示”，它的TabIndex屬性設(shè)為0。作用是在文本框中顯示“等級(jí)考試”，程序運(yùn)行結(jié)果如圖所示。程序中不得使用任何變量。和“隱藏”，名稱分別為Dis和Hid，編寫適當(dāng)?shù)氖录^程。返回或設(shè)置一個(gè)值，用來指示窗體中命令按鈕是否為取消按鈕。令按鈕不是窗體的取消按鈕，按ESC鍵與單擊該命令按鈕的作用相同；取值為False時(shí)，命令按鈕不是窗體的取。返回或設(shè)置窗體中大部分對(duì)象的Tab鍵次序。新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。是該菜單項(xiàng)區(qū)別于其他菜單項(xiàng)以及其他控件的重要標(biāo)識(shí)。執(zhí)行“工具”菜單中的“菜單編輯器”命令，打開菜單編輯器。簽，其名稱為L(zhǎng)ab1，寬度為3000，高度為375。否則可能無成績(jī)。鈕中心有一個(gè)圓點(diǎn)；取值為False時(shí)，單選按鈕是“關(guān)閉”的，按鈕是一個(gè)圓圈。置其Name屬性為“F1”和“F2”，Caption屬性為“交通工具”和“到達(dá)目標(biāo)”。
【正文】 Append方式打開文件時(shí)，文件指針定位于文件尾部，如對(duì)文件執(zhí)行寫操作，則寫入數(shù)據(jù)附加到原來文件的后面。 Random 隨機(jī)存取方式，也是默認(rèn)存取方式。 Binary 指定二進(jìn)制方式文件。在這種方式下，可以 用 Get和 Put語句對(duì)文件中任意字節(jié)位置的信息進(jìn)行讀寫。 “操作方式”用來指定訪問文件類型，可以是下列類型之一： Read 打開只讀文件 Write 打開只寫文件 Read Write 打開讀寫文件 “鎖定”用來限制其他用戶或進(jìn)程對(duì)打開的文件進(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ù)， 對(duì)打開文件的各種操作要靠文件號(hào)來與文件發(fā)生關(guān)系。 “記錄長(zhǎng)度”對(duì)于隨機(jī)方式打開的文件，指記錄長(zhǎng)度；對(duì)于順序文件，指緩沖字符數(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) = 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中下標(biāo)相同 的元素相減再賦值給 arr3（ i)； 通過 Sum = Sum + arr3（ i)一句累加出數(shù)組 arr（ 3)中所有元素的和。從而完成題目中要實(shí)現(xiàn)的工作。 Private Sub C3_Click（ ) WriteData , Sum End Sub 按要求進(jìn)行操作并保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1