2014年3月計(jì)算機(jī)二級(jí)考試VF臨考預(yù)測(cè)試卷及答案7

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

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

　　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 ’按順序讀入到數(shù)組中

　　Next i

　　For i=1 To 50

　　Text1.Text=Text1.Text+CStr(a(i))4-vbCrLf’將數(shù)組中的數(shù)放入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

　　’讀取的數(shù)據(jù)比原位置的數(shù)據(jù)大則偏移

　　For k=To j+1 Step-1

　　a(k)=a(k-1) ’數(shù)據(jù)向后偏移一個(gè)

　　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) ’計(jì)算前25個(gè)數(shù)據(jù)的和

　　Next i

　　For i=26 To 50

　　total2=total2+a(i) ’計(jì)算后25個(gè)數(shù)據(jù)的和

　　Next i

　　Text2.Text=total1-total2

　　Writedata(total1-total2)

　　End Sub

　　單擊 按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國(guó)計(jì)算機(jī)二級(jí)考試VF上機(jī)沖刺試卷匯總

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

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