试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 3-20 1 4 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计 试题 2014 年 1 月 注意事项 一 将你的学号 姓名及分校 { 工作站 } 名称填写在答题纸的规定栏内 考试结束后, 把试卷和答题纸放在桌上 试卷和答题纸均不得带出考场 监考人收完考卷和答题纸后才可离开考场 二 仔细读懂题目的说明, 并按题目要求答题 答案 - 定要写在答题纸的指定位置上, 骂在试卷上的答案无效 三 用蓝 黑圆珠笔或钢笔 { 含签字笔 } 答题, 使用铅笔答题无效 - 单项选择题{ 每小题 2 分, 共 3 0 分 } 1. 后缀为. bas 的文件表示 VB 的 ( ) A. 窗体文件 B. 类模块文件 c. 工程文件 D. 标准类模块文件 2. 当一个工程中含有多个窗体时, 其中的启动窗体是 ( ) A. 启动 VB 时创建的第一个窗体 B. 第一个添加的窗体 c. 最后一个添加的窗体 D. 在 " 工程属性 " 对话框中指定的窗体 3. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮, 只要对下列 ( ) 属 性设置就有效 A. MaxButton c. Width B. BorderSyle D. 如 1inButton 1069
4. 有程序代码如下 : Text!' Text= "Visual Basic" 则 Te xtl ~ Te xt, 和 " V i s ua l Basi c " 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要设置命令按钮的背景图形, 必须设置的两个属性是 ( ) A. Value 和 Icon C. Caption 和 Picture B. Style 和 Icon D. Style 和 Picture 6. 在 VB 中, 下列合法的变量名是 ( A. 4ab C. 乱 3 B. a-b D. integer 7. 如下数组声明语句, 正确的是 ( A. Dim a 口,4J As Integer B. Dim a(34) As Integer C. Dim a(n,n) As Integer D. Dim a(3, 的 As Integer 8. 要在窗体 Forml 内显示 " 欢迎您! ", 使用的语句是 ( ) A. Form. caption=" 欢迎您! " B. Form!. caption=" 欢迎您! " C. Form!. print" 欢迎您! " D. Form. print" 欢迎您! " 9. 执行 Form!. Scale(-14,14)-(l4,-14) 语句后,Forml 窗体坐标系 x 轴和 y 轴的正方向 是 ( ) A. 向左和向下 且 向右和向上 C. 向左和向上 D. 向右和向下 10. 如果希望以模态方式显示窗体 Forml, 下列正确的语句是 ( ) A. Form!. Show 0 C. Form!. Show 1 1 1. 表达式 8+13 Mod 2 铃 4 + 3 ( A. 8 C. 10 1070 B. Form!. Show D. 以下都不正确 B. 16 D. 12
12. VB 程序中通常不会产生错误提示的是 ( ) A. 编译错误 B. 实时错误 C. 运行时错误 D. 逻辑错误 13. 如果创建了命令按钮数组控件, 那么该命令按钮的 Click 事件的参数是 ( ) A. Index B. Caption C. Tag D. 没有参数 14. 不属于 VB 数据库引擎的是 ( ) A. ODBC B. BDE C. Jet 引擎 D. OLE DB 15. 使用 ADO 数据模型时, 建立 R e cor d s e t 和 Connecti on 对象连接的属性是 λ A. Execute C. Open B. CommandType D. ActiveConnection 二 填空题 { 每小题 2 分, 共 20 分 } 16. 欲设置定时器的时间间隔为 2 秒, 则属性 Int erva l 的值为 17. 某个程序中要用到一个二维数组, 要求数组名为 A, 类型为整型, 第一维下标从一 1 到 2, 第二维下标从一 2 到 2, 则相应数组声明语句为 18. 在 VB 中想获得帮助, 需要按的键是 19. 在控件数组中, 所有元素的一一一一 - 属性均相同, 数组中的每个元素由 属性 指定 20. 在 Vi s ua l Basic 语言中有三种形式的循环结构 其中, 若循环的次数可以适先确定, 可使用一一一 - 循环 2 1. 一个 VB 应用程序可以包含一一一个 vbp 文件 22. VB 中参数传递的方式有两种, 一种是一一一参数, 另一种是一一一一参数 23. 全局变量是指那些在整个应用程序中有效的变量, 一般在模块代码编辑器的顶部使 用 声明 24. Winsock 控件主要用来编制基于一一一一一或 25. 通常可以将文本框控件的 Locked 属性设置为 协议的网络应用程序, 以禁止键盘输入 三 阅读程序题 { 共 2 5 分 } 阅读下列程序并写出程序运行结果 26. (6 分 ) Private Sub Form_ClickO 1071
Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To 5 If j>3 Then c=c+5 Exit For Else k=k+l End If Next j Print c,k 写出程序运行时单击窗体后, c, k 的值分别是 z 27.(& 分 Private Sub CommandLClickO Dim s As Double Dim i As Integer s=6 i=1 Do While i<9 i=i+2 s=s+i.loop Text!' Text=s 文件框 Te x t! 的输出结果是 28. (6 分 Function F(a As Integer) Dim b As Integer 1072 Static c As Integer
b=b 十 2 c=c 十 2 F=a+b+c End Function Private Sub CommandLClick() Dim a As Integer a=5 For i=1 To 3 Print F(a) Next i 写出程序运行时, 单击命令按钮在窗体上的输出结果 29.{7 分 ) Private Sub CommaIidLClick() Dim a As Integer: Dim b As Integer a=10,b=20 Change1 a,b Print"A1=" ;a,"b1=";b a=10:b=20 Change2 a,h Print"A2= 飞 a,"b2=";h Sub Change1 (x As Integer,y As Integer) t=x:x=y:y=t Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t 写出程序运行时, 单击窗体 Form1 上的输出结果 1073
四 完善程序题 ( 共 1 0 分 ) 30. 程序运行界面如图 l 所示 要求从文本框中输入课程名称, 然后按 " 添加 " 按钮, 将其添加到列表框中 ; 当选择列表框中某一项后, 按 " 删除 " 按钮, 则从列表框中删除该项 ; 当选择列表框中某一项后, 按 " 修改 " 按钮, 把列表框中选取的项送往文本框且 " 修改 " 按钮变为 " 修改确认 " 在文本框的内容修改好后, 按 " 修改确认 " 按钮, 再把文本框中修改后的信息送到列表框且 " 修改确认 " 按钮变为 " 修改 " j 列耐用程芹白白一面 1 Textl List! Commandl Command2 Command3 图 l 程序如下, 请补充完整 Private Sub Form 一 LoadO Listl. AddItem" 计算机应用基础 " Listl. AddItem" 程序设计基础 " Listl. AddItem"VB 程序设计 " Listl. AddItem 咆 QL Server 数据库应用 " Listl. AddItem" 网站设计技术 " Listl. AddItem" 系统开发规范与文档编写 " Listl. Addltem" 信息系统测试 " Private Sub Commandl_ClickO If Textl. Text<>'''' Then 1074
List1. [lj Textl. Text ' 将文本框中的内容添加到列表框中 Textl. Text="" Else MsgBox" 请在文本框中输入信息! " End If Private Sub Command2_ClickO Listl. RemoveItem [2J ' 删除选定的项目 Private Sub CommandLClickO If Command3. Caption=" 修改 "Then Textl. Text= [3J Textl. SetFocus Command!. Enabled=False Command2. Enabled=False Command3. Caption=" 修改确认 " Else [4J =Textl. Text Command!. Enabled= True Command2. Enabled= True Text!. Text= [5J Command3. Caption=" 修改 " End If 五 编写程序题 { 共 1 5 分 } 3 1. 编写简单的工资计算程序, 要求在 Text1 Text2 Text3 中分别输人基本工资 奖金 ' 扣款, 单击 " 计算 " 按钮 ( Command 1 ) 后, 首先计算 " 应发工资气 Te xt 的, 然后根据 " 应发工资 " 计 算个人所得税 ( T e xt 日, 最后计算出实发工资 ( Te xt 的 (1) 应发工资 = 基本工资 + 奖金一扣款 (2) 个人所得税的计算规则假设为 : 1 当应发工资在 1 0 00 元以内部分 ( 含 1 0 0 0 元 ), 不扣所得税 1075
2 当应发工资大于 1 0 0 0, 但小于等于 3 0 00 元时, 超过 1 0 00 元的部分按 1 5 % 计算所得税 3 当应发工资大于 3 0 0 0, 按 2 0 % 扣税 程序运行结果如图 2 所示 图 2 1076
... 户O'int唱i'indnL1晶OLnLnL Onu试卷代号 : 2 2 31 座位号 E 口 中央广播电视大学 2 0 1 3-2 0 1 4 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计 试题答题纸 题号 一 二 三 四 五 总分 分数 I I I I I I I 2014 年 1 月 得分 评卷人 题 ( 每小题 2 分, 共 3 0 分 } I I I 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 得分 评卷人 二 填空题 ( 每小题 2 分, 共 2 0 分 } Qd$A9IHqu4&nFOL1077
得分 评卷人 三 阅读程序题 { 共 2 5 分 ) 26. 27. 28. 29. 得分 评卷人 I I I 四 完罄程序题 ( 共 1 0 分 } 30. 得分 评卷人 I I I 五 编写程序题 ( 共 1 5 分 } 31. 1078
试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 3-2 0 1 4 学年度第 - 学期 " 开放专科 " 期末考试 Visual Basic 程序设计 试题答案及评分标准 ( 供参考 ) 2014 年 1 月 一 单项选择题 { 每小题 2 分, 共 3 0 分 } 1. D 2. D 3.B 6. C 7. D 8. C 11. B 12. D 13..A 二 填空题 { 每小题 2 分, 共 2 0 分 } 16. 2000 17. Dim A(-lTo2, 一 2To2)As Integer 18. F1 19. Name Index 20. For Next 21. 1 22. 引用参数传递 ( 或按址传递 按值传递 23. Public 24. TCPlIP UDP 25. True 三 阅读程序题 { 共 2 5 分 } 26. (6 分 ) 8 5 27. (6 分 ) 30 28. (6 分 ) 4.C 9. B 14. B 5.D 10. C 15.D 11 13 1079
29. (7 分 A1=20 B1=10 A2=10 B2=20 四 完善程序题 { 共 1 0 分 ) 30. [ljadditem [2JList l. Lis tindex [3JListl. Text [4JListl. List(Listl. Listlndex) [5J"" 五 编写程序题 { 共 1 5 分 ) 3 1. 参考答案 z Private Sub Commandl_ClickO Text4= Val(Textl) 十 Val(Text2) - Val(Text3) If Val(Text4)<=1000Then Text5=0 Else If Val(Text4»1000 And Val(Text4)<=3000 Then Text5= (Val(Text4) -1000) 练 O. 15 Else Text5=Val(Text4) 传 0.2 End If Text6=Val(Text4) - Val(Text5) Private Sub Command2_ClickO Unload Me 1080