1、國家教育部考試中心題庫 1二級VB上機試題匯編第01套:1. 基本操作(2小題,每小題15分,共計30分注意:下面出現的“考生文件夾”均為%USER%* 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼。(1在名稱為Form1的窗體上畫一個名稱為Text1的文本框,其高、寬分別為400、2000。請在屬性框中設置適當的屬性滿足以下要求:1Text1的字體為“黑體”,字號為“四號”;2窗體的標題為“輸入”,不顯示最大化按鈕和最小化按鈕。運行后的窗體如圖所示。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。解題思路:啟動Vi

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

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

4、。國家教育部考試中心題庫 2解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫一個圖象框控件,通過其屬性窗口將名稱設為Image1,通過其Picture 屬性將pic1.jpg裝入圖片框,Stretch屬性設為True。畫二個命令按鈕控件,通過其屬性窗口將名稱分別設為Command1、Command2,標題(Caption屬性設為“向右移動”、“向下移動”。單擊“向右移動”按鈕(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command1_Click(Image1.Left = Image1.Left + 100End S

5、ub單擊“向下移動”按鈕(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command2_Click(Image1.Top = Image1.Top + 100End Sub參考文件:c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw 請把這些文件復制到c:wexam26990001中,然后打開sjt2.vbp文件并運行。2. 簡單應用(2小題,每題20分,計40分注意:下面出現的“考生文件夾”均為%USER%* (1在考生目錄下有一個工程文件sjt3.vbp,窗體上有一個圓和一條直線

6、(直線的名稱為Line1構成一個鐘表的圖案;有兩個命令按鈕,名稱分別為Command1、Command2,標題分別為“開始”、“停止”;還有一個名為Timer1的計時器。程序運行時,鐘表指針不動,單擊“開始”按鈕,則鐘表上的指針(即Line1開始順時針旋轉(每秒轉6,一分鐘轉一圈;單擊“停止”按鈕,則指針停止旋轉。運行時的窗體如圖所示。請設置計時器的適當屬性,使得每秒激活計時器的Timer事件一次;并編寫兩個按鈕的Click事件過程。文件中已經給出了所有控件和部分程序,不得修改已有程序和其它控件的屬性;編寫的事件過程中不得使用變量,且只能寫一條語句。最后把修改后的文件按原文件名存盤。國家教育部

7、考試中心題庫 3解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt3.vbp,相應的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整,通過其屬性窗口將計時器的Enabled屬性設為False,Interval屬性設為1000。單擊“開始”按鈕(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command1_Click(Timer1.Enabled = TrueEnd Sub單擊“停止”按鈕(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command2_Click(Timer

8、1.Enabled = FalseEnd Sub參考文件:c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請把這些文件復制到c:wexam26990001中,然后打開sjt3.vbp文件并運行。* (2在考生文件夾下有一個工程文件sjt4.vbp,窗體上有兩個文本框、三個單選按鈕和一個命令按鈕。運行時,在Text1中輸入若干個大寫和小寫字母,并選中一個單選按鈕,再單擊“轉換”按鈕,則按選中的單選按鈕的標題進行轉換,結果放入Text2(如圖所示。在給出的窗體文件中已經給出了全部控件,但程序不完整,要求:去掉程序中的注釋符,把程序中的?改為正確

9、的內容。注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt4.vbp,相應的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整,在命令按鈕的Private Sub Command1_Click(事件過程中,有三處地方需要修改。1 將語句a = Mid$(Text1.Text, ? , 1改為a = Mid$(Text1.Text, k, 1國家教育部考試中心題庫 42 將語句ch = ch + ?改為ch = ch + LCase(a3 將語句Text2 = ?改為Text2 = ch參考文

10、件:c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw請把這些文件復制到c:wexam26990001中,然后打開sjt4.vbp文件并運行。* 3. 綜合應用(1小題,計30分注意:下面出現的“考生文件夾”均為%USER%在考生目錄下有一個工程文件sjt5.vbp。窗體中已經給出了所有控件(如圖所示。請編寫適當的事件過程完成以下功能:單擊“讀數”按鈕,則把考生目錄下的in5.txt文件中的一個整數放入Text1;單擊“計算”按鈕,則計算出大于該數的第1個素數,并顯示在Text2中;單擊“存盤”按鈕,則把找到的素數存到考生目錄下的out5.t

11、xt文件中。注意:在結束程序運行之前,必須單擊“存盤”按鈕,把結果存入out5.txt文件,否則無成績。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt5.vbp,相應的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。單擊“計算”按鈕(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command2_Click(a% = CInt(Text1.TextDoa% = a% + 1Loop Until isprime(a%Text2.Text = a%End Subi

12、sprime函數是判斷參數是否為素數的,函數中語句為:Function isprime(a As IntegerDim flag As Booleank% = 2flag = TrueWhile k% = Int(a / 2 And flagIf a / k% = Int(a / k% Thenflag = FalseEnd If;教學咨詢QQ1218317661國家教育部考試中心題庫 5k% = k% + 1Wendisprime = flagEnd Function參考文件:c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.t

13、xt 請把這些文件復制到c:wexam26990001中,然后打開sjt5.vbp文件并運行。第02套:1. 基本操作(2小題,每小題15分,共計30分注意:下面出現的“考生文件夾”均為%USER%* 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼。(1在名稱為Form1的窗體上用名稱為Shape1的控件畫一個圓,其直徑為1500 (即寬、高均為1500 ,并設置適當屬性,使窗口標題為“圓”,窗體標題欄上不顯示最大化和最小化按鈕(如圖所示。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。解題思路:啟動Visual Ba

14、sic系統,創建一個Form1窗體。在該窗體上用Shape圖形控件畫一個園,通過其屬性窗口將名稱設為Shape1,高(Height屬性設為1500,寬(Width屬性設為1500,Shape屬性設為3。激活Form1窗體,通過其屬性窗口將標題(Caption屬性設為“圓”,最大化按鈕(MaxButton屬性設為False,最小化按鈕(MinButton屬性設為False。參考文件:c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復制到c:wexam26990001中,然后打開sjt1.vbp文件并運行。* (2在名稱為Form1

15、的窗體中建立一個彈出式菜單(程序運行時不顯示,名稱為file,含兩個菜單項,其名稱分別為open、save,標題分別為“打開”、“存盤”。編寫適當的事件過程。程序運行后,如果用鼠標右鍵單擊窗體,則彈出此菜單(如圖所示。注意:程序中不能使用變量。保存時必須存放在考生文件夾下,工程文件名為sjt2.vbp,窗體文件名為sjt2.frm;教學咨詢QQ:1218317661國家教育部考試中心題庫 6解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上通過菜單編輯器建立一個主菜單,在菜單編輯器的標題處為空,名稱處輸入file,將“可見”單選按鈕設為不選狀態。在該菜單下有二個子菜

16、單,在菜單編輯器的標題處分別輸入“打開”、“存盤”,名稱處分別輸入open、save。鼠標右鍵單擊窗體(即運行MouseDown事件過程,在該MouseDown事件過程中加入語句:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As SingleIf Button = 2 ThenPopupMenu fileEnd IfEnd Sub參考文件:c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請把這些文件復制到c:wexam26990

17、001中,然后打開sjt2.vbp文件并運行。2. 簡單應用(2小題,每題20分,計40分注意:下面出現的“考生文件夾”均為%USER%* (1在考生目錄下有一個工程文件sjt3.vbp,窗體上有一個組合框Combo1,其中已經預設了內容;還有一個文本框Text1和三個命令按鈕,名稱分別為Command1、Command2、Command3,標題分別為“修改”、“確定”、“添加”。程序運行時,“確定”按鈕不可用,如圖所示。程序的功能是:在運行時,如果選中組合框中的一個列表項,單擊“修改”按鈕,則把該項復制到Text1中(可在Text1中修改,并使“確定”按鈕可用;若單擊“確定”按鈕,則把修改后

18、的Text1中的內容替換組合框中該列表項的原有內容,同時使“確定”按鈕不可用;若單擊“添加”按鈕,則把在Text1中的內容添加到組合框中。所提供的窗體文件已經給出了所有控件和程序,但程序不完整,請去掉程序中的注釋符,把程序中的?改為正確的內容。但不能修改程序中的其他部分,也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt3.vbp,相應的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整,通過屬性窗口將“確定”按鈕的Enabled屬性設為False。由于所提供的窗體程序不完整,在“修改”按鈕的Priv

19、ate Sub Command1_Click(事件過程中,有一處地方需要修改。1 將語句Command2. ? = True;教學咨詢QQ1218317661國家教育部考試中心題庫7改為Command2.Enabled = True在“確定”按鈕的Private Sub Command2_Click(事件過程中,有一處地方需要修改。1 將語句Combo1.List( ? = Text1改為Combo1.List(Combo1.ListIndex = Text1在“添加”按鈕的Private Sub Command3_Click(事件過程中,有一處地方需要修改。1 將語句? Text1改為Com

20、bo1.AddItem Text1參考文件:c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw 請把這些文件復制到c:wexam26990001中,然后打開sjt3.vbp文件并運行。* (2在考生目錄下有一個工程文件sjt4.vbp,窗體中的兩個滾動條分別表示紅燈亮和綠燈亮的時間(秒,移動滾動框可以調節時間,調節范圍為1-10秒。剛運行時,紅燈亮。單擊“開始”按鈕則開始切換:紅燈到時后自動變為黃燈,1秒后變為綠燈;綠燈到時后自動變為黃燈,1秒后變為紅燈,如此切換(如圖所示。所提供的窗體文件已經給出了所有控件和程序,但程序不

21、完整,請去掉程序中的注釋符,把程序中的?改為正確的內容。提示:在三個圖片框picture1、picture2、picture3中分別放置了紅燈亮、綠燈亮、黃燈亮的圖標,并重疊在一起,當要使某個燈亮時,就使相應的圖片框可見,而其他圖片框不可見,并保持規定的時間,時間到就切換為另一個圖片框可見,其他圖片框不可見。注意:考生不得修改工程中已經存在的內容和控件屬性,最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt4.vbp,相應的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整,在命令按鈕的Private Sub Comman

22、d1_Click(中,有二處地方需要修改。1 將語句? = HScroll1.Value改為red = HScroll1.Value2 將語句Timer1.Enabled = ?改為Timer1.Enabled = True由于所提供的窗體程序不完整,在計時器的Private Sub Timer1_Timer(中,有二處地方需要修改。1 將語句;教學咨詢QQ1218317661國家教育部考試中心題庫8? .Visible = False改為Picture1.Visible = False2 將語句green = ?改為green = green - 1參考文件:c:wexam26990001h

23、lpsys參考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw 請把這些文件復制到c:wexam26990001中,然后打開sjt4.vbp文件并運行。* 3. 綜合應用(1小題,計30分注意:下面出現的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp,相應的窗體文件是sjt5.frm(如圖所示。該程序的功能是:單擊“讀數”按鈕,讀入考生文件夾下in5.txt文件中的一個整數,并放入Text1中;單擊“計算”按鈕,則計算小于該數的最大素數,并顯示在Text2中;單擊“存盤”按鈕,則把該素數保存到考生文件夾下的out5.txt文件中。要求:1程

24、序已給出“存盤”按鈕的事件過程代碼。“讀數”按鈕的事件過程和判斷x是否是素數的函數prime(x不完整,請去掉注釋,并在?處填上正確的內容,使程序完整。2編寫“計算”按鈕的事件過程。計算小于Text1中數據的最大素數。3請不要改動窗體上所有控件屬性設置及相應的過程代碼。最后將改動后的程序用原文件名保存。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt5.vbp,相應的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。執行“計算”命令(即運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command2_

25、Click(n = Val(Text1.TextFor i = n To 2 Step -1l = prime(iIf l = True ThenExit ForEnd IfNextText2.Text = iEnd Sub在“讀數”按鈕的Private Sub Command1_Click(中,有一處地方需要修改。1 將語句Input #1, ?;教學咨詢QQ:1218317661國家教育部考試中心題庫9改為Input #1, a%在函數Function prime(x As Boolean中,有一處地方需要修改。1 將語句prime = ?改為prime = flag參考文件:c:wexa

26、m26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt 請把這些文件復制到c:wexam26990001中,然后打開sjt5.vbp文件并運行。第03套:1. 基本操作(2小題,每小題15分,共計30分注意:下面出現的“考生文件夾”均為%USER%* 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼。(1在名稱為Form1的窗體上畫一個名稱為Frame1,標題為“目的地”的框架,在框架中添加三個復選框,名稱分別為Check1、Check2、Check3,其標題分別是“上海”、“廣州”、“巴黎”,其中“上海”為選中狀

27、態,“廣州”為未選狀態,“巴黎”為灰色狀態,如圖所示。請畫控件并設置相應屬性。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫一個框架控件,通過其屬性窗口將名稱設為Frame1,標題(Caption 屬性設為“目的地”。在F1框架中畫三個復選框控件,通過其屬性窗口將名稱分別設為Check1、Check2、Check3,標題(Caption屬性分別設為“上海”、“廣州”、“巴黎”,“上海”的V alue屬性設為1,“巴黎”的V alue 屬性設為2。參考文件:c:wex

28、am26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw請把這些文件復制到c:wexam26990001中,然后打開sjt1.vbp文件并運行。* (2在名稱為Form1的窗體上畫一個名稱為Picture1的圖片框,其寬和高分別為1700、1900。請編寫適當事件過程,使得在運行時,單擊圖片框,則裝入考生目錄下的圖形文件pic1.bmp,如圖所示。單擊窗體則圖片框中的圖形消失。要求程序中不得使用變量,每個事件過程中只能寫一條語句。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt2.vbp,窗體文件名;教學咨詢QQ:1218317661國家教育部考試中心

29、題庫10為sjt2.frm。解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫一個圖片框,通過其屬性窗口將名稱設為Picture1,寬度(Width屬性設為1700,高度(Height屬性設為1900。單擊圖片框(即運行Click事件過程,在Click事件過程中加入語句:Picture1.Picture =LoadPicture(pic1.bmp,即將考生目錄下的圖形文件pic1.bmp裝入圖片框中。單擊窗體(即運行Click事件過程,在Click事件過程中加入語句:Picture1.Picture = LoadPicture(,即圖片框中的圖形消失。參考文件:c

30、:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請把這些文件復制到c:wexam26990001中,然后打開sjt2.vbp文件并運行。2. 簡單應用(2小題,每題20分,計40分注意:下面出現的“考生文件夾”均為%USER%* (1在考生目錄下有一個工程文件sjt3.vbp,窗體文件中已給出所有控件和部分程序,如圖所示。要求:1利用屬性窗口設置適當的屬性,使text1、text2中數據右對齊;2請編寫適當的程序完成以下功能:在Text1中輸入40(度數,選擇一個單選按鈕,單擊“計算”按鈕,則根據所選擇的單選按鈕,計算出相應的正弦、余弦值(保

31、留3位小數,第4位截去,取3.14159,并顯示在Text2中。注意:考生不得修改窗體文件中已經存在的程序,在結束程序運行之前,必須進行一種計算,在Text1中輸入的必須是40,必須用窗體右上角的關閉按鈕結束程序,否則無成績。最后,程序按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt3.vbp,相應的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整,通過屬性窗口將文本框的對齊格式(Alignment屬性均設為1。;教學咨詢QQ:1218317661國家教育部考試中心題庫11由于所提供的窗體程序不完整,需添加事件過程。單擊“計算”按鈕(即

32、運行Click事件過程,在該Click事件過程中加入語句: Private Sub Command1_Click(If Option1.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.

33、frm、sjt3.vbw、out3.txt 請把這些文件復制到c:wexam26990001中,然后打開sjt3.vbp文件并運行。* (2在考生文件夾下有一個工程文件sjt4.vbp,窗體上已經給出所有控件。程序運行時,單擊“開始”按鈕,則汽車圖標向右運動;單擊“停止”按鈕則汽車停止運動;移動滾動條上的滾動框,可以改變汽車的運動速度(滾動框向右移動,速度減慢。如圖所示。要求:去掉程序中的注釋符,把程序中的?改為正確的內容。提示:窗體上有一個計時器,計時器的事件過程每執行一次,汽車向右移動10,程序通過改變計時器控件的Interval屬性來改變汽車的運動速度。注意:不得修改控件的屬性。最后,按

34、原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt4.vbp,相應的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整,在“開始”按鈕的Private Sub Command1_Click(事件過程中,有一處地方需要修改。1 將語句Timer1.Enabled = ?改為Timer1.Enabled = True在滾動框的Private Sub HScroll1_Change(事件過程中,有一處地方需要修改。1 將語句?.Interval = HScroll1.Value改為Timer1.Interval = HScroll1.Value在計

35、時器的Private Sub Timer1_Timer(事件過程中,有一處地方需要修改。1 將語句Picture1.Left = ? + 10改為;教學咨詢QQ:1218317661國家教育部考試中心題庫12Picture1.Left = Picture1.Left + 10參考文件:c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw 請把這些文件復制到c:wexam26990001中,然后打開sjt4.vbp文件并運行。*3. 綜合應用(1小題,計30分注意:下面出現的“考生文件夾”均為%USER%以下數列:1,1,2,3

36、,5,8,13,21,的規律是從第3個數開始,每個數是它前面兩個數之和。在考生目錄下有一個工程文件sjt5.vbp。窗體中已經給出了所有控件,如圖所示。請編寫適當的事件過程實現以下功能:在Text1中輸入整數40,單擊“計算”按鈕,則在Text2中顯示該數列第40項的值;如果單擊“存盤”按鈕,則將計算的第40項的值存到考生目錄下的out5.txt文件中。(提示:因數據較大,應使用Long型變量注意:在結束程序運行之前必須單擊“存盤”按鈕,把結果存入out5.txt文件,否則無成績。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sj

37、t5.vbp,相應的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。單擊“計算”按鈕(即運行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.

38、vbp、sjt5.frm、sjt5.vbw、out5.txt 請把這些文件復制到c:wexam26990001中,然后打開sjt5.vbp文件并運行。第04套:1. 基本操作(2小題,每小題15分,共計30分注意:下面出現的“考生文件夾”均為%USER%;教學咨詢QQ:1218317661國家教育部考試中心題庫13* 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼。(1在名稱為Form1 的窗體上畫一個名稱為Combo1的組合框,其寬度為1200,其類型如圖所示(即簡單組合框。要求:1請按圖中所示,通過屬性窗口輸入“北京”、“上海”、“廣州”、“深圳”。2設置適當的

39、屬性,使得運行時,窗體的最大化按鈕和最小化按鈕消失。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫一個組合框控件,通過其屬性窗口將名稱設為Combo1,寬(Width 屬性設為1200,Style屬性設為1,向組合框中添加項目(List屬性,添加的項目分別為“北京”、“上海”、“廣州”、“深圳”,每個項目為一行。激活Form1窗體,通過其屬性窗口將最大化按鈕(MaxButton屬性設為False,最小化按鈕(MinButton屬性設為False。參考文件:c:wex

40、am26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.frx、sjt1.vbw 請把這些文件復制到c:wexam26990001中,然后打開sjt1.vbp文件并運行。* (2在名稱為Form1 的窗體上畫兩個文本框,名稱分別為Text1、Text2,再畫兩個命令按鈕,名稱分別為Command1、Command2,標題分別為“左”、“右”,見圖2。要求:編寫適當的事件過程,使得程序運行時,單擊“左”按鈕,則焦點位于Text1上;單擊“右”按鈕,則焦點位于Text2上。注意:程序中不得使用變量,事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下,工程文件名為s

41、jt2.vbp,窗體文件名為sjt2.frm。;教學咨詢QQ:1218317661國家教育部考試中心題庫14解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫二個文本框控件,通過其屬性窗口將名稱分別設為Text1和Text2。畫二個命令按鈕控件,通過其屬性窗口將名稱分別設為Command1、Command2,標題(Caption屬性分別設為“左”、“右”。單擊“左”按鈕(即運行Click事件過程,在該Click事件過程中加入語句:Private Sub Command1_Click(Text1.SetFocusEnd Sub單擊“右”按鈕(即運行Click事件過程

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

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

44、的復制產生單選按鈕控件數組,共有四個單選按鈕,標題(Caption屬性分別設為“選項1”、“選項2”、“選項3”、“選項4”,“選項”的Value屬性設為True。由于所提供的窗體程序不完整,在“下一個”按鈕的Private Sub Command1_Click(事件過程中,有三處地方需要修改。1 將語句For k = 0 To ?改為For k = 0 To 32 將語句n = ?改為國家教育部考試中心題庫15n = k3 將語句n = ?改為n = 0參考文件:c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請把這些文件復制到c:wex

45、am26990001中,然后打開sjt3.vbp文件并運行。* (2在考生文件夾下有一個工程文件sjt4.vbp,窗體上已經畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串(要求串的長度10,然后選擇組合框中的3個截取運算選項之一。單擊“計算”按鈕,將截取運算后的結果顯示在Text2中。窗體文件中已經給出了程序,但不完整,請去掉程序中的注釋符,把程序中的?改為正確的內容。注意:不得修改已經給出的程序。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt4.vbp,相應的窗體文件名為sjt4.frm。由于所提供的窗體

46、程序不完整,在命令按鈕的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、sjt4.vbw 請把這些文件復制到c:wexam26

47、990001中,然后打開sjt4.vbp文件并運行。* 3. 綜合應用(1小題,計30分注意:下面出現的“考生文件夾”均為%USER%以下數列:1,1,3,5,9,15,25,41,的規律是從第3個數開始,每個數是它前面兩個數的和加1。在考生目錄下有一個工程文件sjt5.vbp。窗體中已經給出了所有控件,如圖所示。請編寫適當的事件過程實現以下功能:在Text1中輸入整數40,單擊;教學咨詢QQ:1218317661國家教育部考試中心題庫16“計算”按鈕,則在Text2中顯示該數列第40項的值。如果單擊“存盤”按鈕,則將計算的第40項的值存到考生目錄下的out5.txt文件中。(提示:因數據較大

48、,應使用Long型變量注意:在結束程序運行之前,必須單擊“存盤”按鈕,把結果存入out5.txt文件,否則無成績。最后把修改后的文件按原文件名存盤。解題思路:啟動Visual Basic系統,打開考生文件夾下需編輯的工程文件sjt5.vbp,相應的窗體文件名為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

49、- 1 + 1a(i = fNextText2.Text = fEnd Sub參考文件:c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt 請把這些文件復制到c:wexam26990001中,然后打開sjt5.vbp文件并運行。第05套:1. 基本操作(2小題,每小題15分,共計30分注意:下面出現的“考生文件夾”均為%USER%* 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼。(1在名稱為Form1 的窗體上畫一個名稱check1的復選框數組(Index屬性從0 開始,含三個復選框,其標題分別

50、為“語文”、“數學”、“體育”,利用屬性窗口設置適當的屬性,使“語文”未選,“數學”被選中,“體育”為灰色,再把窗體的標題設置為“選課”,如圖所示。注意:存盤時必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。;教學咨詢QQ:1218317661國家教育部考試中心題庫17解題思路:啟動Visual Basic系統,創建一個Form1窗體。在該窗體上畫一個復選框控件,通過對復選框控件的復制產生復選框控件數組,共有三個復選框,標題(Caption屬性分別設為“語文”、“數學”、“體育”,“數學”的Value屬性設為1,“體育”的Value屬性設為2。激活Form1窗體,通過其屬性窗口將標題(Caption屬性設為“選課”。參考文件:c:wexam26990001hl