42

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

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

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

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

　　參考答案:請參考解析 系統解析:

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

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

　　Private Sub Command1_Click()

　　Combol.AddItem Text1

　　End Sub

　　Private Sub Command2_Click()

　　Print Combol.ListCount

　　End Sub

　　單擊

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

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

　　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

　　單擊

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

　　相關推薦：

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

　　考試吧考后首發2014年3月計算機等考真題及答案通知

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