四、綜合應用題

　　根據題意，將兩個Text控件和兩個Command控件添加到窗體上，Text的名稱分別為Text1和Text2、Text屬性都為空，其中Text1的MultiLine屬性為True、ScrollBar屬性為2，Command的名稱分別為Com mand1和Command2、Caption屬性分別為“讀入數據”和“計算保存”。雙擊Command1命令按鈕進入代碼窗口，編寫如下代碼：

　　Dim a(50)As Long’全局變量

　　Prival e Sub Command1_Click()

　　Text1.Text=""

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

　　’打開“in.txt”文件

　　Dim i As Integer

　　Dim temp As Integer

　　For i=1 To 50

　　Iuput#1，temp

　　a(i)=temp ’按順序讀入到數組中

　　Next i

　　For i=1 To 50

　　Text1.Text=Text1.Text+CStr(a(i))4-vbCrLf’將數組中的數放入Text中顯示

　　Next i

　　Close#1

　　End Sub

　　Private Sub Command2 Click()

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　Dim temp As Integer

　　For i=1 T0 50’升序序排列

　　temp=a(i)

　　For i=1 To i

　　If a(j)>temp Then

　　’讀取的數據比原位置的數據大則偏移

　　For k=To j+1 Step-1

　　a(k)=a(k-1) ’數據向后偏移一個

　　Next k

　　a(j)=te rnp

　　Exit For

　　End If

　　Next j

　　Next i

　　Dim total1 As Long

　　Dim total2 As Long

　　total1=0

　　total2=0

　　For i=1 T0 25

　　total1=total1+a(i) ’計算前25個數據的和

　　Next i

　　For i=26 To 50

　　total2=total2+a(i) ’計算后25個數據的和

　　Next i

　　Text2.Text=total1-total2

　　Writedata(total1-total2)

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

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

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