vb等級(jí)考試題目與評(píng)析29-資料下載頁
2024-09-04 10:05本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。時(shí)如果單擊“退出”按鈕，則結(jié)束程序，程序運(yùn)行情況如圖所示。程序中不得使用任何變量。一個(gè)文本框，其名稱為Text1，編寫適當(dāng)?shù)氖录^程。命令按鈕，則在文本框中顯示“等級(jí)考試”。Enabled屬性用來確定對象是否能夠?qū)τ脩舢a(chǎn)生的事件作出反應(yīng)，即是否可用。值為True時(shí)，允許對象對事件作出反應(yīng)；取值為False時(shí)，禁止對象對事件作出反應(yīng)。當(dāng)用戶向文本框中輸入新信息，或當(dāng)程序把Text屬性設(shè)置為新值時(shí)，就會(huì)觸發(fā)Change事件。新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)命令按鈕，通。過屬性窗口分別設(shè)置其Name屬性為“C1”和“C2”,Caption屬性為“顯示”和“退出”。稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單。鈕，否則可能無成績。由于Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時(shí)候，可以省略屬性名。
【正文】 寫入數(shù)據(jù)附加到原來文件的后面。 Random 隨機(jī)存取方式，也是默認(rèn)存取方式。 Binary 指定二進(jìn)制方式文件。在這種方式下，可以用 Get和 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) = 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)相同的元素進(jìn)行整除，再把整除后的結(jié)果賦值給 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