vb二級(jí)等級(jí)考試題目與評(píng)析-資料下載頁(yè)
2024-09-05 20:44本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。在Form1的窗體上畫一個(gè)文本框，名稱為Text1。C1，標(biāo)題為“顯示”，它的TabIndex屬性設(shè)為0。是在文本框中顯示“等級(jí)考試”，程序運(yùn)行結(jié)果如圖所示。程序中不得使用任何變量。編寫適當(dāng)?shù)氖录^程。返回或設(shè)置一個(gè)值，用來(lái)指示窗體中命令按鈕是否為取消按鈕。令按鈕不是窗體的取消按鈕，按ESC鍵與單擊該命令按鈕的作用相同；取值為False時(shí)，命令按鈕不是窗體的取。返回或設(shè)置窗體中大部分對(duì)象的Tab鍵次序。按要求保存文件即完成本題。稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。簽，其名稱為L(zhǎng)ab1，寬度為3000，高度為375。須至少進(jìn)行上面的一種操作?！坝?jì)算機(jī)”和空白。存盤時(shí)，工程文件名為，窗體文件名為。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單。否則可能無(wú)成績(jī)。為“Op1”和“Op2”，Caption屬性為“飛機(jī)”和“火車”。點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F2中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性
【正文】 Random 隨機(jī)存取方式，也是默認(rèn)存取方式。 Binary 指定二進(jìn)制方式文件。在這種方式下，可以用 Get和 Put語(yǔ)句對(duì)文件中任意字節(jié)位置的信息進(jìn)行讀寫。 “操作方式”用來(lái)指定訪問文件類型，可以是下列類型之一： Read 打開只讀文件 Write 打開只寫文件 Read Write 打開讀寫文件 “鎖定”用來(lái)限制其他用戶或進(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)來(lái)與文件發(fā)生關(guān)系。 “記錄長(zhǎng)度”對(duì)于隨機(jī)方式打開的文件，指記錄長(zhǎng)度；對(duì)于順序文件，指 緩沖字符數(shù)。 Input 語(yǔ)句 用來(lái)讀取順序文件的數(shù)據(jù)。語(yǔ)法為： Input 文件號(hào)，變量列表 Print 語(yǔ)句 用來(lái)把數(shù)據(jù)寫入順序文件。語(yǔ)法為： Print 文件號(hào)， [[Spc（ n)|Tab（ n)] [表達(dá)式列表 ] [。|,]] Spc（ n)函數(shù)用來(lái)在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用來(lái)設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 分號(hào)表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號(hào)表示在當(dāng)前寫入的數(shù)據(jù)后換行。 Close語(yǔ)句 用來(lái)關(guān)閉一個(gè)被打開的文件。語(yǔ)法為： 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