2013年計算機二級VB上機模擬試題及答案（4）

　　2. 簡單應用(2小題，每題20分，計40分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　***********************************************************************

　　(1)在考生目錄下有一個工程文件sjt3.vbp，窗體上有一個命令按鈕Command1(標題為“下一個”)。

　　要求：

　　在窗體上建立一個單選按鈕數(shù)組Option1，含4個單選按鈕，標題分別為“選項1”、“選項2”、“選項3”、“選項4”，初始狀態(tài)下，“選擇

　　1”為選中狀態(tài)。如圖所示。 窗體文件中已經(jīng)給出了命令按鈕的Click事件過程，但不完整， 請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容，使得每單擊命令按鈕一次，就選中下一個單選按鈕，如果已經(jīng)選中最后一個單選按鈕，再單擊命令按鈕，則選中第1個單選按鈕。

　　注意：

　　不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件不完整，需在該窗體上畫一個單選按鈕控件，通過對單選按鈕控件的復制產(chǎn)生單選

　　按鈕控件數(shù)組，共有四個單選按鈕，標題(Caption屬性)分別設為“選項1”、“選項2”、“選項3”、“選項4”，“選項”的Value屬性設為True。

　　由于所提供的窗體程序不完整，在“下一個”按鈕的Private Sub Command1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'For k = 0 To ?

　　改為

　　For k = 0 To 3

　　2) 將語句

　　'n = ?

　　改為

　　n = k

　　3) 將語句

　　'n = ?

　　改為

　　n = 0

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。

　　**********************************************************************

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，窗體上已經(jīng)畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串(要求串的長度≥10)，然后選擇組合框中的 3個截取運算選項之一。單擊“計算”按鈕，將截取運算后的結果顯示在Text2中。窗體文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　不得修改已經(jīng)給出的程序。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'Select Case ?

　　改為

　　Select Case Combo1.ListIndex

　　2) 將語句

　　'tmpStr = Mid(Trim(Text1.Text), ? )

　　改為

　　tmpStr = Mid(Trim(Text1.Text), 3, 4)

　　3) 將語句

　　'Text2.Text = ?

　　改為

　　Text2.Text = tmpStr

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。

　　**********************************************************************