2014計算機(jī)等級《二級VB》上機(jī)考試預(yù)測題及答案2

　　42

　　(1)在名稱為Form1的窗體上添加一個名稱為Label1、標(biāo)題為"添加項(xiàng)目："的標(biāo)簽;添加一個名稱為Text1的文本框，初始內(nèi)容為空;添加一個名稱為Combo1的下拉式組合框，并通過屬性窗口輸入若干項(xiàng)目(不少于3個，內(nèi)容任意);再添加兩個命令按鈕，名稱分別為Command1、Command2，其標(biāo)題分別為"添加"、"統(tǒng)計"。在程序運(yùn)行時，向Text1中輸入字符，單擊"添加"按鈕后，則將Text1中的內(nèi)容作為一個列表項(xiàng)被添加到組合框的列表中;單擊"統(tǒng)計"按鈕，則在窗體空白處顯示組合框中列表項(xiàng)的個數(shù)，如圖所示。請編寫兩個命令按鈕的Click事件過程。

　　注意：程序中不得使用變量，也不能使用循環(huán)結(jié)構(gòu)。存盤時必須存放在考生文件夾下，工程文件名保存為sj3.vbp，窗體文件名保存為sj3.frm。

　　(2)在考生文件夾下有一個工程文件sj4.vbp，其窗體如圖所示。該程序用來對在上面的文本框中輸入的英文字母串(稱為"明文")加密，加密結(jié)果(稱為"密文")顯示在下面的文本框中。加密的方法為：選中一個單選按鈕，單擊"加密"按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，將"明文"中的每個字母改為它后面的第n個字母("z"后面的字母認(rèn)為是"a"，"Z"后面的字母認(rèn)為是"A" )，如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　注意：不得修改程序中的其他部分和控件的屬性。最后將修改后的文件按原文件名存盤。

　　參考答案:請參考解析 系統(tǒng)解析:

　　(1)本題主要考查命令按鈕的Caption和Name屬性，下拉式組合框的Caption、Name、List和ListCount屬性，文本框的Text和Name屬性，標(biāo)簽的Caption和Name屬性，下拉式組合框的AddItem方法以及窗體的Print方法。

　　根據(jù)題意，新建"標(biāo)準(zhǔn)EXE"工程，將一個標(biāo)簽控件、文本框控件、下拉式組合框控件、2個命令按鈕控件添加到窗體中，其中標(biāo)簽控件Caption屬性為"添加項(xiàng)目："，文本框控件名稱為Text1，Text屬性為空，下拉式組合框控件名稱為Combol，List屬性為"中國古巴英國"，命令按鈕控件的名稱分別為Command1和Command2，Caption屬性分別為"添加"和"統(tǒng)計"。雙擊進(jìn)入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Combol.AddItem Text1

　　End Sub

　　Private Sub Command2_Click()

　　Print Combol.ListCount

　　End Sub

　　單擊

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

　　(2)根據(jù)題意，打開本題工程文件，打開代碼編輯窗口，去掉程序中的注釋符"'"，將問號改為正確的內(nèi)容，編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim n As Integer, k As Integer, m As Integer

　　Dim c As String, a As String

　　For k = 0 To 2

　　If Op1(k).Value Then

　　n = Val(Op1(k).Caption)

　　End If

　　Next k

　　m = Len(Text1.Text)

　　a = ""

　　For k = 1 To m

　　c = Mid$(Text1.Text, k, 1)

　　c = String(1, Asc(c) + n)

　　If c > "z" Or c > "Z" And c < "a" Then

　　c = String(1, Asc(c) - 26)

　　End If

　　a = a + c

　　Next k

　　Text2.Text = a

　　End Sub

　　單擊

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

　　相關(guān)推薦：

　　2014年全國計算機(jī)二級VB上機(jī)考試試題匯總

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

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