VB程序设计复习资料
- 格式:doc
- 大小:885.00 KB
- 文档页数:28
1 一、判断题 (每题 1 分,共 10 分) ( )1. 由Visual Basic语言编写的应用程序有解释和编译两种执行方式。 ( )2. 文本框控件的MaxLength属性值为0时,在文本框内不可以输入任何字符。 ( )3. 要使输入文本框的字符始终显示“#”,则应修改其PasswordChar属性为“#”。 ( )4. 在一个窗体中不能使用Unload来卸载本窗体,即一个窗体只能由其它窗体卸载。 ( )5. VB的Double类型数据,可以精确表示其数值范围内的所有实数。 ( )6. 在图片框中添加的控件,其Top和Left属性值是相对图片框而言的,与窗体无关。 ( )7. 命令按钮不但能响应单击事件,而且还能响应双击事件。 ( )8. 在自定义函数过程中,函数名必须被赋值。 ( )9. 文本框控件只能响应KeyPress、KeyDown、KeyUp、Change事件。 ( )10. 如果一个菜单项的Visible属性为False,则它的子菜单也会显示。
二、单选题 (每题 2 分,共 20 分) ( )11. 要改变控件的高度,应修改控件的_______属性。 A、Top B、 Left C、 Height D、Width ( )12. VB算术运算符乘或除、整除、求余的优先级,从高到低依次为_______。 A、乘或除、求余、整除 B、乘或除、整除、求余 C、整除、求余、乘或除 D、整除、乘或除、求余 ( )13. 下列哪个属性用来表示标签(Label)的内容和窗体(Form)的标题_______。 A、Caption B、Text C、Left D、Name ( )14. 判断整型变量m能否被n整除的VB表达式为_______。 A、n Mod m=0 B、m/n*n=m C、m Mod n D、m\n*n=m ( )15. 选中复选框控件时,Value属性的值为_______。 A、True B、False C、0 D、1 ( )16. 在窗体Form1的一个事件过程中,使用_______来清除窗体上所绘制的图形的方法是不正确的。 A、Form1.Cls B、Form.Cls C、Me.CLS D、Cls ( )17. 设计动画时通常用时钟控件_______属性来控制动画速度。 A、Interval B、 Timer C、 Move D、 Enabled ( )18. 使用Circle方法不可以绘制的图形是_______。 A、圆角矩形 B、椭圆 C、圆饼图 D、扇形 ( )19. 运行时组合框控件Comb1中所选择的表项,可以表示为_______。 A、Comb1.Text B、Comb1.ListIndex C、Comb1.List D、Comb1.ListCount ( )20. 若i的初值为9,则下列循环语句的循环次数为 _______次。 Do While i<=20 i=i+3 Loop A、3次 B、4次 C、5次 D、6次
三、程序填空题(每空 2 分,共 20 分) 1.【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中,再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。 Private Sub Form_Click() Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i=1 To 30 2
a(i)= (21) Next i For i=1 To 29 For j= (22) If a(i)>a(j) Then m=a(i) (23) a(j)=m Next j Next i For i=1 To 30 If (24) Then (25) Next i End Sub
(21) (22 ) (23 ) (24 ) (25 ) 2.【程序说明】下列程序运行时,单击Command1(0)后,图片每秒自动左移1毫米,单击Command1(1)停止移动(当图片尾部移出窗体后,图片从窗体右端进入窗体)。界面设计如下图1所示。
图1 程序2的界面设计 【程序】 Private Sub Command1_Click(Index As Integer) If Index=0 Then (26) Else Timer1.Enabled=False End Sub Private Sub Form_Load() Timer1.Interval = (27) Form1.ScaleMode = 6 (28) End Sub Private Sub Timer1_Timer() Picture1.Left = (29) If Picture1.Left + Picture1.Width <= Form1.ScaleLeft Then _ (30) = Form1.ScaleLeft + Form1.ScaleWidth End Sub
(26) (27) (28 ) (29 ) (30 ) 四、程序阅读题(每小题5分,共 20 分) 程序31、请写出单击窗体三次后,窗体上的显示结果。 Private Sub Form_Click() Static a As Integer Dim b As Integer b = a + b + 2 a = a + b 3
Form1.Print "a="; a, "b="; b End Sub 程序32、 请写出单击窗体后,窗体上的显示结果。 Private Sub Form_Click() For i% = 1 To 7 Print Spc (7- i) ; For j% = 1 To (2 * i%) - 1 : Print "M" ; : Next j% Print Next i% End Sub 程序33、写出程序运行时,单击Option1(2)后,窗体上的显示结果。 Private Sub Form_Load() Option1(0).Value=False Option1(1).Value=False Option1(2).Value=False End Sub Private Sub Option1_Click(Index As Integer) If Option1(Index).Value=True Then Select Case Index Case 0 Check1(0).Value=1: Check1(1).Value=0 Case 1 Check1(0).Value=0: Check1(1).Value=1 Case 2 Check1(0).Value=1: Check1(1).Value=1 End Select If Check1(0).Value=1 Then Print "您好" If Check1(1).Value=1 Then Print "欢迎使用Visual Basic!" End If End Sub
程序34、设Text1.Text为 "abcdef",运行时连续单击3次控件HScroll1右侧箭头后,分别写出组合框控件中的第1项、第2项及第3项的内容。 Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.Clear End Sub Private Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0 End Sub
五、程序设计题 (每题 10 分,共 30 分) 35.编制事件过程Command1_Click,执行该过程时输入n以及n个数,计算这n个数的和并在文本框控件Text1中显示。(10分) 36. 编制通用函数过程fsum ,计算Single类型一维数组所有元素的和。(10分) 37. 在窗体上建立命令按钮“Command1”(显示)和“Command2”(退出)。 运行时,“Command2”按钮始终显示“退出”;单击“显示”按钮后窗体上显示“欢迎使用Visual Basic!”同时标题改为“清除”,再单击“清除”按钮后,界面恢复窗体装入时的初态。(10分)
试题一、判断题(每小题1分,共10分) 1. √ 2. × 3. √ 4. × 5. × 6. √ 7. √ 8. √ 9. × 10. ×
试题二、单选题(每小题2分,共20分) 4
11. C 12. B 13. A 14. D 15. D 16. B 17. A 18.A 19. C 20. B 试题三、程序填空题(每空2分,共20分) 21.Int(Rnd*90)+10 22. i+1 To 30 23. a(i) = a(j) 24. a(i) Mod 2<>0 25. Print a(i); 26. Timer1.Enabled=True 27. 1000 28. Timer1.Enabled = False 29. Picture1.Left-1 30. Picture1.Left
试题四、程序阅读题(每小题5分,共20分) 31. a = 2 b = 2 a = 6 b = 4 a = 14 b = 8 32. M MMM MMMMM MMMMMMM MMMMMMMMM MMMMMMMMMMM MMMMMMMMMMMMM 33.您好 欢迎使用Visual Basic! 34. abcd abc ab
试题五、程序设计题(每小题各10分,共30分) 35.编制事件过程Command1_Click,执行该过程时输入n以及n个数,计算这n个数的和并在文本框控件Text1中显示。 Private Sub Command1_Click() Dim s As Single, n As Integer, x As Single n=InputBox("输入n") For i=1 To n x=InputBox("x="): s=s+x Next i Text1.Text=s End Sub 36. 编制通用函数过程fsum,计算Single类型一维数组所有元素的和。 Private Function fsum(a() As Single, n As Single) As Single Dim i As Integer For i = 1 To n fsum = fsum + a(i) Next i End Function