二、簡(jiǎn)單應(yīng)用題

　　3(1)在考生文件夾下有工程文件sj3.vbp及窗體文件sj3.frm。要求在窗體上畫(huà)一個(gè)名為Command1、標(biāo)題為"寫(xiě)入文件"的命令按鈕，要求當(dāng)執(zhí)行事件過(guò)程Command1 click時(shí)，彈出一個(gè)輸入對(duì)話(huà)框，輸入完成后單擊"確定"，則將輸入的內(nèi)容寫(xiě)入考生文件夾下的out3.txt文件中。生文件夾下的程序代碼是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。程序運(yùn)行時(shí)的窗體界面如圖25-3所示。

　　圖25-3

　　注意：程序編寫(xiě)完畢，考生應(yīng)執(zhí)行一個(gè)操作，寫(xiě)入一組數(shù)據(jù)到out3.txt中。

　　(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm。打開(kāi)該工程文件，在窗體上畫(huà)兩個(gè)文本框，名稱(chēng)分別為T(mén)ext1和Text2：然后畫(huà)3個(gè)標(biāo)簽，名稱(chēng)分別為L(zhǎng)abel1、Label2和Label3，其標(biāo)題分別為兩個(gè)空白和"=";建立一個(gè)含有4個(gè)單選按鈕的控件數(shù)組，名稱(chēng)為Option1，標(biāo)題分別為"+"、"-"、"*"和"/"，兩個(gè)名稱(chēng)分別為Command1、Command2、標(biāo)題分別為"計(jì)算"、"清空"的命令按鈕。程序運(yùn)行后，在Text1、Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后，Label1上顯示相應(yīng)的運(yùn)算符，單擊"計(jì)算"命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label3中;單擊"清空"按鈕，數(shù)據(jù)被清空。程序運(yùn)行如圖25-4所示。

　　圖25-4

　　該程序代碼窗口中的代碼是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。

　　參考解析：

　　(1)打開(kāi)順序文件的基本格式為：Open FileName For Mode As #FileNumber。FileName表示要打開(kāi)的文件的路徑;Mode為打開(kāi)模式，OutPut用于輸出、Append用于追加寫(xiě)入、Input用于讀取;FileNumber為打開(kāi)文件時(shí)指定的句柄。Input #語(yǔ)句用于讀取打開(kāi)的順序文件中一項(xiàng)(或多項(xiàng))內(nèi)容給一個(gè)變量(或多個(gè)變量)，Line Input #語(yǔ)句常用于按行讀取。Close #語(yǔ)句用于關(guān)閉打開(kāi)的文件。使用Write語(yǔ)句寫(xiě)入數(shù)據(jù)，只是將數(shù)據(jù)寫(xiě)入內(nèi)存中，并沒(méi)有寫(xiě)到打開(kāi)的文件中，只有使用Close語(yǔ)句結(jié)束這一語(yǔ)句后，數(shù)據(jù)才被寫(xiě)入到文本文件中。

　　根據(jù)題意，將一個(gè)命令按鈕添加到窗體中，其名稱(chēng)為Command1、Caption屬性為"寫(xiě)入文件"。雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = InputBox("請(qǐng)輸入要保存的字符串:") '輸入對(duì)話(huà)框

　　Open "App.Path&\out3.txt" For Append As #1′打開(kāi)文件準(zhǔn)備順序?qū)懭?/P>

　　Print #1, str '寫(xiě)入輸入對(duì)話(huà)框中的內(nèi)容

　　Close #1 '關(guān)閉文件

　　End Sub

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

　　(2)本題主要考查控件及控件數(shù)組的畫(huà)法、單選按鈕的使用及Select Case多分支語(yǔ)句的用法�？丶䲠�(shù)組是一組具有共同名稱(chēng)和類(lèi)型的控件，它們具有共同的事件，數(shù)組中的每個(gè)控件都有唯一的索引號(hào)(Index)，即下標(biāo)。添加控件數(shù)組的方法是：先通過(guò)工具箱建立第一個(gè)控件，然后對(duì)該控件進(jìn)行"復(fù)制"、"粘貼"操作，粘貼時(shí)在彈出的對(duì)話(huà)框中選擇建立控件數(shù)組，這時(shí)控件數(shù)組的Index值會(huì)自動(dòng)從0開(kāi)始編號(hào)。單選按鈕組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：False為未選、True為選中。

　　根據(jù)題意，將一組4個(gè)單選按鈕控件，兩個(gè)命令按鈕，兩個(gè)文本框控件和3個(gè)標(biāo)簽添加到窗體中，單選按鈕的名稱(chēng)都為Option1，Caption分別為"+"、"-"、"*"和"、"，命令按鈕的名稱(chēng)分別為Command1和Command2，Caption屬性分別為"計(jì)算"和"清空"，文本框的名稱(chēng)分別為T(mén)ext1和Text2、Text屬性都為空，標(biāo)簽的名稱(chēng)分別為L(zhǎng)abel1、Label2和Label3，Caption屬性分別為空、"="和空。雙擊Command1進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：

　　Dim tmp As Integer

　　Private Sub Command1_Click()

　　If tmp = 0 Then

　　Label3.Caption = Val(Text1.Text) + Val(Text2.Text) '加法運(yùn)算

　　ElseIf tmp = 1 Then

　　Label3.Caption = Val(Text1.Text) - Val(Text2.Text) '減法運(yùn)算

　　ElseIf tmp = 2 Then

　　Label3.Caption = Val(Text1.Text) * Val(Text2.Text) '乘法運(yùn)算

　　Else

　　Label3.Caption = Val(Text1.Text) \ Val(Text2.Text) '除法運(yùn)算

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Text1.Text = ""

　　Text2.Text = ""

　　End Sub

　　Private Sub Form_Load()

　　Label1.Caption = Option1.Item(0).Caption '顯示"+"號(hào)

　　End Sub

　　Private Sub Option1_Click(Index As Integer)

　　tmp = Index

　　Label1.Caption = Option1.Item(tmp).Caption '顯示當(dāng)前符號(hào)

　　End Sub

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

　　相關(guān)推薦：

　　2015年9月計(jì)算機(jī)等級(jí)考試考場(chǎng)拿高分技巧

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題