vb等級(jí)考試題目與評(píng)析36-資料下載頁(yè)
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。名稱為Command1，標(biāo)題為“顯示”），如圖1所示。程序運(yùn)行后，在文本框中輸入“計(jì)算機(jī)等級(jí)考試”，然。后單擊命令按鈕，則標(biāo)簽和文本框消失，并在窗體上顯示文本框中的內(nèi)容。要求程序中不得使用任何變量。編寫(xiě)適當(dāng)?shù)氖录^(guò)程。大或縮小文本框中的“國(guó)”字。最后按照題目要求保存文件即可。新建一個(gè)工程，在窗體上添加一個(gè)文本框Text1和一個(gè)水平滾動(dòng)條HScroll1。文本框的Text屬性設(shè)置為“國(guó)”，F(xiàn)ontName屬性設(shè)置為“黑體”。滾動(dòng)條的Max、Min屬性值表示滑塊處于滾動(dòng)條最大、最小位置時(shí)所代表的值。擊滾動(dòng)條的前后部位時(shí)，Value的改變量，SmallChange表示當(dāng)單擊滾動(dòng)條兩端箭頭時(shí)，Value的改變量。移動(dòng)滑塊時(shí)，引發(fā)Change事件。但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功。用來(lái)設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。本題的考查的是數(shù)組的應(yīng)用，通過(guò)調(diào)用過(guò)程Sort將數(shù)組按升序排序，Ubound()函數(shù)是用來(lái)獲得數(shù)組的上界，
【正文】 式下，可以用 Get和 Put語(yǔ)句對(duì)文件中任意字節(jié)位置的信息進(jìn)行讀寫(xiě)。 “操作方式”用來(lái)指定訪問(wèn)文件類型，可以是下列類 型之一： Read 打開(kāi)只讀文件 Write 打開(kāi)只寫(xiě)文件 Read Write 打開(kāi)讀寫(xiě)文件 “鎖定”用來(lái)限制其他用戶或進(jìn)程對(duì)打開(kāi)的文件進(jìn)行讀寫(xiě)操作。鎖定類型包括： Lock Shared 允許機(jī)器上任何進(jìn)程讀寫(xiě)該文件 Lock Read 不允許其他進(jìn)程讀該文件 Lock Write 不允許其他進(jìn)程寫(xiě)該文件 Lock Read Write 不允許其他進(jìn)程讀寫(xiě)該文件 “文件號(hào)”是 1到 511之間的某個(gè)整數(shù)，對(duì)打開(kāi)文件的各種操作要靠文件號(hào)來(lái)與文件發(fā)生關(guān)系。 “記錄長(zhǎng)度”對(duì)于隨機(jī)方式打開(kāi)的文件，指記錄長(zhǎng)度；對(duì)于順 序文件，指緩沖字符數(shù)。 Input 語(yǔ)句 用來(lái)讀取順序文件的數(shù)據(jù)。語(yǔ)法為： Input 文件號(hào)，變量列表 Print 語(yǔ)句 用來(lái)把數(shù)據(jù)寫(xiě)入順序文件。語(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è)位置寫(xiě)入數(shù)據(jù)。 分號(hào)表示后續(xù)寫(xiě)入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫(xiě)入；逗號(hào)表示在當(dāng)前寫(xiě)入的數(shù)據(jù)后換行。 Close語(yǔ)句 用來(lái)關(guān)閉一個(gè)被打開(kāi)的文件。語(yǔ)法為： Close 文 件號(hào) 解題方法： 打開(kāi) ，執(zhí)行“工具”菜單中的“菜單編輯器”命令，打開(kāi)菜單編輯器。 在“標(biāo)題”欄中輸入“讀入數(shù)據(jù)”，在“名稱”欄中輸入“ Read”；點(diǎn)擊“下一個(gè)”按鈕，然后在“標(biāo)題”欄中輸入“計(jì)算并輸出”，在“名稱”欄中輸入“ Calc”；點(diǎn)擊“下一個(gè)”按鈕，在“標(biāo)題”欄中輸入“存盤(pán)”，在“名稱”欄中輸入“ Save”。在窗體上添加一個(gè)文本框，在屬性窗口中把 MultiLine屬性設(shè)置為 True,把 ScrollBars屬性設(shè)置為 2。打開(kāi)代碼窗口，輸入如下的代碼： Dim temp As Integer Private Sub Calc_Click() = For i = 1 To 100 If Arr(i) = 50 Then = amp。 Arr(i) amp。 Space(5) temp = temp + Arr(i) End If Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData , temp End Sub 按要求進(jìn)行操作并保存文件即完成本題。
鄂ICP備17016276號(hào)-1