四、綜合應(yīng)用題

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

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

　�、诮�立界面并設(shè)置控件屬性。按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。程序中用到的控件及屬性設(shè)置見下表：

　　③打開工程資源管理器，在其空白處右鍵添加模塊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

　�、艽蜷_工程資源管理器，右擊窗體，選擇查看代碼項(xiàng)，在彈出的代碼窗口輸入代碼如下：

　　’窗體代碼

　　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

　　⑤調(diào)試并運(yùn)行程序。

　　⑥按題目要求存盤。

　　相關(guān)推薦：

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

　　考試吧考后首發(fā)2014年3月計算機(jī)等考真題及答案通知

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