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

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

　　本題描述如下：

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

　　圖52-3

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

　　本題描述如下：

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

　　圖52-4

　　參考解析：

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

　　Private Sub Command1_Click()

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

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

　　Else

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

　　End If

　　End Sub

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

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

　　Private Sub Command1_Click()

　　Dim str As String

　　str = "我會(huì)的編程語言是"

　　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

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

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

　　該程序不完整，請補(bǔ)充完整。

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

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

　　本程序不完整，請補(bǔ)充完整，并能正確運(yùn)行。

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

　　參考解析：

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

　�、趯⒆⑨屨Z句改為：

　　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)，

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

　　相關(guān)推薦：

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

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

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

　　考試吧首發(fā)2015年9月計(jì)算機(jī)二級VB真題答案通知