1、探第21套：基本操作請根據以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。（1）在名稱為Forml的窗體上畫1個名稱為Shapel的圓角矩形，高、寬分別為1000、2000。 請利用屬性窗口設置適當的屬性滿足以下要求：1） 圓角矩形中填滿綠色（顏色值為：& H0000FF00&或& HFF00 &;2）窗體的標題為“圓角矩形”。運行后的窗體如圖所示。存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp ，窗體文件名為sjt1.frm【微步驟】步驟1:啟動Visual Basic 系統，創建一個 Form1窗體。步驟2:在該窗體上畫一個形狀控件，通過其屬性窗口將名稱

2、設為shape1，高（Height屬性）設為1000,寬（Width屬性）設為2000，Shape屬性設為4, FillStyle 屬性設為0, FillColor 屬性設為&HFF00&步驟3 :激活Form1窗體，通過其屬性窗口將標題（Caption屬性）設為“圓角矩形”。步驟4 :調試并運行程序，設置工程文件名為sjt1.vbp ，設置窗體文件名為sjt1.frm 。（2）在考生文件夾下有一個工程文件sjt2.vbp 。窗體中已含有除計時器外的其他控件，還有一個過程sub1，其功能是按照Text1中的通話時間計算通話費，并將其顯示在Text2中。程序運行時，單擊“通話開始”按鈕，則在Te

3、xt1中累加通話時間（每秒加1），單擊“通話結束”按鈕，則停止通話時間的累加；單擊“計算通話費”按鈕，則調用過程sub1。要求：1）在窗體上畫一個計時器（見圖），并通過屬性窗口設置適當屬性。2）編寫三個按鈕的Click事件過程。3）編寫計時器的事件過程。要求程序中不得使用變量，每個事件過程中只能寫一條語句，“計算通話費”按鈕的事件過程中只允許調用過程 sub1。不得修改已經存在的內容和控件屬性，最后把文件按原文件名存盤。【微步驟】步驟1:啟動Visual Basic 系統，打開考生文件夾下需編輯的工程文件sjt2.vbp ，相應的窗體文件名為sjt2.frm 。步驟2：由于所提供的窗體控件不完

4、整，需在該窗體上畫一個計時器控件，計時器開始不計時，即把（Enabled屬性）設為False，Interval屬性設為1000 （每秒加1）。步驟3:雙擊“通話開始”按鈕（即運行 Click事件過程），在該 Click事件過程中加入 語句：Private Sub Comma nd1_Click（）Timer1.E nabled = TrueEnd Sub步驟4：單擊“通話結束”按鈕（即運行 Click事件過程），在該 Click事件過程中加入 語句：Private Sub Comma nd2_Click（）Timer1.E nabled = FalseEnd Sub步驟5：單擊“計算通話費”按

5、鈕（即運行Click事件過程），在該 Click事件過程中加入語句：Private Sub Comma nd3_Click（）sub1End Sub步驟6:計時器的Timer事件過程，在該Timer事件過程中加入語句：Private Sub Timer1_Timer（）Text1 = Text1 + 1End Sub步驟7:調試并運行程序，關閉程序后按題目要求存盤。簡單應用（1）在考生文件夾下有一個工程文件sjt3.vbp 。程序運行時，單擊窗體則顯示如圖所示的圖案。請去掉程序中的注釋符，把程序中的？改為正確的內容。不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。 Form

6、l-lai x|*審常*鞘常*電常竄*Ml#*【微步驟】步驟1:啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt3.vbp ，相應的窗體文件名為sjt3.frm 。步驟2 :進入代碼編輯窗口。由于所提供的窗體程序不完整，在窗體的Private SubForm_Click()事件牛過程中，按以下要.求修改程序中的問號。第1個問號（For i =1 To ?）：5第2個問號（For j =1 To ?):2 * i - 1第3個問號（For j =1 To ?):i + 1第4個問號（For j =1 To ?):9 - 2 * i步驟3:調試并運行程序，關閉程序后按題目要

7、求存盤。(2)在考生文件夾下有一個工程文件sjt4.vbp ，窗體中有一個矩形和一個圓，程序運行時，單擊 開始”按鈕，圓可以縱向或橫向運動(通過選擇單選按鈕來決定)，碰到矩 形的邊時，則向相反方向運動，單擊“停止”按鈕，則停止運動，如圖所示。可以選擇單選 按鈕隨時改變運動方向。已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內容。不得修改已經存在的內容和控件屬性，最后把修改后的文件按原文件名存盤。【微步驟】步驟1啟動Visual Basic 系統，打開考生文件夾下需編輯的工程文件sjt4.vbp ，相應的窗體文件名為sjt4.frm 。步驟2：進入代碼編輯窗

8、口。由于所提供的窗體程序不完整，在“停止”按鈕的PrivateSub Command2_Click()事件過程和計時器的 Private Sub Timer1_Timer() 事件過程中，按如 下要求修改程序中的問號。第 1 個問號(? = False ) : Timer1第2個問號(Shape2.Top = ? + d * 50) : Shape2.Top第3個問號(If Shape2.Top = Shapel.? Or Shape2.Top + Shape2.Width = Shapel.Top + Shapel.Height Then )： Top第4個問號(Shape2.Left =

9、? + d * 50) : Shape2.Left步驟3:調試并運行程序，關閉程序后按題目要求存盤。綜合應用注意：下面出現的“考生文件夾”均為USER%在考生文件夾下有一個工程文件sjt5.vbp 。程序運行時，單擊“裝入數據”按鈕，則從考生目錄下的in5.txt文件中讀入所有城市名稱和距離，城市名稱按順序添加到列表框 Listl中，距離放到數組a中；當選中列表框中的一個城市時，它的距離就顯示在Textl中,如圖所示；此時，單擊“計算運費”按鈕，則計算到該城市的每噸運費(結果取整，不四舍 五入)，并顯示在Text2中。每噸運費的計算方法是：距離X折扣X單價。其中：單價為0.3。折扣為距離500

10、折扣為1500w距離1000折扣為0.981000w距離1500折扣為0.951500w距離2000折扣為0.922000w距離折扣為0.9單擊“保存”按鈕，則把距離和每噸運費存到文件out5.txt中。已經給出了所有控件和部分程序，要求：1） 去掉程序中的注釋符，把程序中的？改為正確的內容;2）編寫列表框的Click事件過程；3）編寫“計算運費”按鈕的 Click事件過程；不得修改已經存在的程序； 在退出程序之前，必須至少計算一次運費， 且必須用“保存” 按鈕存儲計算結果，否則無成績。最后，程序按原文件名存盤。【微步驟】步驟1:啟動Visual Basic 系統，打開考生文件夾下需編輯的工程

11、文件sjt5.vbp ，相應的窗體文件名為sjt5.frm 。步驟2：雙擊“計算運費”按鈕(即運行Click事件過程)，在該 Click事件過程中加入語句：Private Sub Comma nd2_Click()p = 0.3d = In t(Text1.Text / 500)Select Case dCase 0disco unt = 1Case 1discou nt = 0.98Case 2disco unt = 0.95Case 3discou nt = 0.92Case Elsedisco unt = 0.9End SelectText2 = Int(discount * p * T

12、ext1)End Sub步驟3:選擇列表框中的某個城市(即運行Click事件過程)，在該 Click事件過程中加入語句：Private Sub List1_Click()Text1 = a(List1.L istI ndex + 1)End Sub步驟4：在“裝入數據”按鈕的 Private Sub Comma nd1_Click()事件過程中，按以下要求修改程序中的問號。第1個問號( n = n + ? )： 1第 2個問號( List1.AddItem ?)： ch$步驟 5：調試并運行程序，關閉程序后按題目要求存盤。第48套：基本操作請根據以下各小題的要求設計 Visual Basic應

13、用程序（包括界面和代碼）。（1）在名稱為Forml的窗體上畫1個名稱為Cbol的組合框，組合框的列表項分別是：北 京、天津、上海。請設置組合框的參數，使其外觀如圖所示。窗體的標題是“使用組合框”存盤時，將文件保存至考生文件夾下，且窗體文件名為sjtl.frm，工程文件名為sjtl.vbp 。【微步驟】步驟1:啟動Visual Basic 系統，創建一個 Forml窗體。步驟2:在該窗體上畫一個組合框控件，通過其屬性窗口將名稱設為Cbo1，高（Height屬性）設為1000,寬（Width屬性）設為2000，Shape屬性設為4，FillStyle 屬性設為0，FillColor 屬性設為&HF

14、F00&步驟3 :激活Form1窗體，通過其屬性窗口將標題（Caption屬性）設為“圓角矩形”。步驟4 :調試并運行程序，設置工程文件名為sjt1.vbp ，設置窗體文件名為sjt1.frm 。（2）在名稱為Form1的窗體上畫1個名稱為P1的圖片框，窗體的標題為“程序設計”，如圖1所示。編寫適當的事件過程，使得程序運行后，單擊窗體，則在圖片框中顯示窗體的 標題，并把窗體的標題變為“Basic ”，如圖2所示。存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt2.frm，工程文件名為sjt2.vbp 。圖1圖2簡單應用（1）在考生文件夾中有一個工程文件sjt3.vbp ，窗體上有2個命令

15、按鈕、1個水平滾動條和1個計時器，其名稱分別為 Comma nd、Comma nd、HScroll1和 Timer1 ，如圖1所 示。程序運行后，按鈕 Comma nd、1 Comma nd的標題分別立即顯示開始、停止，同時把計時器的Interval屬性設置為100，Enabled屬性設置為False。此時如果單擊開始”按鈕，則該按鈕變為禁用，而標題則變為”繼續”，同時滾動條的滾動框自左至右移動， 每次移動10,如圖2所示，移到右端時，自動從左端重新開始向右移動；如果單擊”停止命令按鈕，則該按鈕變為禁用，”繼續命令按鈕變為有效，同時滾動框停止移動；再次單擊繼續命令按鈕后，滾動框繼續移動。已經給

16、出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的改為正確的內容。注意:考生不得修改窗體文件中已經存在的程序。最后程序按原文件名存盤。0 2*（2）在考生文件夾下有一個工程文件sjt4.vbp ，窗體上有2個名稱分別為Textl、Text2的文本框，有1個名稱為Comma nd的命令按鈕。程序運行時，在Textl文本框中輸入一行單詞（只含有字母或空格），單擊命令按鈕后，將把每個單詞的第一個字母改為大寫（如果原來已是大寫字母則不變），并在 Text2文本框中顯示出來，如圖所示。已經給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內容。不得修改原有程

17、序和控件的屬性。最后把修改后的文件按原文件名存盤。綜合應用注意：下面出現的“考生文件夾”均為USER%為了驗證一個正整數n （n 3）是否為素數，最直觀的方法是，看在2n/2范圍內能否找到一個整數m將n整除，若m存在，則n不是素數；若找不到 m則n為素數。在考生文件夾下 有一個工程文件sjt5.vbp ,其窗體上有1個名稱為Text1的文本框。請根據上面的算法，編寫 判斷一個正整數是否為素數的函數prime，然后用這個函數找出 200300之間的所有素數，求出這些素數的和，將該數在文本框中顯示出來，并存入文件out5.txt中。要求：編寫函數prime的代碼，然后在Form_Click事件過程

18、中調用該函數，并計算素數的和。 事件過程中已給出了把素數和保存到文件中的代碼，考生不得修改。請務必把求得的和在文本框中顯示出來，這樣才能存入文件out5.txt ，否則沒有成績。第49套：基本操作請根據以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。（1）在名稱為Forml的窗體上畫一個名稱為Imagel的圖像框，再畫一個名稱為 Comma nd、 標題為退出的命令按鈕。通過屬性窗口設置圖像框的屬性，將考生文件夾下的pic1.bmp文件加載到圖像框， 使圖片的大小能夠隨圖片框大小而改變。設置命令按鈕的屬性，使得程序運行時，按回車鍵即可執行命令按鈕的Click事件過程。窗

19、體外觀如圖所示。存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp ，窗體文件名為sjt1.frm（2）在名稱為Form1的窗體上畫一個名稱為 的屬性，使得打開通用對話框時，其初始路徑是 單如圖所示。請編寫程序，使得運行程序，單擊 出現打開或保存對話框。CD1的通用對話框，在屬性窗口中設置CD1D:。按照下表設計菜單，窗體外觀及菜打開文件”或保存文件”菜單項時，相應的要求程序中不得使用變量，每個事件過程中只能寫一條語句。注意:存盤時必須存放在考生文件夾下，工程文件名為 sjt2.vbp ，窗體文件名為sjt2.frm砲離稱文件File無打開文件OpenFilc1搽存文件Savefile

20、1簡單應用（1）考生文件夾中有工程文件sjt3.vbp 。其窗體上已有部分控件。在窗體上添加含有兩個單選鈕的控件數組，其名稱為Option1 ,單選按鈕的下標分別為 0、1，Caption屬性分別為驅動器為C及列txt文件”，如圖所示。運行程序時，驅動器列表框、目錄列表框和文件列表框三個控件能夠同步變化。1）單擊驅動器為C單選按鈕，則驅動器列表框的當前驅動器被設為2）單擊列txt文件”單選按鈕，則文件列表框中只顯示txt類型的文件。3）單擊文件列表框中的某個文件時，被選中的文件名顯示在”當前文件”右側的標簽中。要求：按照題目要求添加控件， 設置有關屬性，去掉程序中的注釋符， 把程序中的？改為正

21、確 的內容。考生不得修改窗體文件中已經存在的程序。最后，程序按原文件名存盤。（2）在考生文件夾下有一個工程文件sjt4.vbp 。窗體上已有全部控件，如圖1所示。要求單擊標題為”生成矩陣”的命令按鈕時，隨機生成由單個大寫字母組成的5X 5矩陣，并顯示在名稱為Textl的文本框中。單擊查找”按鈕，找出所生成矩陣中 ASCII值最大的字母及其位 置，并顯示在Text2中（只顯示一個ASCII值最大的字母及其位置），如圖2所示（Text2中顯示的是第2行第5列的Y）。在給出的窗體文件中已經有了全部控件，但程序不完整。要求 去掉程序中的注釋符，把程序中的？改為正確的內容。不能修改程序的其他部分和控件屬

22、性。最后把修改后的文件按原文件名存盤。E I圖】綜合應用注意：下面出現的“考生文件夾”均為USER%在考生文件夾下有一個工程文件sjt5.vbp 。程序功能如下：1）單擊”讀數據”按鈕，從文件中讀出數據，放入二維數組a中。2）單擊生成新數組”按鈕時，依據a數組生成b數組；若a數組元素為素數，則直接將a數組元素的值賦給b數組中相同下標的數組元素；若a數組元素的值能被2整除，則將該元素值的平方作為b數組同下標的元素；若a數組元素為其他值，則將該元素乘2的值作為b數組同 下標的元素。3）單擊查找最大值”按鈕，則在b數組中找最大值并顯示在 Label2標簽上。在給出的窗體文件中已經有了全部控件，標準模

23、塊中有判斷素數的函數IsPrime。要求去掉程序中的注釋符，把程序中的？改為正確的內容，并編寫相應的程序，實現程序的功不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調試通過后，各命令按鈕的事件過程必須至少各執行一次。第50套：基本操作請根據以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。（1）在名稱為Forml，標題為”圖書”的窗體上畫1個名稱為Cmb的下拉式組合框。下拉 列表中有”少兒讀物”、”傳記文學”和武俠小說3個表項內容。運行后的窗體如圖所示。注意:存盤時必須存放在考生文件夾下，工程文件名為sjtl.vbp，窗體文件名為sjtl.frm

24、 。【微步驟】步驟1:啟動Visual Basic 系統，創建一個 Forml窗體。步驟2 :修改屬性caption:圖書步驟3 :添加控件combo1,通過其屬性窗口將list 輸入少兒讀物傳紀文學武俠小說步驟4 :調試并運行程序，設置工程文件名為sjt1.vbp ，設置窗體文件名為sjt1.frm 。（2）在名稱為Form1的窗體上，畫1個能根據標題內容自動調整大小的標簽，其名稱為Label1，標題為Visual Basic，字體為Times NewRoman,字號為14號字。再畫2個名稱 分別為Command、1 Command2標題分別為”放大”、”縮小”的命令按鈕。要求：編寫適當的事

25、件過程，使得每單擊”放大按鈕一次，Label1中所顯示的標題內容自動增大3個字號；每單擊”縮小”按鈕時，Label1中所顯示的標題內容自動縮小3個字號。要求程序中不能使用變量，每個事件過程中只能寫一條語句。保存時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm 。【微步驟】步驟1:啟動Visual Basic 系統，創建一個sjt2.frm 窗體步驟2：由于所提供的窗體控件不完整，需在該窗體上畫一個標簽控件屬性 fon tName: Times New Roma nFon tsize:14Capti on: Visual BasicName:label1步驟3

26、:在該窗體上畫一個命令按鈕控件屬性:Caption:放大Name:comma nd1Private Sub Comma nd1_Click（）Form1.Label1.Fo ntSize = Form1.Label1.Fo ntSize + 3End Sub步驟4:在該窗體上畫一個命令按鈕控件屬性:Caption:縮小Name:comma nd2Private Sub Comma nd2_Click（）Form1.Label1.Fo ntSize = Form1.Label1.Fo ntSize - 3End Sub步驟5:調試并運行程序，關閉程序后按題目要求存盤。簡單應用（1）考生文件夾下的

27、工程文件 sjt3.vbp中有2個標題分別是”產生范文”和結束”的命令 按鈕；2個名稱分別為Text1和Text2，初始值為空的文本框。請再畫 1個名稱為Label3、標題 為正確率”的標簽， 畫1個名稱為Text3、初始內容為空的文本框。程序功能如下：1） 單擊”產生范文命令按鈕，則在Text1文本框中隨機產生由20個字母組成的范文；2） 用戶可以在Text2文本框中依照范文輸入相應字母，當輸入字母達到20個之后，禁止 向Text2輸入內容，且在Text3文本框中顯示輸入的正確率；3） 單擊結束命令按鈕，則結束程序運行。請將產生范文”命令按鈕的Click事件過程， 以及Text2文本框的Ke

28、yPress事件過程中的注釋符去掉， 把？改為正確內容，以實現上述程 序功能。考生不得修改窗體文件中已經存在的控件和程序。最后，程序按原文件名存盤。Private Sub Comma nd1_Click()Ran domizeText2.Locked = FalseText1 = : Text2 = : Text3 =For i = 1 To 20s = Chr$(Int(Rnd * 26) + 97)Text1 = Text1 + sNextEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Dim m As Integer, n As IntegerIf Len(Text2) = 20 ThenText2.Locked = Falsem = 0: n = 0For i = 1 To 20If Mid(Text2, i, 1) = Mid(Text1, i, 1) Then m = m + 1Elsen = n + 1End IfNe