二、簡單應用題

　　3(1)在考生文件夾下有工程文件sj3.vbp及窗體文件sj3.frm。要求在窗體上畫一個名為Command1、標題為"寫入文件"的命令按鈕，要求當執行事件過程Command1 click時，彈出一個輸入對話框，輸入完成后單擊"確定"，則將輸入的內容寫入考生文件夾下的out3.txt文件中。生文件夾下的程序代碼是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。程序運行時的窗體界面如圖25-3所示。

　　圖25-3

　　注意：程序編寫完畢，考生應執行一個操作，寫入一組數據到out3.txt中。

　　(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm。打開該工程文件，在窗體上畫兩個文本框，名稱分別為Text1和Text2：然后畫3個標簽，名稱分別為Label1、Label2和Label3，其標題分別為兩個空白和"=";建立一個含有4個單選按鈕的控件數組，名稱為Option1，標題分別為"+"、"-"、"*"和"/"，兩個名稱分別為Command1、Command2、標題分別為"計算"、"清空"的命令按鈕。程序運行后，在Text1、Text2中輸入兩個數值，選中一個單選按鈕后，Label1上顯示相應的運算符，單擊"計算"命令按鈕，相應的計算結果顯示在Label3中;單擊"清空"按鈕，數據被清空。程序運行如圖25-4所示。

　　圖25-4

　　該程序代碼窗口中的代碼是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。

　　參考解析：

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

　　根據題意，將一個命令按鈕添加到窗體中，其名稱為Command1、Caption屬性為"寫入文件"。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = InputBox("請輸入要保存的字符串:") '輸入對話框

　　Open "App.Path&\out3.txt" For Append As #1′打開文件準備順序寫入

　　Print #1, str '寫入輸入對話框中的內容

　　Close #1 '關閉文件

　　End Sub

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

　　(2)本題主要考查控件及控件數組的畫法、單選按鈕的使用及Select Case多分支語句的用法。控件數組是一組具有共同名稱和類型的控件，它們具有共同的事件，數組中的每個控件都有唯一的索引號(Index)，即下標。添加控件數組的方法是：先通過工具箱建立第一個控件，然后對該控件進行"復制"、"粘貼"操作，粘貼時在彈出的對話框中選擇建立控件數組，這時控件數組的Index值會自動從0開始編號。單選按鈕組常用于提供唯一選擇，Value屬性值決定每個單選按鈕的選中狀態：False為未選、True為選中。

　　根據題意，將一組4個單選按鈕控件，兩個命令按鈕，兩個文本框控件和3個標簽添加到窗體中，單選按鈕的名稱都為Option1，Caption分別為"+"、"-"、"*"和"、"，命令按鈕的名稱分別為Command1和Command2，Caption屬性分別為"計算"和"清空"，文本框的名稱分別為Text1和Text2、Text屬性都為空，標簽的名稱分別為Label1、Label2和Label3，Caption屬性分別為空、"="和空。雙擊Command1進入代碼窗口，補充后的代碼如下：

　　Dim tmp As Integer

　　Private Sub Command1_Click()

　　If tmp = 0 Then

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

　　ElseIf tmp = 1 Then

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

　　ElseIf tmp = 2 Then

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

　　Else

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

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Text1.Text = ""

　　Text2.Text = ""

　　End Sub

　　Private Sub Form_Load()

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

　　End Sub

　　Private Sub Option1_Click(Index As Integer)

　　tmp = Index

　　Label1.Caption = Option1.Item(tmp).Caption '顯示當前符號

　　End Sub

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

　　相關推薦：

　　2015年9月計算機等級考試考場拿高分技巧

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題