vb等級(jí)考試題目與評(píng)析25-資料下載頁
2025-08-26 13:03本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。在程序中不能使用任何變量。程序運(yùn)行情況如圖所示。返回或設(shè)置一個(gè)值，以決定是否在控件的鍵盤事件之前激活窗體的鍵盤事件。當(dāng)用戶按下和松開一個(gè)鍵時(shí)發(fā)生，用參數(shù)KeyAscii來返回所按鍵的ASCII碼。這兩個(gè)事件用參數(shù)KeyCode. 返回或設(shè)置一個(gè)值，用來指示窗體中命令按鈕是否為取消按鈕。令按鈕不是窗體的取消按鈕，按ESC鍵與單擊該命令按鈕的作用相同；取值為False時(shí)，命令按鈕不是窗體的取。點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)置其Name屬性為。“C1”，Caption屬性為“顯示”。稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。本框，其名稱為Text1。分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦?。并在Text3文本框中顯示連接后的內(nèi)容。不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須先單擊“交換”。上角的關(guān)閉按鈕，否則可能無成績。鈕中心有一個(gè)圓點(diǎn)；取值為False時(shí)，單選按鈕是“關(guān)閉”的，按鈕是一個(gè)圓圈。
【正文】 方式 ,與 Output不同的是，用 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)系。 “記錄長 度”對(duì)于隨機(jī)方式打開的文件，指記錄長度；對(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 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