國家計算機二級___vb機試題庫

1、 二級VB上機試題匯編第01套：1. 基本操作（2小題，每小題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫一個名稱為Text1的文本框，其高、寬分別為400、2000。請在屬性框中設(shè)置適當?shù)膶傩詽M足以下要求：1）Text1的字體為“黑體”，字號為“四號”；2）窗體的標題為“輸入”，不顯示最大化按鈕和最小化按鈕。運行后的窗體如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。解題思路：啟動Visual Bas

2、ic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1，高（Height屬性）設(shè)為400，寬（Width屬性）設(shè)為2000，點擊Font屬性在彈出的字體對話框中將字體設(shè)為“黑體”，大小設(shè)為“四號”。激活Form1窗體，通過其屬性窗口將標題（Caption屬性）設(shè)為“輸入”，最大化按鈕（MaxButton屬性）設(shè)為False，最小化按鈕（MinButton屬性）設(shè)為False。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1

3、.vbp文件并運行。*（2）在名稱為Form1的窗體上畫一個名稱為Image1的圖象框，利用屬性窗口裝入考生目錄下的圖象文件 pic1.bmp，并設(shè)置適當屬性使其中的圖象可以適應(yīng)圖象框大??；再畫兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“向右移動”、“向下移動”。請編寫適當?shù)氖录^程， 使得在運行時，每單擊“向右移動”按鈕一次，圖象框向右移動100；每單擊“向下移動”按鈕一次，圖象框向下移動100。運行時的窗體如圖所示。要求程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。B

4、CE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 2解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫一個圖象框控件，通過其屬性窗口將名稱設(shè)為Image1，通過其Picture屬性將pic1.jpg裝入圖片框，Stretch屬性設(shè)為True。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標題（Caption屬性）設(shè)為“向右移動”、“向下移動”。單擊“向右移動”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(Image1.

5、Left = Image1.Left + 100End Sub單擊“向下移動”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_Click(Image1.Top = Image1.Top + 100End Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*（1）在考生目錄

6、下有一個工程文件sjt3.vbp，窗體上有一個圓和一條直線（直線的名稱為Line1）構(gòu)成一個鐘表的圖案；有兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“開始”、“停止”；還有一個名為Timer1的計時器。程序運行時，鐘表指針不動，單擊“開始”按鈕，則鐘表上的指針（即Line1）開始順時針旋轉(zhuǎn)（每秒轉(zhuǎn)6，一分鐘轉(zhuǎn)一圈）；單擊“停止”按鈕，則指針停止旋轉(zhuǎn)。運行時的窗體如圖所示。請設(shè)置計時器的適當屬性，使得每秒激活計時器的Timer事件一次；并編寫兩個按鈕的Click事件過程。文件中已經(jīng)給出了所有控件和部分程序，不得修改已有程序和其它控件的屬性；編寫的事件過程中不得使用變量

7、，且只能寫一條語句。最后把修改后的文件按原文件名存盤。BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 3解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，通過其屬性窗口將計時器的Enabled屬性設(shè)為False，Interval屬性設(shè)為1000。單擊“開始”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(Timer1.Enabled = TrueEnd Sub單擊“停止”按鈕（

8、即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_Click(Timer1.Enabled = FalseEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。*（2）在考生文件夾下有一個工程文件sjt4.vbp，窗體上有兩個文本框、三個單選按鈕和一個命令按鈕。運行時，在Text1中輸入若干個大寫和小寫字母，并選中一個單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標題進行轉(zhuǎn)換，結(jié)

9、果放入Text2（如圖所示）。在給出的窗體文件中已經(jīng)給出了全部控件，但程序不完整，要求：去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click(事件過程中，有三處地方需要修改。1 將語句a = Mid$(Text1.Text, ? , 1改為a = Mid$(Text1.Text, k, 1BCE 培訓(xùn)中心內(nèi)部資料

10、； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 42 將語句ch = ch + ?改為ch = ch + LCase(a3 將語句Text2 = ?改為Text2 = ch參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生目錄下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件（如圖所示）。請編寫適當?shù)氖录^程完成以下功能：單擊“讀數(shù)”按鈕

11、，則把考生目錄下的in5.txt文件中的一個整數(shù)放入Text1；單擊“計算”按鈕，則計算出大于該數(shù)的第1個素數(shù)，并顯示在Text2中；單擊“存盤”按鈕，則把找到的素數(shù)存到考生目錄下的out5.txt文件中。注意：在結(jié)束程序運行之前，必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整，需添加事件過程。單擊“計算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private

12、 Sub Command2_Click(a% = CInt(Text1.TextDoa% = a% + 1Loop Until isprime(a%Text2.Text = a%End Subisprime函數(shù)是判斷參數(shù)是否為素數(shù)的，函數(shù)中語句為：Function isprime(a As IntegerDim flag As Booleank% = 2flag = TrueWhile k% = Int(a / 2 And flagIf a / k% = Int(a / k% Thenflag = FalseEnd IfBCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考

13、試中心題庫 5k% = k% + 1Wendisprime = flagEnd Function參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。第02套：1. 基本操作（2小題，每小題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上用名稱為Shape1的控件畫一個圓，其直徑為1500（即寬、高均為1

14、500 ），并設(shè)置適當屬性，使窗口標題為“圓”，窗體標題欄上不顯示最大化和最小化按鈕（如圖所示）。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上用Shape圖形控件畫一個園，通過其屬性窗口將名稱設(shè)為Shape1，高（Height屬性）設(shè)為1500，寬（Width屬性）設(shè)為1500，Shape屬性設(shè)為3。激活Form1窗體，通過其屬性窗口將標題（Caption屬性）設(shè)為“圓”，最大化按鈕（MaxButton屬性）設(shè)為False，最小化按鈕（MinButton屬性）設(shè)為F

15、alse。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。*（2）在名稱為Form1的窗體中建立一個彈出式菜單（程序運行時不顯示），名稱為file， 含兩個菜單項，其名稱分別為open、save，標題分別為“打開”、“存盤”。編寫適當?shù)氖录^程。程序運行后，如果用鼠標右鍵單擊窗體，則彈出此菜單（如圖所示）。注意：程序中不能使用變量。保存時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frmBCE 培訓(xùn)中心內(nèi)部資料；

16、 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 6解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上通過菜單編輯器建立一個主菜單，在菜單編輯器的標題處為空，名稱處輸入file，將“可見”單選按鈕設(shè)為不選狀態(tài)。在該菜單下有二個子菜單，在菜單編輯器的標題處分別輸入“打開”、“存盤”，名稱處分別輸入open、save。鼠標右鍵單擊窗體（即運行MouseDown事件過程），在該MouseDown事件過程中加入語句：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single

17、, Y As SingleIf Button = 2 ThenPopupMenu fileEnd IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*（1）在考生目錄下有一個工程文件sjt3.vbp，窗體上有一個組合框Combo1，其中已經(jīng)預(yù)設(shè)了內(nèi)容；還有一個文本框Text1和三個命令按鈕，名稱分別為Command1、Command2、C

18、ommand3，標題分別為“修改”、“確定”、“添加”。程序運行時，“確定”按鈕不可用，如圖所示。程序的功能是：在運行時，如果選中組合框中的一個列表項，單擊“修改”按鈕，則把該項復(fù)制到Text1中（可在Text1中修改），并使“確定”按鈕可用；若單擊“確定”按鈕， 則把修改后的Text1中的內(nèi)容替換組合框中該列表項的原有內(nèi)容，同時使“確定”按鈕不可用；若單擊“添加”按鈕，則把在Text1中的內(nèi)容添加到組合框中。所提供的窗體文件已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ？ 改為正確的內(nèi)容。但不能修改程序中的其他部分， 也不能修改控件的屬性。最后把修改后的文件按原文

19、件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，通過屬性窗口將“確定”按鈕的Enabled屬性設(shè)為False。由于所提供的窗體程序不完整，在“修改”按鈕的Private Sub Command1_Click(事件過程中，有一處地方需要修改。1 將語句Command2. ? = TrueBCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 7改為Command2.Enabled = True在“確定”按鈕的Private Sub Command2

20、_Click(事件過程中，有一處地方需要修改。1 將語句Combo1.List( ? = Text1改為Combo1.List(Combo1.ListIndex = Text1在“添加”按鈕的Private Sub Command3_Click(事件過程中，有一處地方需要修改。1 將語句? Text1改為Combo1.AddItem Text1參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。*（2）在考生目錄下有一個工程文件s

21、jt4.vbp，窗體中的兩個滾動條分別表示紅燈亮和綠燈亮的時間（秒），移動滾動框可以調(diào)節(jié)時間，調(diào)節(jié)范圍為1-10秒。剛運行時，紅燈亮。單擊“開始”按鈕則開始切換：紅燈到時后自動變?yōu)辄S燈，1秒后變?yōu)榫G燈；綠燈到時后自動變?yōu)辄S燈，1秒后變?yōu)榧t燈，如此切換（如圖所示）。所提供的窗體文件已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。提示：在三個圖片框picture1、picture2、picture3中分別放置了紅燈亮、綠燈亮、黃燈亮的圖標，并重疊在一起，當要使某個燈亮?xí)r，就使相應(yīng)的圖片框可見，而其他圖片框不可見，并保持規(guī)定的時間，時間到就切換為另一個圖片

22、框可見，其他圖片框不可見。注意：考生不得修改工程中已經(jīng)存在的內(nèi)容和控件屬性，最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click(中，有二處地方需要修改。1 將語句? = HScroll1.Value改為red = HScroll1.Value2 將語句Timer1.Enabled = ?改為Timer1.Enabled = True由于所提供的窗體程序不完整，在計時器的Private Sub

23、 Timer1_Timer(中，有二處地方需要修改。1 將語句BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 8? .Visible = False改為Picture1.Visible = False2 將語句green = ?改為green = green - 1參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USE

24、R%在考生文件夾下有一個工程文件sjt5.vbp，相應(yīng)的窗體文件是sjt5.frm（如圖所示）。該程序的功能是： 單擊“讀數(shù)”按鈕，讀入考生文件夾下in5.txt文件中的一個整數(shù)，并放入Text1中； 單擊“計算”按鈕，則計算小于該數(shù)的最大素數(shù)，并顯示在Text2中；單擊“存盤”按鈕，則把該素數(shù)保存到考生文件夾下的out5.txt文件中。要求：1）程序已給出“存盤”按鈕的事件過程代碼。“讀數(shù)”按鈕的事件過程和判斷x是否是素數(shù)的函數(shù)prime（x）不完整，請去掉注釋，并在？處填上正確的內(nèi)容，使程序完整。2）編寫“計算”按鈕的事件過程。計算小于Text1中數(shù)據(jù)的最大素數(shù)。3）請不要改動窗體上所有控

25、件屬性設(shè)置及相應(yīng)的過程代碼。最后將改動后的程序用原文件名保存。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整，需添加事件過程。執(zhí)行“計算”命令（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command2_Click(n = Val(Text1.TextFor i = n To 2 Step -1l = prime(iIf l = True ThenExit ForEnd IfNextText2.Text = iEnd Sub在“讀數(shù)”按鈕的P

26、rivate Sub Command1_Click(中，有一處地方需要修改。1 將語句Input #1, ?BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 9改為Input #1, a%在函數(shù)Function prime(x As Boolean中，有一處地方需要修改。1 將語句prime = ?改為prime = flag參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。第03套：1. 基

27、本操作（2小題，每小題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1的窗體上畫一個名稱為Frame1，標題為“目的地”的框架，在框架中添加三個復(fù)選框，名稱分別為Check1、Check2、Check3，其標題分別是“上?！?、“廣州”、“巴黎”，其中“上?！睘檫x中狀態(tài)，“廣州”為未選狀態(tài)，“巴黎”為灰色狀態(tài)，如圖所示。請畫控件并設(shè)置相應(yīng)屬性。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。解題思路：啟動Visual Basic

28、系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫一個框架控件，通過其屬性窗口將名稱設(shè)為Frame1，標題（Caption屬性）設(shè)為“目的地”。在F1框架中畫三個復(fù)選框控件，通過其屬性窗口將名稱分別設(shè)為Check1、Check2、Check3，標題（Caption屬性）分別設(shè)為“上海”、“廣州”、“巴黎”，“上?！钡腣alue屬性設(shè)為1,“巴黎”的Value屬性設(shè)為2。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。*（2）在名稱為Form1的窗體上畫

29、一個名稱為Picture1的圖片框， 其寬和高分別為1700、1900。請編寫適當事件過程，使得在運行時，單擊圖片框，則裝入考生目錄下的圖形文件pic1.bmp，如圖所示。單擊窗體則圖片框中的圖形消失。要求程序中不得使用變量，每個事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 10為sjt2.frm。解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫一個圖片框，通過其屬性窗口將名稱設(shè)為Picture1，寬度（Width屬性）設(shè)

30、為1700，高度（Height屬性）設(shè)為1900。單擊圖片框（即運行Click事件過程），在Click事件過程中加入語句：Picture1.Picture =LoadPicture(pic1.bmp，即將考生目錄下的圖形文件pic1.bmp裝入圖片框中。單擊窗體（即運行Click事件過程），在Click事件過程中加入語句：Picture1.Picture = LoadPicture(，即圖片框中的圖形消失。參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文

31、件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*（1）在考生目錄下有一個工程文件sjt3.vbp，窗體文件中已給出所有控件和部分程序，如圖所示。要求：1）利用屬性窗口設(shè)置適當?shù)膶傩?，使text1、text2中數(shù)據(jù)右對齊；2）請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40（度數(shù)），選擇一個單選按鈕，單擊“計算”按鈕，則根據(jù)所選擇的單選按鈕， 計算出相應(yīng)的正弦、余弦值（保留3位小數(shù)，第4位截去，取3.14159），并顯示在Text2中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必須進行一種計算，在Text1中輸入的

32、必須是40， 必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，通過屬性窗口將文本框的對齊格式（Alignment屬性）均設(shè)為1。BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 11由于所提供的窗體程序不完整，需添加事件過程。單擊“計算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(If Option1

33、.Item(0 = True ThenText2.Text = Format(Sin(Val(Text1.Text * 3.14159 / 180, 0.000End IfIf Option1.Item(1 = True ThenText2.Text = Format(Cos(Val(Text1.Text * 3.14159 / 180, 0.000End IfEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。*（

34、2）在考生文件夾下有一個工程文件sjt4.vbp，窗體上已經(jīng)給出所有控件。程序運行時，單擊“開始”按鈕，則汽車圖標向右運動；單擊“停止”按鈕則汽車停止運動；移動滾動條上的滾動框，可以改變汽車的運動速度（滾動框向右移動，速度減慢）。如圖所示。要求：去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。提示：窗體上有一個計時器，計時器的事件過程每執(zhí)行一次，汽車向右移動10，程序通過改變計時器控件的Interval屬性來改變汽車的運動速度。注意：不得修改控件的屬性。最后，按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt

35、4.frm。由于所提供的窗體程序不完整，在“開始”按鈕的Private Sub Command1_Click(事件過程中，有一處地方需要修改。1 將語句Timer1.Enabled = ?改為Timer1.Enabled = True在滾動框的Private Sub HScroll1_Change(事件過程中，有一處地方需要修改。1 將語句?.Interval = HScroll1.Value改為Timer1.Interval = HScroll1.Value在計時器的Private Sub Timer1_Timer(事件過程中，有一處地方需要修改。1 將語句Picture1.Left = ?

36、 + 10改為BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 12Picture1.Left = Picture1.Left + 10參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%以下數(shù)列：1，1，2，3，5，8，13，21，的規(guī)律是從第3個數(shù)開始，每個數(shù)是它前面兩個數(shù)之和。在考生目錄下有一個工程文件sjt

37、5.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請編寫適當?shù)氖录^程實現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊“計算”按鈕，則在Text2中顯示該數(shù)列第40項的值；如果單擊“存盤”按鈕，則將計算的第40項的值存到考生目錄下的out5.txt文件中。（提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量）注意：在結(jié)束程序運行之前必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整，需添加事件過程。單擊“計

38、算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(Dim f1, f2, f As LongDim a(40 As Longf1 = 1f2 = 1a(1 = f1a(2 = f2For i = 3 To Val(Text1.Textf = f1 + f2a(i = ff1 = f2f2 = fNextText2.Text = a(40End Sub參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt請把這些文件復(fù)制到c:wexam26990

39、001中，然后打開sjt5.vbp文件并運行。第04套：1. 基本操作（2小題，每小題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 13*請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。（1）在名稱為Form1 的窗體上畫一個名稱為Combo1的組合框，其寬度為1200，其類型如圖所示（即簡單組合框）。要求：1）請按圖中所示，通過屬性窗口輸入“北京”、“上?！?、“廣州”、“深圳”。2）設(shè)置適當?shù)膶傩?，使得運行時，窗體的最大化按鈕和最小化按鈕消失。注意：存盤時必

40、須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫一個組合框控件，通過其屬性窗口將名稱設(shè)為Combo1，寬（Width屬性）設(shè)為1200，Style屬性設(shè)為1，向組合框中添加項目（List屬性），添加的項目分別為“北京”、“上?！?、“廣州”、“深圳”，每個項目為一行。激活Form1窗體，通過其屬性窗口將最大化按鈕（MaxButton屬性）設(shè)為False，最小化按鈕（MinButton屬性）設(shè)為False。參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、s

41、jt1.frm、sjt1.frx、sjt1.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。*（2）在名稱為Form1 的窗體上畫兩個文本框，名稱分別為Text1、Text2，再畫兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“左”、“右”，見圖2。要求：編寫適當?shù)氖录^程，使得程序運行時，單擊“左”按鈕，則焦點位于Text1上；單擊“右”按鈕，則焦點位于Text2上。注意：程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。BCE 培訓(xùn)中心

42、內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 14解題思路：啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。在該窗體上畫二個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1和Text2。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標題（Caption屬性）分別設(shè)為“左”、“右”。單擊“左”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(Text1.SetFocusEnd Sub單擊“右”按鈕（即運行Click事件過程），在該Click事件過程中加

43、入語句：Private Sub Command2_Click(Text2.SetFocusEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。2. 簡單應(yīng)用（2小題，每題20分，計40分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*（1）在考生目錄下有一個工程文件sjt3.vbp，窗體上有一個命令按鈕Command1（標題為“下一個”）。要求：在窗體上建立一個單選按鈕數(shù)組Option1，含4個單選按鈕，標題分別為“選項1”、“選項

44、2”、“選項3”、“選項4”，初始狀態(tài)下，“選擇1”為選中狀態(tài)。如圖所示。 窗體文件中已經(jīng)給出了命令按鈕的Click事件過程，但不完整， 請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使得每單擊命令按鈕一次，就選中下一個單選按鈕，如果已經(jīng)選中最后一個單選按鈕，再單擊命令按鈕，則選中第1個單選按鈕。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，需在該窗體上畫一個單選按鈕控件，通過對單選按鈕控件的復(fù)制產(chǎn)生單選按鈕控件

45、數(shù)組，共有四個單選按鈕，標題（Caption屬性）分別設(shè)為“選項1”、“選項2”、“選項3”、“選項4”，“選項”的Value屬性設(shè)為True。由于所提供的窗體程序不完整，在“下一個”按鈕的Private Sub Command1_Click(事件過程中，有三處地方需要修改。1 將語句For k = 0 To ?改為For k = 0 To 32 將語句n = ?改為BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 15n = k3 將語句n = ?改為n = 0參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、

46、sjt3.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。*（2）在考生文件夾下有一個工程文件sjt4.vbp，窗體上已經(jīng)畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串（要求串的長度10），然后選擇組合框中的 3個截取運算選項之一。單擊“計算”按鈕，將截取運算后的結(jié)果顯示在Text2中。窗體文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容。注意：不得修改已經(jīng)給出的程序。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相

47、應(yīng)的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click(事件過程中，有三處地方需要修改。1 將語句Select Case ?改為Select Case Combo1.ListIndex2 將語句tmpStr = Mid(Trim(Text1.Text, ? 改為tmpStr = Mid(Trim(Text1.Text, 3, 43 將語句Text2.Text = ?改為Text2.Text = tmpStr參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.frx、sj

48、t4.vbw請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。*3. 綜合應(yīng)用（1小題，計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%以下數(shù)列：1，1，3，5，9，15，25，41，的規(guī)律是從第3個數(shù)開始，每個數(shù)是它前面兩個數(shù)的和加1。在考生目錄下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請編寫適當?shù)氖录^程實現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊BCE 培訓(xùn)中心內(nèi)部資料； 教學(xué)咨詢QQ：1052205362國家教育部考試中心題庫 16“計算”按鈕，則在Text2中顯示該數(shù)列第40項的值。如果單擊“存盤”按鈕，則將

49、計算的第40項的值存到考生目錄下的out5.txt文件中。（提示：因數(shù)據(jù)較大， 應(yīng)使用Long型變量）注意：在結(jié)束程序運行之前，必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，否則無成績。最后把修改后的文件按原文件名存盤。解題思路：啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整，需添加事件過程。單擊“計算”按鈕（即運行Click事件過程），在該Click事件過程中加入語句：Private Sub Command1_Click(Dim f As Longa(1 = 1a(2 = 1For i = 3 To Val(Text1.Textf = a(i - 2 + a(i - 1 + 1a(i = fNextText2.Text = fEnd Sub參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。第05套：1. 基本操作（2小題，每小題15分，共計30分）注意：下面出現(xiàn)的“考生文件夾”均為%USER%*請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面