全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)題庫

1、國(guó)家教育部考試中心題庫 1二級(jí)VB上機(jī)試題匯編第01套:1. 基本操作(2小題,每小題15分,共計(jì)30分注意:下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼。(1在名稱為Form1的窗體上畫一個(gè)名稱為Text1的文本框,其高、寬分別為400、2000。請(qǐng)?jiān)趯傩钥蛑性O(shè)置適當(dāng)?shù)膶傩詽M足以下要求:1Text1的字體為“黑體”,字號(hào)為“四號(hào)”;2窗體的標(biāo)題為“輸入”,不顯示最大化按鈕和最小化按鈕。運(yùn)行后的窗體如圖所示。注意:存盤時(shí)必須存放在考生文件夾下,工程文件名為sjt1.vbp,窗體文件名為sjt1.frm。解題思路:啟動(dòng)Vi

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

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

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

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

6、(直線的名稱為L(zhǎng)ine1構(gòu)成一個(gè)鐘表的圖案;有兩個(gè)命令按鈕,名稱分別為Command1、Command2,標(biāo)題分別為“開始”、“停止”;還有一個(gè)名為Timer1的計(jì)時(shí)器。程序運(yùn)行時(shí),鐘表指針不動(dòng),單擊“開始”按鈕,則鐘表上的指針(即Line1開始順時(shí)針旋轉(zhuǎn)(每秒轉(zhuǎn)6,一分鐘轉(zhuǎn)一圈;單擊“停止”按鈕,則指針停止旋轉(zhuǎn)。運(yùn)行時(shí)的窗體如圖所示。請(qǐng)?jiān)O(shè)置計(jì)時(shí)器的適當(dāng)屬性,使得每秒激活計(jì)時(shí)器的Timer事件一次;并編寫兩個(gè)按鈕的Click事件過程。文件中已經(jīng)給出了所有控件和部分程序,不得修改已有程序和其它控件的屬性;編寫的事件過程中不得使用變量,且只能寫一條語句。最后把修改后的文件按原文件名存盤。國(guó)家教育部

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

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

9、的內(nèi)容。注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。解題思路:啟動(dòng)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, 1國(guó)家教育部考試中心題庫 42 將語句ch = ch + ?改為ch = ch + LCase(a3 將語句Text2 = ?改為Text2 = ch參考文

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

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

12、sprime函數(shù)是判斷參數(shù)是否為素?cái)?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 If;教學(xué)咨詢QQ1218317661國(guó)家教育部考試中心題庫 5k% = k% + 1Wendisprime = flagEnd Function參考文件:c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.t

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

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

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

16、單,在菜單編輯器的標(biāo)題處分別輸入“打開”、“存盤”,名稱處分別輸入open、save。鼠標(biāo)右鍵單擊窗體(即運(yùn)行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請(qǐng)把這些文件復(fù)制到c:wexam26990

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

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

19、ate Sub Command1_Click(事件過程中,有一處地方需要修改。1 將語句Command2. ? = True;教學(xué)咨詢QQ1218317661國(guó)家教育部考試中心題庫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 請(qǐng)把這些文件復(fù)制到c:wexam26990001中,然后打開sjt3.vbp文件并運(yùn)行。* (2在考生目錄下有一個(gè)工程文件sjt4.vbp,窗體中的兩個(gè)滾動(dòng)條分別表示紅燈亮和綠燈亮的時(shí)間(秒,移動(dòng)滾動(dòng)框可以調(diào)節(jié)時(shí)間,調(diào)節(jié)范圍為1-10秒。剛運(yùn)行時(shí),紅燈亮。單擊“開始”按鈕則開始切換:紅燈到時(shí)后自動(dòng)變?yōu)辄S燈,1秒后變?yōu)榫G燈;綠燈到時(shí)后自動(dòng)變?yōu)辄S燈,1秒后變?yōu)榧t燈,如此切換(如圖所示。所提供的窗體文件已經(jīng)給出了所有控件和程序,但程序不

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

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

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

24、序已給出“存盤”按鈕的事件過程代碼?！白x數(shù)”按鈕的事件過程和判斷x是否是素?cái)?shù)的函數(shù)prime(x不完整,請(qǐng)去掉注釋,并在?處填上正確的內(nèi)容,使程序完整。2編寫“計(jì)算”按鈕的事件過程。計(jì)算小于Text1中數(shù)據(jù)的最大素?cái)?shù)。3請(qǐng)不要改動(dòng)窗體上所有控件屬性設(shè)置及相應(yīng)的過程代碼。最后將改動(dòng)后的程序用原文件名保存。解題思路:啟動(dòng)Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt5.vbp,相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。執(zhí)行“計(jì)算”命令(即運(yùn)行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在“讀數(shù)”按鈕的Private Sub Command1_Click(中,有一處地方需要修改。1 將語句Input #1, ?;教學(xué)咨詢QQ:1218317661國(guó)家教育部考試中心題庫9改為Input #1, a%在函數(shù)Function prime(x As Boolean中,有一處地方需要修改。1 將語句prime = ?改為prime = flag參考文件:c:wexa

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

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

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

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

30、:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw請(qǐng)把這些文件復(fù)制到c:wexam26990001中,然后打開sjt2.vbp文件并運(yùn)行。2. 簡(jiǎn)單應(yīng)用(2小題,每題20分,計(jì)40分注意:下面出現(xiàn)的“考生文件夾”均為%USER%* (1在考生目錄下有一個(gè)工程文件sjt3.vbp,窗體文件中已給出所有控件和部分程序,如圖所示。要求:1利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?使text1、text2中數(shù)據(jù)右對(duì)齊;2請(qǐng)編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ?在Text1中輸入40(度數(shù),選擇一個(gè)單選按鈕,單擊“計(jì)算”按鈕,則根據(jù)所選擇的單選按鈕,計(jì)算出相應(yīng)的正弦、余弦值(保

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

32、運(yùn)行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 請(qǐng)把這些文件復(fù)制到c:wexam26990001中,然后打開sjt3.vbp文件并運(yùn)行。* (2在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上已經(jīng)給出所有控件。程序運(yùn)行時(shí),單擊“開始”按鈕,則汽車圖標(biāo)向右運(yùn)動(dòng);單擊“停止”按鈕則汽車停止運(yùn)動(dòng);移動(dòng)滾動(dòng)條上的滾動(dòng)框,可以改變汽車的運(yùn)動(dòng)速度(滾動(dòng)框向右移動(dòng),速度減慢。如圖所示。要求:去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。提示:窗體上有一個(gè)計(jì)時(shí)器,計(jì)時(shí)器的事件過程每執(zhí)行一次,汽車向右移動(dòng)10,程序通過改變計(jì)時(shí)器控件的Interval屬性來改變汽車的運(yùn)動(dòng)速度。注意:不得修改控件的屬性。最后,按

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

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

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

37、t5.vbp,相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。單擊“計(jì)算”按鈕(即運(yùn)行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 請(qǐng)把這些文件復(fù)制到c:wexam26990001中,然后打開sjt5.vbp文件并運(yùn)行。第04套:1. 基本操作(2小題,每小題15分,共計(jì)30分注意:下面出現(xiàn)的“考生文件夾”均為%USER%;教學(xué)咨詢QQ:1218317661國(guó)家教育部考試中心題庫13* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼。(1在名稱為Form1 的窗體上畫一個(gè)名稱為Combo1的組合框,其寬度為1200,其類型如圖所示(即簡(jiǎn)單組合框。要求:1請(qǐng)按圖中所示,通過屬性窗口輸入“北京”、“上?！薄ⅰ皬V州”、“深圳”。2設(shè)置適當(dāng)?shù)?/p>

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

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

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

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

43、標(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ì)單選按鈕控件

44、的復(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 32 將語句n = ?改為國(guó)家教育部考試中心題庫15n = k3 將語句n = ?改為n = 0參考文件:c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw請(qǐng)把這些文件復(fù)制到c:wex

45、am26990001中,然后打開sjt3.vbp文件并運(yùn)行。* (2在考生文件夾下有一個(gè)工程文件sjt4.vbp,窗體上已經(jīng)畫出所有控件。如圖所示。在Text1文本框中輸入一個(gè)任意的字符串(要求串的長(zhǎng)度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。由于所提供的窗體

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 請(qǐng)把這些文件復(fù)制到c:wexam26

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

48、,應(yīng)使用Long型變量注意:在結(jié)束程序運(yùn)行之前,必須單擊“存盤”按鈕,把結(jié)果存入out5.txt文件,否則無成績(jī)。最后把修改后的文件按原文件名存盤。解題思路:啟動(dòng)Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt5.vbp,相應(yīng)的窗體文件名為sjt5.frm。由于所提供的窗體程序不完整,需添加事件過程。單擊“計(jì)算”按鈕(即運(yùn)行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 請(qǐng)把這些文件復(fù)制到c:wexam26990001中,然后打開sjt5.vbp文件并運(yùn)行。第05套:1. 基本操作(2小題,每小題15分,共計(jì)30分注意:下面出現(xiàn)的“考生文件夾”均為%USER%* 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼。(1在名稱為Form1 的窗體上畫一個(gè)名稱check1的復(fù)選框數(shù)組(Index屬性從0 開始,含三個(gè)復(fù)選框,其標(biāo)題分別

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