四、綜合應用題

　　除了基本的操作外，本題涉及的知識點主要有循環和數組的使用兩個方面。先在窗體上建立控件，再設置控件屬性，然后研讀提供的代碼，正確分析并完成程序。文本框顯示的內容通過Text屬性設置;按鈕的標題通過Caption屬性設置，單擊命令按鈕觸發Click事件;在本題中涉及文件的操作，讀入文件并以順序的方式打開，用“Input#”語句讀取數據，另外需要注意的是對文件操作結束后，一定要關閉文件。

　　①文本框顯示的內容通過Text屬性設置，Muhiline屬性決定文本框是否可多行顯示。若需要多行顯示，則必須將Multiline屬性設置為True，同時將Scrollbars屬性設置為2。

　　②建立界面并設置控件屬性。按鈕的標題通過Caption屬性設置，單擊命令按鈕觸發Click事件。程序中用到的控件及屬性設置見下表：

　　③打開工程資源管理器，在其空白處右鍵添加模塊prog.bas(此文件已在考生文件夾里)，模塊代碼如下：

　　Option Explicit

　　Sub putdata(a()As Integer，n As Integer)

　　Dim sFile As String

　　sFile="\result.txt"

　　Open App.Path&sFile For Output As#1

　　For i=1 To n

　　Print#1，a(i);

　　Next i

　　Close#1

　　End Sub

　　④打開工程資源管理器，右擊窗體，選擇查看代碼項，在彈出的代碼窗口輸入代碼如下：

　　’窗體代碼

　　Option Explicit

　　Dim i(1 To 100)As Integer

　　Private Sub Cmd1 Click()

　　Dim j As Integer

　　Open App.Path&"\"&"in.txt"For Input As#1

　　For j=1 To 100

　　Input#1，i(j)

　　Text1.Text=Text1.Text&i(j)&Space(5)

　　Next i

　　Close#1

　　End Sub

　　Private Sub Crod2 Click()

　　Dim j As Integer

　　Dim k As Integer

　　Dim l As Integer

　　Dim temp As Integer

　　For k=1 To 99

　　For l=k+1 To 100

　　If i(k)>i(1)Then temp=i(k)：i(k)=i(1)：i(1)=temp

　　Next i

　　Next k

　　Text1.Text=""

　　For j=1 To 100

　　Text1.Text=Text1.Text &i(j)&Space(5)

　　Next j

　　End Sub

　　⑤調試并運行程序。

　　⑥按題目要求存盤。

　　相關推薦：

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

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題