2014年全國計算機二級VB上機考試試題六

　　三、綜合應用題

　　【審題分析】在"讀數(shù)"按鈕的單擊事件過程中，用 Open 語句以 Input 方式打開數(shù)據文件 dr1.dat，通過 For 循環(huán)語句(初值為 1，終值為 50)將數(shù)據文件中的數(shù)據用 Input語句依次讀出并賦值給數(shù)組元素 arr(i)，同時顯示在文本框中。在"排序"按鈕的單擊事件過程中，利用"冒泡法"對數(shù)組中的元素按從大到小進行排序。在"保存"按鈕的單擊事件過程中，使用 For 循環(huán)語句將數(shù)組中各元素按順序將其值顯示在文本框中，并通過調用標準模塊中的 Writedata 過程(以數(shù)組名和數(shù)組上界為參數(shù))，將文本框中的內容寫入數(shù)據文件 dw2.dat。為使數(shù)據間保持一定間隔，每個數(shù)據后用 Space(5)加入 5 個空格。

　　【操作步驟】

　　步驟 1：新建一個"標準 EXE"工程，在窗體 Form1 上加入 1 個文本框和 3 個命令按鈕，在屬性設置窗口分別設置它們的屬性，屬性及其值見表 55-4。

　　表 55-4

　　步驟 2：選擇【工程】?【添加模塊】命令，打開添加模塊對話框，將考生文件夾下的 mode1.bas 添加到當前工程中。

　　步驟 3：打開代碼編輯窗口，編寫以下代碼：

　　參考代碼：

　　Dim arr(1 To 50) As Integer

　　Private Sub Cmd1_Click()

　　Txt1.Text = ""

　　Open App.Path & "\dr1.dat" For Input As #1

　　For i = 1 To 50

　　Input #1, arr(i)

　　Txt1.Text = Txt1.Text & arr(i) & Space(5)

　　Next

　　Close #1

　　End Sub

　　Private Sub Cmd2_Click()

　　For i = 1 To 50

　　For j = i + 1 To 50

　　If arr(i) < arr(j) Then

　　t = arr(i)

　　arr(i) = arr(j)

　　arr(j) = t

　　End If

　　Next

　　Next

　　End Sub

　　Private Sub Cmd3_Click()

　　Txt1.Text = ""

　　For i = 1 To 50

　　Txt1.Text = Txt1.Text & arr(i) & Space(5)

　　Next

　　Writedata arr, 50

　　End Sub

　　步驟 4：按要求將文件保存至考生文件夾中。

　　編輯推薦：

　　2014年上半年計算機等級考試報名時間及入口專題

　　各地2014年計算機等級考試費用匯總

　　2014年計算機等級考試時間