vb上機(jī)考試操作題.doc

Vb上機(jī)操作題四、基本操作題1在考生文件夾中，完成以下要求：解題步驟：(重點(diǎn)提示)（1）通過瀏覽器進(jìn)入考生文件夾，雙擊“Sjt.Vbp”（如果看不到擴(kuò)展名，則需要在瀏覽器的“工具”“文件夾選項(xiàng)”“查看”中，把“隱藏已知文件類型的擴(kuò)展名”前面的去掉）；在“工程”菜單中選擇“工程屬性”，把工程名稱改為Spks；把窗體的“名稱”改為vbbc；把窗體的caption屬性值改為 二級(jí)VB考試（2）以下各個(gè)控件的位置，參照下土。在窗體上添加時(shí)鐘控件（其名稱默認(rèn)為Timer1），把它的interval屬性設(shè)置為10；添加圖片框（picturebox），在picture1添加標(biāo)簽，將這個(gè)標(biāo)簽的autosize屬性設(shè)置為true；在窗體上添加標(biāo)簽，將其caption屬性設(shè)置為快；在窗體上添加文本框、水平滾動(dòng)條，將這個(gè)水平滾動(dòng)條的min屬性設(shè)置為0，max屬性設(shè)置為100；（3）按如下方式在各個(gè)對(duì)象的相應(yīng)事件里寫入代碼：（4）運(yùn)行這個(gè)程序；點(diǎn)擊保存 （1）啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”，窗體的標(biāo)題為“二級(jí)VB考試”。（2）在窗體上增加以下控件：定時(shí)器Timer1，時(shí)間間隔值為10；圖片框Picture1；標(biāo)簽Label1放置在圖片框中，標(biāo)簽的大小自動(dòng)調(diào)整；標(biāo)簽Label2的標(biāo)題為“快”；文本框Text1放置在圖片框下方；水平滾動(dòng)條HScroll1，最小值為0,最大值為100 。（3）按如下要求編寫代碼： 文本框中輸入的字符自動(dòng)顯示為標(biāo)簽的標(biāo)題；標(biāo)簽自動(dòng)向左移動(dòng)，移出圖片框后又從右邊進(jìn)入（提示：編程使得當(dāng)標(biāo)簽的Left-1000時(shí)，重置Left10000）；拖動(dòng)水平滾動(dòng)條時(shí)，將調(diào)整移動(dòng)的速度。 （4）請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序代碼如下：Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value 水平滾動(dòng)條的值越小，timer事件執(zhí)行間隔越小，標(biāo)簽運(yùn)動(dòng)越快End SubPrivate Sub Text1_Change() Label1.Caption = Text1.TextEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left 100 標(biāo)簽距離picture1左邊界的距離減少100單位 If Label1.Left -1000 Then Label1.Left = 10000End Sub2在考生文件夾中，完成以下要求：解題步驟：（1）通過瀏覽器進(jìn)入考生文件夾，雙擊“Sjt.Vbp”（如果看不到擴(kuò)展名，則需要在瀏覽器的“工具”“文件夾選項(xiàng)”“查看”中，把“隱藏已知文件類型的擴(kuò)展名”前面的去掉）；在“工程”菜單中選擇“工程屬性”，把工程名稱改為Spks；把窗體的“名稱”改為vbbc（2）參照下圖，在相應(yīng)位置添加各個(gè)控件，并更改相應(yīng)屬性；左邊紅色內(nèi)容，應(yīng)當(dāng)更改option1的value屬性為true；（3）打開窗體的代碼窗口，在“通用”聲明段里，寫上public xb,jg ；在窗體的load事件里，寫上圖下所示代碼，（4）運(yùn)行這個(gè)程序；點(diǎn)擊保存 （1）啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”。（2）請(qǐng)?jiān)谶m當(dāng)位置添加控件：三個(gè)標(biāo)簽，Label1標(biāo)題為“姓名：”，Label2標(biāo)題為“籍貫：”， Label3標(biāo)題為空；一個(gè)框架Frame1標(biāo)題為“性別”；兩個(gè)單選按鈕在框架Frame1中，Option1標(biāo)題為“男”,Style屬性為1且為選中狀態(tài)，Option2標(biāo)題為“女”，Style屬性為1；一個(gè)文本框Text1內(nèi)容為空，且Tabindex屬性值為0；一個(gè)列表框List1；一個(gè)命令按鈕Command1，標(biāo)題為“確定”。（以上操作在屬性窗口中完成）（3）在窗體模塊中聲明全局變量xb，jg；在窗體的裝載事件中完成：列表框添加三項(xiàng)內(nèi)容：“北京”，“上?！保昂戏省?，且“北京”選項(xiàng)默認(rèn)被選中，xb變量的初始值為“男”。(4)按如下要求編寫代碼：選中Option1時(shí)，為變量xb賦值為“男”；選中Option2時(shí)，為變量xb賦值為“女”；選中列表框的某一項(xiàng)時(shí)，把選中的內(nèi)容賦值給jg (要求在列表框的Click事件中實(shí)現(xiàn))；單擊按鈕Command1時(shí)，在Label3中順次顯示姓名（Text1中的內(nèi)容），籍貫（變量jg的值）,性別（變量xb的值）。運(yùn)行后如圖所示：(5)請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序如下： Public jg, xbPrivate Sub Command1_Click()Label3.Caption = Text1.Text & ： & jg & , & xbEnd SubPrivate Sub Form_Load()List1.AddItem 北京List1.AddItem 上海List1.AddItem 合肥xb = 男List1.ListIndex = 0 使得運(yùn)行時(shí)列表框中被選中的初始值為“北京”End SubPrivate Sub List1_Click()jg = List1.TextEnd SubPrivate Sub Option1_Click() xb = 男End SubPrivate Sub Option2_Click() xb = 女End Sub3在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”。(2)請(qǐng)?jiān)谶m當(dāng)位置添加控件：一個(gè)驅(qū)動(dòng)器列表框Drive1；一個(gè)目錄列表框Dir1；一個(gè)文件列表框File1，自動(dòng)過濾出擴(kuò)展名為bmp和jpg的圖形文件；一個(gè)圖像框Image1，其中的圖片自動(dòng)匹配圖像框的大小。（以上操作在屬性窗口中完成）(3)按要求編寫代碼使得驅(qū)動(dòng)器列表框、目錄列表框和文件列表框同步工作；文件列表框中顯示擴(kuò)展名為bmp和jpg的圖形文件；當(dāng)單擊文件列表框中的某個(gè)圖形文件時(shí)，圖像框中顯示出該圖片（可為機(jī)器上任意擴(kuò)展名為bmp和jpg的圖形文件）。運(yùn)行后，如下圖所示： 本題較容易，是課本第八章前兩面的原題（僅僅過濾的文件類型不同）(4)請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序如下：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & & File1.FileName)End Sub4在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”。文本框的maxlength屬性值為11(2)請(qǐng)?jiān)谶m當(dāng)位置添加控件：一個(gè)標(biāo)簽Label1,標(biāo)題改為“請(qǐng)輸入手機(jī)號(hào)：”；一個(gè)文本框Text1,其值設(shè)為空，允許輸入的字符數(shù)最多為11個(gè)；兩個(gè)命令按鈕Command1、Command2，標(biāo)題分別改為“確定”、“取消”（以上操作在屬性窗口中完成）。(3)要求窗體裝載時(shí)，文本框的值取“13”，輸入手機(jī)號(hào)碼時(shí)，一旦鍵入非數(shù)字字符，用Msgbox給出“請(qǐng)輸入數(shù)字符號(hào)”的提示信息；輸入手機(jī)號(hào)碼后，單擊“確定”按鈕，如果數(shù)字符號(hào)不足11位，用Msgbox給出“手機(jī)號(hào)碼為11位數(shù)字”的提示信息，反之，用Msgbox給出是“聯(lián)通用戶”還是“移動(dòng)用戶”或者是“空號(hào)”的判定結(jié)果（第三位數(shù)字為0、1、3是聯(lián)通用戶，5、6、7、8、9為移動(dòng)用戶，其它為“空號(hào)”，要求用Select Case 結(jié)構(gòu)實(shí)現(xiàn)）；單擊“取消”按鈕可結(jié)束程序運(yùn)行。運(yùn)行界面如下圖。(4)請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序如下：Private Sub Command1_Click() If Len(Trim(Text1.Text) 11 Then MsgBox (手機(jī)號(hào)為11數(shù)字) Text1.Text = 13 Text1.SelStart = 3 text1.setfocus Else Select Case Mid(Text1.Text, 3, 1) 從Text1的第3位取1個(gè)字符 Case 0, 1, 3 MsgBox (聯(lián)通用戶) Case 5, 6, 7, 8, 9 MsgBox (移動(dòng)用戶) Case Else MsgBox (空號(hào)) End Select End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = 13text1.tabindex=0Text1.SelStart = 3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) 9 Then MsgBox (請(qǐng)輸入數(shù)字符號(hào)) KeyAscii = 0End IfEnd Sub5在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”。(2)請(qǐng)?jiān)谶m當(dāng)位置添加控件：一個(gè)文本框Text1，其值置為空，兩個(gè)命令按鈕Command1、Command2，標(biāo)題分別為“添加”、“刪除” ，Command2的Enabled屬性值設(shè)為假；一個(gè)列表框List1。（以上操作在屬性窗口中完成）(3)要求程序運(yùn)行時(shí)，單擊“添加”按鈕，若文本框中有內(nèi)容，則將文本框中的內(nèi)容添加到列表框中。選中列表框中的某一項(xiàng)，命令按鈕“刪除”有效，單擊“刪除”按鈕可將該項(xiàng)刪除。運(yùn)行效果如下圖。 (4)請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序如下：Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd SubPrivate Sub List1_Click() Command2.Enabled = True End Sub6在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“vbbc”。(2)請(qǐng)?jiān)谶m當(dāng)位置添加控件：一個(gè)標(biāo)簽Label1，標(biāo)題為“等級(jí)考試”；兩個(gè)命令按鈕Command1、command2標(biāo)題分別為“移動(dòng)”、“暫停”，Command2的Enabled屬性值設(shè)為False，一個(gè)時(shí)鐘控件Timer1，其Enabled屬性值設(shè)為False,Interval屬性值設(shè)置為500。（以上操作在屬性窗口中完成）(3)要求程序運(yùn)行時(shí)，單擊“移動(dòng)”按鈕可使Timer1、 Command2有效；時(shí)鐘控件每隔半秒觸發(fā)一次Timer事件，該事件觸發(fā)時(shí)可將標(biāo)簽向左移動(dòng)60緹，一旦整個(gè)標(biāo)簽出了窗體左端，要求標(biāo)簽再從窗體的右端開始移動(dòng)，單擊“暫?！卑粹o可使時(shí)鐘控件失效。運(yùn)行效果如下圖。 (4)請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考程序如下：Private Sub Command1_Click() Command2.Enabled = True Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.Left + Label1.Width = 0 Then Label1.Left = Label1.Left - 60 Else Label1.Left = Form1.Width End IfEnd Sub五、簡單應(yīng)用題1在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Prog1.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Prog1.frm的窗體名稱改為“Prog1”，窗體的標(biāo)題為“數(shù)據(jù)計(jì)算”。(2)請(qǐng)?jiān)诖绑w適當(dāng)位置增加以下控件：一個(gè)標(biāo)簽Label1，標(biāo)題為“計(jì)算結(jié)果”；一個(gè)文本框Text1；兩個(gè)命令按鈕（名稱分別為C1和C2，標(biāo)題分別為“計(jì)算”和“保存”），如圖所示。本題先執(zhí)行第5條要求，再執(zhí)行才能達(dá)到效果 (3)編寫程序計(jì)算S的近似值，直到最后一項(xiàng)的絕對(duì)值小于10-5為止（要求將存放結(jié)果的變量類型定義成單精度浮點(diǎn)型）。(4)要求程序運(yùn)行后，單擊“計(jì)算”按鈕，計(jì)算并將結(jié)果顯示在文本框中；最后單擊“保存”按鈕，將結(jié)果存入考生文件夾中的文件“kssj.dat”中。(5)在考生文件夾下有標(biāo)準(zhǔn)模塊Prog1.bas，其中的Putdata過程可以把結(jié)果存入指定的文件，要求把這個(gè)模塊文件添加到當(dāng)前的工程中，直接調(diào)用該過程。(6)請(qǐng)先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件：Prog1.exe。第（5）步添加的prog1.bas文件中的代碼如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 參考程序如下：Private Sub Command1_Click() For n = 101 To 200 Step 2 f = 1 For i = 2 To n - 1 If n Mod i = 0 Then f = 0: Exit For Next i If f = 1 Then s = s + n Next n Text1.Text = sEnd SubPrivate Sub Command2_Click() Call putdata(kssj.dat, Text1.Text)End Sub2在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Prog1.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Prog1.frm的窗體名稱改為“Prog1”，窗體的標(biāo)題為“字符串個(gè)數(shù)”。(2)請(qǐng)?jiān)诖绑w適當(dāng)位置增加以下控件：文本框1（名稱為Text1，Multiline屬性為True，ScrollBars屬性為2）；文本框2（名稱為Text2）和三個(gè)命令按鈕（名稱分別為C1、 C2和C3，標(biāo)題分別為“讀入數(shù)據(jù)”、“顯示結(jié)果”和“保存”），如圖所示。本題必須先執(zhí)行第4條要求，并研究所添加模塊中的代碼。在所添加模塊中定義了對(duì)文件進(jìn)行操作的過程，必須弄清楚這個(gè)過程的參數(shù)含義，明確調(diào)用參數(shù)的個(gè)數(shù)、順序和類型。 (3)要求程序運(yùn)行后，單擊“讀入數(shù)據(jù)”按鈕，讀入“ini.txt”文件中的內(nèi)容，同時(shí)在文本框text1中顯示出來；然后單擊“顯示結(jié)果”按鈕，統(tǒng)計(jì)出字符串“and”出現(xiàn)的次數(shù)，并把結(jié)果在文本框Text2中顯示出來；最后單擊“保存”按鈕，把該結(jié)果（Text2的值）存入考生文件夾中的文件“kssj.dat”中。（4）在考生文件夾下有標(biāo)準(zhǔn)模塊Prog1.bas，其中的getdata過程可以讀出文件“ini.txt”中的內(nèi)容，Putdata過程可以把結(jié)果存入指定的文件，要求把這個(gè)模塊文件添加到當(dāng)前工程中，直接調(diào)用過程。(5)請(qǐng)先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行程序：Prog1.exe。第（4）步添加的prog1.bas文件中的代碼如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End SubSub getdata(t_FileName As String, t_Str As Variant)讀文件函數(shù) Dim sFile As String, Strname As String sFile = & t_FileName Open App.Path & sFile For Input As #1 Do While Not EOF(1) Line Input #1, strname t_Str = t_Str & strname & chr(13) & chr(10) Loop Close #1 End Sub 參考程序如下： Dim Count1 As IntegerPrivate Sub C1_Click( ) Call getdata(ini.txt, Str1) Text1.Text = Str1End SubPrivate Sub C2_Click( ) Dim Len1 As Integer Dim i As Integer Dim Str1 As String Str1 = Text1.Text i = 1 Len1 = Len(Text1.Text) For i = 1 To Len1 - 3 If Mid(Str1, i, 3) = and Then Count1 = Count1 + 1 End If Next i Text2.Text = Count1End SubPrivate Sub C3_Click( ) putdata kssj.dat, Count1End Sub3在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Prog1.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Prog1.frm的窗體名稱改為“Prog1”。(2)請(qǐng)?jiān)诖绑w適當(dāng)位置增加以下控件：兩個(gè)標(biāo)簽label1，label2，標(biāo)題分別為“平均數(shù)為：”，“大于平均數(shù)的個(gè)數(shù)為：”；三個(gè)文本框Text1，Text2，Text3；Text1的Multiline的屬性為True，ScrollBars屬性為2，文本均為空白；兩個(gè)命令按鈕Command1,Command2，標(biāo)題分別為：“讀數(shù)并計(jì)算”，“保存”；將窗體標(biāo)題改為“求平均數(shù)”（如圖所示）。(3)要求程序運(yùn)行后，單擊“讀數(shù)并計(jì)算”按鈕，則讀入“ini.txt”文件中的50個(gè)整數(shù)顯示在Text1中，同時(shí)在Text2中顯示這些整數(shù)的平均數(shù)，在Text3中顯示大于平均數(shù)的個(gè)數(shù)。單擊“保存”按鈕將大于平均數(shù)的個(gè)數(shù)（Text3的值）存入考生文件夾中的文件“kssj.dat”中。(4)在考生文件夾下有標(biāo)準(zhǔn)模塊Prog1.bas，其中Getdata過程可以讀出文件“ini.txt”中的數(shù)據(jù)，Putdata過程可以把結(jié)果存入指定的文件，要求把該模塊文件添加到當(dāng)前工程中，直接調(diào)用該過程。(5)請(qǐng)先將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件：Prog1.exe。第（4）步添加的prog1.bas文件中的代碼如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 參考程序如下:Private Sub Command1_Click() Dim s As Integer Dim Sum As Integer Dim Ave As Single Dim A(50) As Integer Dim strName As String Sum = 0 Ave = 0 Text1 = sFile = & t_FileName Open App.Path & ini.txt For Input As #1 讀數(shù)到數(shù)組中 Do While Not EOF(1) Line Input #1, strName i = i + 1 A(i) = Val(strName) Sum = Sum + A(i) Text1.Text = Text1 & A(i) & Chr(13) & Chr(10) Loop Close #1 Ave = Sum / 50 計(jì)算大于平均數(shù)的個(gè)數(shù) For i = 1 To 50 If A(i) Ave Then s = s + 1 End If Next i Text2.Text = Ave Text3.Text = sEnd SubPrivate Sub Command2_Click() Print s putdata kssj.dat, Text3.TextEnd Sub4在考生文件夾中，完成以下要求：(1)啟動(dòng)工程文件Prog1.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Prog1.frm的窗體名稱改為“Prog1”，窗體的標(biāo)題為“排序”。(2)請(qǐng)?jiān)诖绑w適當(dāng)位置增加以下控件：兩個(gè)標(biāo)簽Label1和Label2(標(biāo)題分別為“排序之前”和“排序之后”)；兩個(gè)列表框List1和 List2；三個(gè)命令按鈕（均為默認(rèn)名稱，標(biāo)題分別為“讀取數(shù)據(jù)”、“排序”和“寫入文件”），如圖所示。 (3) 要求：程序運(yùn)行后(1) 單擊“讀取數(shù)據(jù)”按鈕，讀入“ini.txt”文件中的50個(gè)數(shù)據(jù)，同時(shí)在列表框List1中顯示出來(2) 單擊“排序”按鈕，在List2中顯示出從大到小的排列順序(3) 單擊“寫入文件”按鈕，把List2中內(nèi)容存入考生文件夾中的文件“kssj.dat”中。(4)考生文件夾下有標(biāo)準(zhǔn)模塊Prog1.Bas，其中g(shù)etdata過程可以讀出文件“ini.txt”中的數(shù)據(jù)，putdata過程可以把結(jié)果存入指定的文件，要求把這個(gè)模塊文件添加到當(dāng)前的工程中，直接調(diào)用過程。(5)將工程、窗體與模塊保存，然后調(diào)試、運(yùn)行并生成可執(zhí)行文件Prog1.exe。第（4）步添加的prog1.bas文件中的代碼如下： Option Explicit public A(500) as integer public N as integerSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For APPEND As #1 Print #1, t_Str Close #1End Subsub getdata() 讀文件函數(shù) dim i as integer open app.path & ini.txt for input as #1 i=1 do while not eof(1) input #1,A(i) i=i+1 loop N=i-1 close #1end sub 編程題評(píng)卷結(jié)果如下： 所建工程得分：0分 所建的窗體得分：0分 尚未生成.exe文件！ 尚未生成答案文件！編程題最后得分：0分排序的方法有多種，下面給出冒泡排序的算法，其它排序算法請(qǐng)參考有關(guān)書籍。參考程序如下：Private Sub Command1_Click() getdata For i = 1 To 50 List1.AddItem A(i) Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 50 For j = 1 To 50 - i If A(j) 男 女其中,括號(hào)內(nèi)的字符為熱鍵；各菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵； - ：下一級(jí)菜單；“女”：該菜單項(xiàng)不可見。注意本圖的各菜單項(xiàng)順序及級(jí)別所有標(biāo)點(diǎn)符號(hào)（括號(hào)）為英文符號(hào)“工程”菜單，“添加窗體”，“現(xiàn)存” （2）將考生文件夾下的窗體文件Sjt.frm添加進(jìn)本工程。“文件”菜單，“生成.exe”執(zhí)行的時(shí)候一定要把每一個(gè)菜單項(xiàng)都執(zhí)行一下Form1.show 因?yàn)檫@個(gè)窗體名稱為form1 （3）除“專業(yè)”菜單的Click()事件調(diào)用Sjt.frm窗體，“退出”子菜單的Click()事件執(zhí)行End語句,其它菜單和子菜單不執(zhí)行任何操作。 （4）調(diào)試運(yùn)行并生成可執(zhí)行程序： Menu1.exe。2在考生文件夾中建立一個(gè)名稱為“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一個(gè)名稱為“Menu1”的菜單窗體文件Menu1.frm,要求： （1）菜單格式與內(nèi)容如下:方法類同上題分隔符的標(biāo)題值是一個(gè)英文的減號(hào)- 格式(O) 窗口(W) 圖層 ()水平平鋪 顏色 垂直平鋪 - 返回（Ctrl+B）其中,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為FGT，其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵；()：復(fù)選標(biāo)記； Ctrl+B：設(shè)置為快捷鍵。 （2）將考生文件夾下的窗體文件SJT.frm添加進(jìn)本工程。 （3）除“圖層”菜單的Click()事件調(diào)用SJT.frm窗體，“返回”子菜單的Click()事件執(zhí)行End語句，其它菜單和子菜單不執(zhí)行任何操作。 （4）調(diào)試運(yùn)行并生成可執(zhí)行程序：Menu1.exe。方法類同上題分隔符的標(biāo)題值是一個(gè)英文的減號(hào)-3在考生文件夾中建立一個(gè)名稱為“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一個(gè)名稱為“Menu1”的菜單窗體文件Menu1.frm,要求：（1）菜單格式與內(nèi)容如下: 插入(I) 窗口(W) 曲面 ()水平平鋪 特征 排列圖標(biāo) - 返回(Ctrl+B. 其中,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為FGT，其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵；()：復(fù)選標(biāo)記；Ctrl+B：設(shè)置為快捷鍵；“特征”：該菜單項(xiàng)呈淺灰色，無效，不可用。（2）將考生文件夾下的窗體文件Sjt.frm添加進(jìn)本工程。（3）除“曲面”子菜單的Click()事件調(diào)用Sjt.frm窗體，“返回”子菜單的Click()事件執(zhí)行End語句,其它菜單和子菜單不執(zhí)行任何操作。（4）調(diào)試運(yùn)行并生成可執(zhí)行程序：Menu1.exe。4在考生文件夾中建立一個(gè)名稱為“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一個(gè)名稱為“Menu1”的菜單窗體文件Menu1.frm,要求：（1）菜單格式與內(nèi)容如下:方法類同上題分隔符的標(biāo)題值是一個(gè)英文的減號(hào)- 編輯(E) 插入(I) 查找 圖片 替換(Ctrl+H) 文本框 - 退出其中,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為FGT，其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵； Ctrl+H：設(shè)置為快捷鍵。（2）將考生文件夾下的窗體文件Sjt.frm添加進(jìn)該工程。（3）除“替換”菜單的Click()事件調(diào)用Sjt.frm 窗體，“退出”子菜單的Click()事件執(zhí)行End語句,其它菜單和子菜單不執(zhí)行任何操作。（4）調(diào)試運(yùn)行并生成可執(zhí)行文件：Menu1.exe。5在考生文件夾中建立一個(gè)名稱為“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一個(gè)名稱為“Menu1”的菜單窗體文件Menu1.frm,要求：方法類同上題分隔符的標(biāo)題值是一個(gè)英文的減號(hào)-（1）菜單格式與內(nèi)容如下: 排序(S) 窗口(W) 升序 ()平鋪 降序 層疊 - 退出 (Ctrl+X)其中,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為FGT，其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵；()：復(fù)選標(biāo)記；Ctrl+X：設(shè)置為快捷鍵。（2）將考生文件夾下的窗體文件Sjt.frm添加進(jìn)該工程。（3）除“降序”菜單的Click()事件調(diào)用Sjt.frm 窗體，“退出”子菜單的Click()事件執(zhí)行End語句,其它菜單和子菜單不執(zhí)行任何操作。（4）調(diào)試運(yùn)行并生成可執(zhí)行程序：Menu1.exe。6在考生文件夾中建立一個(gè)名稱為“Vbcd”的工程文件Menu1.Vbp，并在工程中建立一個(gè)名稱為“Menu1”的菜單窗體文件Menu1.frm,要求：（1）菜單格式與內(nèi)容如下:方法類同上題分隔符的標(biāo)題值是一個(gè)英文的減號(hào)- 視圖(V) 插入(I) 工具欄 單元格 顯示比例 圖片 -剪貼畫 - 藝術(shù)字 退出 (Ctrl+S)其中,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為FGT，其它菜單與子菜單的名稱與標(biāo)題相同，但不含熱鍵；Ctrl+S：設(shè)置為快捷鍵；- ：下一級(jí)菜單。（2）將考生文件夾下的窗體文件Sjt.frm添加進(jìn)該工程。（3）除“工具欄”子菜單的Click()事件調(diào)用Sjt.frm 窗體，子菜單“顯示比例”的Click()事件執(zhí)行語句：Msgbox 選擇顯示的比例,其它菜單和子菜單不執(zhí)行任何操作。（4）調(diào)試運(yùn)行并生成可執(zhí)行文件：Menu1.exe。 =2006年5月新增考題：（一）在考生文件夾中，完成以下要求：L 啟動(dòng)工程文件Sjt.Vbp,將該工程文件的工程名稱改為“Spks”并將該工程中的窗體文件Sjt.frm的窗體名稱改為“Vbbc”。2.請(qǐng)?jiān)诖绑w適當(dāng)位置添加控件：一個(gè)標(biāo)簽Label1,標(biāo)題為“字體”且自動(dòng)調(diào)整大??；一個(gè)組合框Combo1;一個(gè)文本框Text1,文本內(nèi)容為“計(jì)算機(jī)水平考試”，舉重現(xiàn)實(shí)；一個(gè)框架Frame1標(biāo)題為“顏色”；兩個(gè)單選按鈕在框架Frame1中,Option1標(biāo)題為“紅色”，Option2標(biāo)題為“藍(lán)色”。（以上操作在屬性窗口中完成）3窗體裝載事件中編寫代碼，為組合框添加三個(gè)選項(xiàng)：“隸書”，“黑體”，“宋體”，且默認(rèn)選項(xiàng)為“隸書”；程序運(yùn)行時(shí)，選中組合框某項(xiàng)，相應(yīng)改變文本框中的字體；選中某個(gè)單選按鈕，相應(yīng)改變文本框中字的顏色。程序運(yùn)行界面如下圖所示：4請(qǐng)調(diào)試、運(yùn)行，然后將工程、窗體保存。參考代碼如下：Private Sub Combo1_Click() Text1.FontName=Combo1.TextEnd SubPrivate Sub Form_Load() Combo1.AddItem 隸書 Combo1.AddItem 黑體 Combo1.AddItem 宋體 Combo1.ListIndex=0End SubPrivate Sub Option1_Click() Text1.ForeColor=RGB(255,0,0)End SubPrivate Sub Option2_Click() Text1.ForeColor=RGB(0,0,255)End Sub（二）在考生文件夾中，完成以下要求：1啟動(dòng)工程文件Sjt.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Sjt.frm的窗體名稱改為“Vbbc”。2.請(qǐng)?jiān)诖绑w適當(dāng)位置上添加控件：一個(gè)標(biāo)簽Label1,標(biāo)題為“請(qǐng)輸入一個(gè)自然數(shù)”，自動(dòng)調(diào)整大??；一個(gè)文本框Text1,文本內(nèi)容為空，且Tabindex屬性值為0；一個(gè)命令按鈕Command1,標(biāo)題為“添加”；一個(gè)列表框List1。（以上操作在屬性窗口中完成）3按要求編寫代碼：程序運(yùn)行時(shí)，在文本框中輸入一個(gè)自然數(shù)，單擊“添加”按鈕時(shí)，首先清除列表框中的內(nèi)容然后在列表框中列出小于等于該自然數(shù)的所有偶數(shù)。程序運(yùn)行界面如下圖所示：4請(qǐng)先調(diào)試、運(yùn)行，然后將工程、窗體保存。參考代碼如下：Private Sub Command1_Click() List1.Clear X=Val(Text1.Text) For i=2 to x Step 2List1.AddItem i Next iEnd Sub（三）在考生文件夾中，完成以下要求：1啟動(dòng)工程文件Prog1.Vbp，將該工程文件的工程名稱改為“Spks”，并將該工程中的窗體文件Prog1.frm的窗體名稱改為“Prog1”,窗體的標(biāo)題為“統(tǒng)計(jì)計(jì)算”。2.請(qǐng)?jiān)诖绑w適當(dāng)位置上添加控件：四個(gè)標(biāo)簽（均為默認(rèn)名稱，標(biāo)題分別為“原始