2014年計(jì)算機(jī)二級(jí)考試VB專家預(yù)測試卷及答案3

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

　　文本框顯示的內(nèi)容通過Text屬性設(shè)置;按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事

　　件。本題涉及文件的操作，讀入順序文件以順序的方式打開，用”Input#”語句讀取數(shù)據(jù)。另外需要注意的是，對(duì)文件操作結(jié)束后，一定要關(guān)閉文件。

　�、俳⒔缑娌⒃O(shè)置控件屬性。程序中用到的控件及其屬性如下表所示：

　�、诖蜷_工埕資源管理器，在其空白處右鍵添加模塊pr09.bas(此文件已在考生文件夾里)，模塊代碼

　　如下：

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile="\result.txt"

　　()pen App.Path&sFile For Output As#1

　　Print#1，a;

　　Close#1

　　End Sub

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

　　Dim i(1 To 100)As Integer

　　Private Sub Cmd1 Click()

　　Dim j As Integer

　　j=0

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

　　For j=1 To 100

　　Input#1，i(j)

　　Next j

　　Close#1

　　For j=1 To 100

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

　　Next j

　　End Sub

　　Private Sub Cmd2 Click()

　　Dim sum As Long

　　Dim j.As Integer

　　sum=0

　　Text1.Text=""

　　For j=1 To 100

　　If i(j)>=400 And i(j)<800 Then

　　sum=sum+i(i)

　　End If

　　Next j

　　Text1.Text=Text 1.Text&sum&Spaca(5)

　　putdata sum

　　End Sub

　　’標(biāo)準(zhǔn)模塊代碼

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile="\result.txt"

　　Open App.Path&sFiie For Output As#1

　　Print#1，a;

　　Close#1

　　End Sub

　　相關(guān)推薦：

　　2014年計(jì)算機(jī)二級(jí)C++考試精選試題及答案匯總

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

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