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

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