2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（4）

　　2. 簡單應(yīng)用(2小題，每題20分，計(jì)40分)

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

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

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

　　要求：

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

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

　　注意：

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

　　解題思路：

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

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

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

　　由于所提供的窗體程序不完整，在“下一個(gè)”按鈕的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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運(yùn)行。

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

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

　　注意：

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

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運(yùn)行。

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