vb等級(jí)考試題目與評(píng)析50-資料下載頁(yè)
2025-08-26 13:02本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。然后編寫(xiě)命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本。標(biāo)簽內(nèi)顯示文本框中的內(nèi)容。在屬性窗口中對(duì)滾動(dòng)條設(shè)置如下屬。程序運(yùn)行后，如果移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可擴(kuò)。大或縮小文本框的高度，并使得文本框的寬度始終是其高度的。新建一個(gè)工程，在窗體上添加一個(gè)標(biāo)簽Label1，并將其BorderStyle屬性為1，即有邊框顯示，再添加一個(gè)內(nèi)容。為空白的文本框Text1和一個(gè)命令按鈕Command1，標(biāo)題為“顯示”。Hscroll1控件用來(lái)調(diào)節(jié)文本框的大小。滾動(dòng)條的Max、Min屬性值表示滑塊處于滾動(dòng)條最大、最小位置時(shí)所代表。即對(duì)應(yīng)著文本框最大值與最小值。但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。按鈕，即可使數(shù)組按降序排序，并在文本框中顯示出來(lái)。改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功。用來(lái)設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。窗體上拖拉出一個(gè)列表框、一個(gè)文本框和兩個(gè)單選按鈕并根據(jù)題意設(shè)置相關(guān)屬性。按要求保存文件即完成本題。
【正文】 件的輸入輸出方式，可以是以下操作之一： Output 指定順序輸出方式 Input 指定順序輸入方式 Append 指定順序輸出方式 ,與 Output不同的是，用 Append方式打開(kāi)文件時(shí)，文件指針定位于文件尾部，如對(duì)文件執(zhí)行寫(xiě)操作，則寫(xiě)入數(shù)據(jù)附加到原來(lái)文件的后面。 Random 隨機(jī)存取方式，也是默認(rèn)存取方式。 Binary 指定二進(jìn)制方式文件。在這種方式下，可以用 Get和 Put語(yǔ)句對(duì)文件中任意字節(jié)位置的信息進(jìn)行讀寫(xiě)。 “操作方式”用來(lái)指定訪(fǎng)問(wèn)文件類(lèi)型，可以是下列類(lèi)型 之一： Read 打開(kāi)只讀文件 Write 打開(kāi)只寫(xiě)文件 Read Write 打開(kāi)讀寫(xiě)文件 “鎖定”用來(lái)限制其他用戶(hù)或進(jìn)程對(duì)打開(kāi)的文件進(jìn)行讀寫(xiě)操作。鎖定類(lèi)型包括： 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)工程文件 ，輸入如下的代碼： Dim sum As Integer Private Sub Calc_Click() = For i = 1 To 100 If Arr(i) 50 Then = amp。 Arr(i) amp。 Space(2) sum = sum + Arr(i) End If Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData , sum End Sub 按要求進(jìn)行操作并保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1