Visual Basic 程序设计试卷7.doc

QQ:401999419全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷Visual Basic 语 言 程 序 设 计常 用 标 准 控 件填空题专项练习（每空2分，共100分）1. 以下程序的功能是：单全选按钮后，将左边文本框的内容全部选中；单击替换铵钮后，将左边文本框中选中的内容用右边文本框的内容来替代。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，如果口令正确，则显示“合法用户”；如果口令不正确，自动清除文本框中的内容，光标停在文本框中，等待重新输入，如果三次输入口令不正确，则退出程序。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，两个复选框Check1和Check2，两个单选按钮Option1和Option2，根据要求将程序补充完整。（1）单击复选框粗体，文本框中的文字变成粗体效果Private Sub Check1_Click()Text1. 【 9 】 = Not Text1.FontBoldEnd Sub（2）单击单选钮10号，文本框中的文字大小被设置为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. 以下程序段的功能是：通过组合框设置文本框中的字体大小。在组合框中添加三个列表项为：10号、20号、30号 Private Sub Combo1_Click() Text1.FontSize = 【 23 】End Sub14. 以下程序段的功能是：通过组合框设置文本框中的字体颜色。在组合框中添加三个列表项为：红色、绿色、蓝色 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. 以下程序段的功能是：通过组合框设置文本框中的字体类型。在组合框中添加三个列表项为：黑体、隶书、楷体_GB2312 Private Sub Combo1_Click() 【 25 】 = Combo1.TextEnd Sub16. 如图所示界面，窗体含有一个文本框一个水平滚动条，分别为Text1和Hscroll1，根据要求将程序补充完整。（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. 以下程序段的功能是：设计秒表，在按钮上显示当前时间。Private Sub Form_Load() Timer1. 【 28 】 = 1000End SubPrivate Sub Timer1_Timer() Command1.Caption = 【 29 】End Sub18. 以下程序段的功能是：设置一个流动的字幕，字幕在窗体上从左向右移动，如果移动窗体之外，字幕再从窗体左边开始向右移动。初始时计时器的时间间隔设为100Private Sub Timer1_Timer()Label1.Left = 【 30 】 + 100If Label1.Left = 【 31 】 Then Label1.Left = 0End Sub19. 以下程序段的功能是：设置一个红蓝交替变化的文字，初始时计时器的时间间隔设为300Private Sub Timer1_【 32 】 () If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlue Else Label1.ForeColor = vbRed End IfEnd Sub20. 以下程序段的功能是：在文本框中不断产生一个三位随机正整数，初始时计时器的时间间隔设为50，计时器不运行；单击开始按钮(Command1)后，文本框(Text1)中不断产生随机数，单击停止按钮(Command2)后，文本框中的随机数不再变化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. 为了使标签上的内容居中显示，应将Alignment的值设为 【 36 】22. 为了使标签具有边框，应将BorderStyle的值设为 【 37 】23. 为了使标签覆盖背景，应将BackStyle的值设为 【 38 】 24. 为了使标签上显示的内容可以扩展到下一行，应设置 【 39 】属性25. 限制向文本框中输入字符的个数，应设置 【 40 】属性26. 为了使文本框具有水平和垂直滚动条，应将ScrollBars的值设为 【 41 】 27. 为了使文本框具有滚动条，应设置ScrollBars属性，同时还应将 【 42 】的值设为True28. 为了使图像框中的图形自动放大或缩小以与图像框的大小相适应，应将Stretch的值设为 【 43 】29. 为了在按下回车键时执行命令按钮的单击事件，应将属性 【 44 】设为True30. 为了在按下ESC键时执行命令按钮的单击事件，应将属性 【 45 】设为True31. 设置复选框或单选钮标题对齐方式的属性是 【 46 】32. 如果按下命令按钮不放，按钮上出现一个图形，应设置 【 47 】属性33. 在图片框Picture1中加载图形文件pic.jpg的语句为 【 48 】34. 删除图片框Picture1中图形的语句为 【 49 】 35. 在滚动条内拖动滚动框时会触发 【 50 】事件36. 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 答 题 卡37. Visual Basic 语 言 程 序 设 计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【