二、簡單應用題

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

　　本題描述如下：

　　在窗體上有兩個名稱分別為Text1和Text2的文本框，一個名稱為Command1，標題為"登錄"的命令按鈕。其中Text1文本框用來輸入用戶名，Text2文本框用來輸入口令，要求在Text2文本框中輸入的內容都必須以"*"顯示(請考生通過屬性窗口設置)，初始運行時兩個文本框均為空。要求程序運行后，輸入用戶名口令，單擊命令按鈕后，對口令進行校驗。如果輸入的內容都是"ABC"這3個大寫字母，則用MsgBox信息框輸出"正確"，否則輸出"錯誤"，如圖52-3所示。

　　圖52-3

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

　　本題描述如下：

　　在窗體上有3個名稱分別為Check1、Check2和Check3的復選框，標題依次為"C++"、"Basic"和"JAVA";有一個名稱為Label1，標題為"編程語言"的標簽，還有一個名稱為Command1，標題為"顯示"的命令按鈕。要求程序運行后，如果選擇某個復選框，當單擊命令按鈕時在窗體上輸出相應的信息。例如：如果選擇"C++"和"JAVA"復選框，單擊顯示按鈕后，將在窗體上顯示"我會的編程語言是C++JAVA"，如圖52-4所示。

　　圖52-4

　　參考解析：

　　(1)根據題意，將兩個文本框控件和命令按鈕添加到窗體中，兩個文本框的名稱為Text1和Text2，Text2的PasswordChar屬性為“*”，命令按鈕的名稱為Command1，Caption屬性為“登錄”。雙擊Command1進入代碼編輯窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　If Text1.Text = "ABC" And Text2.Text = "ABC" Then '判斷是否都為ABC

　　MsgBox ("正確") '是則彈出J“正確”對話框

　　Else

　　MsgBox ("錯誤") '否則彈出“錯誤”對話框

　　End If

　　End Sub

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

　　(2) 根據題意，將3個復選按鈕控件、一個標簽和一個命令按鈕添加到窗體中，標簽的Caption屬性為“編程語言”，命令按鈕的名稱為Command1，Caption屬性為“顯示”，3個復選按鈕控件的名稱分別為Check1、Check2和Check3，Caption屬性分別為“C++”、“Basic”和“JAVA”。雙擊命令按鈕進入代碼編寫窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = "我會的編程語言是"

　　If Check1.Value = 1 Then 'Check1被選中

　　str = str + Check1.Caption

　　End If

　　If Check2.Value = 1 Then 'Check2被選中

　　str = str + Check2.Caption

　　End If

　　If Check3.Value = 1 Then 'Check3被選中

　　str = str + Check3.Caption

　　End If

　　Print str

　　End Sub

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

　　4(1)在考生文件夾中有一個工程文件sj3.vbp，相應的窗體文件為sj3.frm。在在名為Form1的窗體上有一個命令按鈕，其名稱為Cmd1，標題為"輸入";還有一個文本框，其名稱為Text1，初始內容為空白。程序運行后，單擊"輸入"命令按鈕，顯示"輸入"對話框。在對話框中輸入某個月份的數值(1～12)，然后單擊"確定"按鈕，即可在文本框中輸出該月份所在的季節。

　　該程序不完整，請補充完整。

　　要求：去掉程序中的注釋符"'"，把程序中的問號"?"改為正確的內容，使其能正確運行，但不得修改程序的其他部分。最后用原名保存工程文件和窗體文件。

　　(2)在考生文件夾中有一個工程文件sj4.vbp，相應的窗體文件為sj4.frm。在名為Form1的窗體上有一個名稱為Cmd1、標題為"計算"的命令按鈕;兩個水平滾動條，名稱分別為HS1和HS2，其Max屬性均為100，Min屬性均為1;4個標簽，名稱分別為Lab1、Lab2、Lab3和Lab4，標題分別為"運算數1"、"運算數2"、"運算結果"和空白;此外，還有一個包含4個單選按鈕的控件數組，名為Opt1，標題分別為"+"、"-"、"*"和"/"。程序運行后，移動兩個滾動條中的滾動框，用滾動條的當前值作為運算數，如果選中一個單選鈕，然后單擊命令按鈕，相應的計算結果將顯示在Lab4中。

　　本程序不完整，請補充完整，并能正確運行。

　　要求：去掉程序中的注釋符"'"，把程序中的問號"?"改為正確的內容，使其能正確運行，但不得修改程序的其他部分，也不得修改控件的屬性。最后用原名保存工程文件和窗體文件。

　　參考解析：

　　(1)①打開題目所給工程文件;

　　②將注釋語句改為：

　　Loop　Until　n>0Andn<13、Select　Case n和Select　Case　m，

　　③按要求保存文件即完成本題。

　　(2)①打開題目所給工程文件;

　　②將注釋語句改為：

　　IfOpt1(i).Value=TrueThen

　　SelectCase opt

　　Lab4=Str(HS1.Value)&""&

　　opt&Str(HS2.Value)&"="&Str(Result)，

　　③按要求保存文件即完成本題。

　　相關推薦：

　　2015年計算機等級考試時間安排(各地略有不同)

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

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

　　考試吧首發2015年9月計算機二級VB真題答案通知