Visual Basic 程序設(shè)計試卷7.doc

QQ:401999419全 國 計 算 機 等 級 考 試 二 級 筆 試 試 卷Visual Basic 語 言 程 序 設(shè) 計常 用 標 準 控 件填空題專項練習（每空2分，共100分）1. 以下程序的功能是：單全選按鈕后，將左邊文本框的內(nèi)容全部選中；單擊替換銨鈕后，將左邊文本框中選中的內(nèi)容用右邊文本框的內(nèi)容來替代。Private Sub Command1_Click() Text1.SetFocus Text1. 【 1 】 = 0 Text1.SelLength = 【 2 】End SubPrivate Sub Command2_Click() Text1. 【 3 】 = Text2.TextEnd Sub2. 以下程序的功能是：在文本框Text1中輸入小寫字母，在文本框Text2中同步顯示大寫字母Private Sub Text1_ 【 4 】( )Text2.Text = 【 5 】End Sub3. 將焦點停在文本框Text1中的語句為【 6 】4. 以下程序的功能是：在文本框Text1中輸入口令，口令以星號顯示，單擊登陸銨鈕Command1，如果口令正確，則顯示“合法用戶”；如果口令不正確，自動清除文本框中的內(nèi)容，光標停在文本框中，等待重新輸入，如果三次輸入口令不正確，則退出程序。Private Sub Command1_Click() Static n As Integer If Text1.Text abc Then 【 7 】 If n = 3 Then 【 8 】 Text1.Text = Text1.SetFocus Else MsgBox 合法用戶 End IfEnd Sub5. 如圖所示界面，窗體含有一個文本框Text1，兩個復(fù)選框Check1和Check2，兩個單選按鈕Option1和Option2，根據(jù)要求將程序補充完整。（1）單擊復(fù)選框粗體，文本框中的文字變成粗體效果Private Sub Check1_Click()Text1. 【 9 】 = Not Text1.FontBoldEnd Sub（2）單擊單選鈕10號，文本框中的文字大小被設(shè)置為10號Private Sub Option1_Click()Text1. 【 10 】 = 10End Sub6. 如果雙擊列表框中某個列表項后，再把該列表項添加到列表框末尾，使用的語句如下：List1.AddItem 【 11 】7. 如果雙擊列表框中某個列表項后，則刪除該列表項，使用的語句如下：List1.RemoveItem 【 12 】8. 刪除列表框List1中所有的列表項，使用的語句為：【 13 】9. 以下程序段的功能是：將列表框中所有列表項在窗體上打印出來For i = 0 To 【 14 】 Print 【 15 】Next10. 以下程序段的功能是：將列表框中所有列表項在窗體上打印出來For i = 0 To List1.ListCount - 1 If 【 16 】 = True Then Print List1.List(i)Next11. 以下程序的功能是：在組合框中輸入城市名稱后按回車，如果該名稱已存在，則不允許加入；如果不存在，則作為一個列表項加入到組合框中Private Sub Combo1_【 17 】 (KeyAscii As Integer)If KeyAscii = 13 Then For i = 0 To Combo1.ListCount - 1 If Combo1.Text = 【 18 】 Then MsgBox 該列表項已存在 【 19 】 End If Next If i = 【 20 】 Then Combo1.AddItem Combo1.TextEnd IfEnd Sub12. 以下程序段的功能是：有兩個列表框List1和List2，如果雙擊List1中的某個列表項，把該列表項移到List2中Private Sub List1_DblClick() 【 21 】 List1.Text 【 22 】 List1.ListIndexEnd Sub13. 以下程序段的功能是：通過組合框設(shè)置文本框中的字體大小。在組合框中添加三個列表項為：10號、20號、30號 Private Sub Combo1_Click() Text1.FontSize = 【 23 】End Sub14. 以下程序段的功能是：通過組合框設(shè)置文本框中的字體顏色。在組合框中添加三個列表項為：紅色、綠色、藍色 Private Sub Combo1_Click() Select Case 【 24 】 Case 0: Text1.ForeColor = vbRed csee 1: Text1.ForeColor = vbGreen Case 2: Text1.ForeColor = vbBlue End SelectEnd Sub15. 以下程序段的功能是：通過組合框設(shè)置文本框中的字體類型。在組合框中添加三個列表項為：黑體、隸書、楷體_GB2312 Private Sub Combo1_Click() 【 25 】 = Combo1.TextEnd Sub16. 如圖所示界面，窗體含有一個文本框一個水平滾動條，分別為Text1和Hscroll1，根據(jù)要求將程序補充完整。（1）初始化時，水平滾動條的最小改變量為2Private Sub Form_Load()HScroll1.Min = 10HScroll1.Max = 100HScroll1. 【 26 】= 2HScroll1. LargeChange = 5End Sub（2）通過水平滾動條來改變文本框中字符的大小Private Sub HScroll1_Change()Text1.FontSize = 【 27 】End Sub17. 以下程序段的功能是：設(shè)計秒表，在按鈕上顯示當前時間。Private Sub Form_Load() Timer1. 【 28 】 = 1000End SubPrivate Sub Timer1_Timer() Command1.Caption = 【 29 】End Sub18. 以下程序段的功能是：設(shè)置一個流動的字幕，字幕在窗體上從左向右移動，如果移動窗體之外，字幕再從窗體左邊開始向右移動。初始時計時器的時間間隔設(shè)為100Private Sub Timer1_Timer()Label1.Left = 【 30 】 + 100If Label1.Left = 【 31 】 Then Label1.Left = 0End Sub19. 以下程序段的功能是：設(shè)置一個紅藍交替變化的文字，初始時計時器的時間間隔設(shè)為300Private Sub Timer1_【 32 】 () If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlue Else Label1.ForeColor = vbRed End IfEnd Sub20. 以下程序段的功能是：在文本框中不斷產(chǎn)生一個三位隨機正整數(shù)，初始時計時器的時間間隔設(shè)為50，計時器不運行；單擊開始按鈕(Command1)后，文本框(Text1)中不斷產(chǎn)生隨機數(shù)，單擊停止按鈕(Command2)后，文本框中的隨機數(shù)不再變化Private Sub Command1_Click() Timer1. 【 33 】 = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = 【 34 】End SubPrivate Sub Timer1_Timer() 【 35 】 = Int(100 + 900 * Rnd)End Sub21. 為了使標簽上的內(nèi)容居中顯示，應(yīng)將Alignment的值設(shè)為 【 36 】22. 為了使標簽具有邊框，應(yīng)將BorderStyle的值設(shè)為 【 37 】23. 為了使標簽覆蓋背景，應(yīng)將BackStyle的值設(shè)為 【 38 】 24. 為了使標簽上顯示的內(nèi)容可以擴展到下一行，應(yīng)設(shè)置 【 39 】屬性25. 限制向文本框中輸入字符的個數(shù)，應(yīng)設(shè)置 【 40 】屬性26. 為了使文本框具有水平和垂直滾動條，應(yīng)將ScrollBars的值設(shè)為 【 41 】 27. 為了使文本框具有滾動條，應(yīng)設(shè)置ScrollBars屬性，同時還應(yīng)將 【 42 】的值設(shè)為True28. 為了使圖像框中的圖形自動放大或縮小以與圖像框的大小相適應(yīng)，應(yīng)將Stretch的值設(shè)為 【 43 】29. 為了在按下回車鍵時執(zhí)行命令按鈕的單擊事件，應(yīng)將屬性 【 44 】設(shè)為True30. 為了在按下ESC鍵時執(zhí)行命令按鈕的單擊事件，應(yīng)將屬性 【 45 】設(shè)為True31. 設(shè)置復(fù)選框或單選鈕標題對齊方式的屬性是 【 46 】32. 如果按下命令按鈕不放，按鈕上出現(xiàn)一個圖形，應(yīng)設(shè)置 【 47 】屬性33. 在圖片框Picture1中加載圖形文件pic.jpg的語句為 【 48 】34. 刪除圖片框Picture1中圖形的語句為 【 49 】 35. 在滾動條內(nèi)拖動滾動框時會觸發(fā) 【 50 】事件36. 全 國 計 算 機 等 級 考 試 二 級 筆 試 試 卷 答 題 卡37. Visual Basic 語 言 程 序 設(shè) 計38. 姓名學員號得分39.40. 填空題（每空2分，共100分）41. 【 1 】 SelStart【 2 】 Len(Text1.Text)42. 【 3 】 Text1.SelText【 4 】 Change43. 【 5 】 Ucase(Text1.Text)【 6 】 Text1.SetFocus44. 【 7 】 n=n+1【 8 】 End45. 【 9 】 FontBold【 10 】 FontSize46. 【 11 】 List1.Text 【 12 】 List1.ListIndex47. 【 13 】 List1.Clear【 14 】 List1.ListCount - 148. 【 15 】 List1.List(i)【 16 】 List1.Selected(i)49. 【 17 】 KeyPress【 18 】 Combo1.List(i)50. 【 19 】 Exit For【 20 】 Combo1.ListCount51. 【 21 】 List2.AddItem【 22 】 List1.RemoveItem52. 【 23 】 Val(Combo1.Text)【 24 】 Combo1.ListIndex53. 【 25 】 Text1.FontName【 26 】 SmallChange54. 【 27 】 Hscroll1.Value【 28 】 Interval55. 【 29 】 Time【 30 】 Label1.Left56. 【 31 】 Form1.Width【 32 】 Timer57. 【 33 】 Enabled【 34 】 False58. 【 35 】 Text1.Text【 36 】 259. 【 37 】 1【 38 】 160. 【 39 】 WordWrap【 40 】 MaxLength61. 【 41 】 3【