试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 2-2 0 1 3 学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2013 年 7 月 注意事项 一 将你的学号 姓名及分校 { 工作站 ) 名称填写在答题纸的规定栏内 考试结束后, 把试卷和答题纸放在桌上 试卷和答题纸均不得带出考场 监考人收完考卷和答题纸后才可离开考场 二 仔细读懂题目的说明, 并按题目要求答题 答案一定要写在答题纸的指定位置上, 写在试卷上的答案无效 三 用蓝 黑圆珠笔或钢笔 { 含签字笔 ) 答题, 使用铅笔答题无效 一 单项选择题 { 每小题 2 分, 共 3 0 分 } 1. 刚建立一个新的标准 E XE 工程后, 不在工具箱中出现的控件是 ( ) A. 单选按纽 B. 图片框 c. 框架 D. 通用对话框 2. 窗体文件的扩展名是 ( ) A.. vbp B.. frm c.. bas D.. frx 3. 元论何种控件, 共同具有的属性是 ( ) A. Text B. Caption C. Name D. ForeColor 1139
1. 要退出 Do---Loop 循环, 可使用的语句是 ( ) 语句 A. Exit B. Exit For C. Exit Do D. End Do 5. 有程序代码如下 : Text1. Text=" 欢迎学习 VB!" 则 T e x t 1, Text, 和 " 欢迎学习 VB!" 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 属性, 值 c. 对象, 方法, 属性 D. 属性, 对象, 值 6. 下列关于变量的说法不正确的是 ( ) A. 局部变量在声明它的过程执行完毕后就被释放了 B. 局部变量的作用域仅限于声明它的过程 巳静态局部变量是在过程中用 S t :'l t ic 语句声明的 D. 局部变量是指那些在过程中用 Dim 语句或 Static 语句声明的变量 7. 关于语句行, 下列说法正确的是 ( ) 0 A. 一行只能写 a 条语句 B. 长度不能超过 255 个字符 c. 每行的首字符必须大写 D. 一条语句可以分多行书写 8 为了使图像框中的图形自动适应图像框的大小, 则应 ( ) A. 将其 AutoSize 属性值设置为 True B. 将其 A u t o S i ze 属性值设置为 F a l s e c. 将其 S t r e t ch 属性值设置为 T r u e D. 将其 S t r e t ch 属性值设置为 F a l s e 9. 将数据项 "China" 添加到列表框 (List l) 中成为第一项, 应使用的语句是 ( ) A. List1. AddItem"China",0 C. List1. Addltem"China", B. List1. Addltem"China", 1 D. List1. Addltem"l,China " 10. 如果希望以模态方式显示窗体 Form1, 下列正确的语句是 ( ) A. Form1. Show B. Form1. Show C. Form!. Show 1 D. 以下都不正确 1 1. 不属于 V B 数据库引擎的是 ( 八. O DBC B. BDE 1140 C. Jet 引擎 D. OLE DB
12. 下列叙述不正确的是 ( ) A. 注释语句是非执行语句, 仅对程序的有关内容起注释作用, 客观存在不被解释和编译 B. 注释语句不能放在代码中的任何位置 C. 注释语句可以放在代码中的任何位置 D. 代码中加入注释语句的目的是提高程序的可读性 13. 使用 ADO 对象模型时, 使 Rec'ordset 和 Connection 对象建立连接的属性是 ( ) A. Open C. CommandType B. Execute D. ActiveConnection 14. 在代码编辑器中, 如果一条语句太长, 无法在一行内写下 ( 不包括注释 ), 要折行书写, 可以在行末使用续行字符 ( ), 表示下一行是当前行的继续 A. 一个下划字符 " 二 ' 弘一个空格加一个下划字符 " 二 ' c. 直接回车 D. 一个空格加 个连字符 (-) 15. 要发送数据, 通常使用 Winsock 控件的 ( ) A. SendData 方法 C. Accept 方法 B. Listen 方法 D. GetDate 方法 二 填空题 { 每小题 2 分, 共 2 0 分 ) 16. Visual Basic 程序开发有三种模式, 即设计模式 模式和 模式 17. 若窗体的左上角坐标为 (-250,250), 右下角坐标为 (250, 一 250), 则 X 轴的正向向, y 轴的正向向 18. 设某个程序中要用到一个二维数组, 要求数组名为 A, 类型为字符串类型, 第一维下 标从 O 到 3, 第二维下标从 1 到 2, 则相应的数组声明语句为 19. 列表框控件中最后一项的序号等于 L i s t co u n t 属性减 20. 表达式 4 十 10 Mod 4 关 2 + 2 的值是 2 1. 程序的运行结果和程序员的设想有出人时产生的错误称为 22. 一个 VB 应用程序可以包含 个 vbp 文件 23. 在 VB 中想获得帮助, 需要按的键是一一一一一 ; 要设置断点需要按 键 24. Winsock 控件主要用来编制 TCP/IP 或协议的通话程序 25. Stretch 属性设置为时, 图像框可自动改变大小以适应其中的图形 1141
三 阅读程序题 ( 共 2 5 分 ) 阅读下列程序井写出程序运行结果 26. (6 分 ) Private Sub CommandLClickO Dim X As Integer,Y As Integer X=2,Y=2 For i 二 =lto3 Next i Print X Forj=lToi Y=Y+j Next j X=X+Y 写出程序运行时单击命令按钮后, 窗体 Fo rm1 上的输出结果 27. (6 分 ) Function F(a As Integer) Dim b As Integer Static c As Integer b=b+5 c=c 十 5 F=a 十 b+c End Function Private Sub CommandLClickO Dim a As Integer a=5 For i=l To 3 1112 Print F(a)
Next i 写出程序运行时, 单击命令按钮在窗体上的输出结果 28. (3 分 Private Sub CommandLClickO Dim A(lTo7) As Integer Dim b As Integer For b=1 To 7 A(b)=b Next b Textl. Text=A(b-2) 写出程序运行时单击 Comm andl 后, 文件框 Te x tl 中的输出结果 29. (7 分 ) Sub Change(x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,y Private Sub Form_ClickO Dim a As Integer, b As Integer a=10: b=20 Change a, b Print a, b 写出程序运行时单击窗体后,Fo rml 上的输出结果 1143
四 完善程序题 ( 共 1 0 分 } 30. 列表框应用程序要求从文本框中输入课程名称, 然后按 " 添加 " 按钮, 将该课程名程添加到列表框中 ; 当选择列表框中某 - 项后, 按 " 删除 " 按钮, 则从列表框中删除该项 ; 当选择列表框中某一项后, 按 " 修改 " 按钮, 把列表框中选取的项送往文本框且 " 修改 " 按钮变为 " 修改确认 " 在文本框的内容修改好后, 按 " 修改确认 " 按钮, 再把文本框中修改后的信息送到列表框且 " 修改确认 " 按钮变为 " 修改 " 程序运行结果如图 1 所示 List l Textl ommand2 Command3 图 1 程序如下, 请补充完整 Private Sub Form_LoadO Listl. AddItem" VisualBasic 程序设计 " Listl. AddItem"SQL SERVER 数据库应用 " List!' AddItem" 信息管理系统 " Listl. AddItem"ERP 原理与应用 " Listl. AddItem" 网络实用技术基础 " Listl. AddItem" 系统开发规范与文档编写 " List1. Addltem" 信息系统测试 " 飞 1144
Private Sub CommandLClickO If Textl. Text<>""Then [lj Textl. Text F 将文本框中的内容加到列表框中 Textl. Text="" [2J MsgBox" 请在文本框中输入信息! " End If Private Sub Command2_ClickO [3J Listl. ListIndex F 删除选定的项目 EndSub Private Sub Command3_ClickO YAr?ACTTC,oeeo mllmmgauncpsa n='白[4j Then 叶一El M-二M坷咒m,dmTnkm E3.MFL J F=a obe Else Command2. Enabled= False Command3. Caption=" 修改确认 " UO'uktListl. List(Listl. Lis tindex) =Textl. Text Command1. Enabled=True Command2. Enabled= True Textl. Text="" Command3. Caption= " 修改 " End If 1145
五 编写程序题 { 共 1 5 分 } 3 1. 按下述规定, 编写一征收所得税程序 (1) 收人在 1 0 00 元以内, 不纳税 z (2) 收入超过 1000 元以上的部分, 纳税 20% (3) 当收入达到 5000 元或超过时,5000 元以上的部分, 纳税 22% 程序运行界面如图 2 所示 z 图 2 1146
试卷代号 : 2 2 3 1 座位号口 1 中央广播电视大学 2 0 1 2-20 1 3 学年度第二学期 " 开放专科 " 期未考试 Visual Basic 程序设计 试题答题纸 题号 一 二 三 四 五 总分 i 分数 I -I 1 I I ~ J 2013 年 7 月 得分 i 评卷人 L I I 1. 2. 择题 { 每小题 2 分, 共 3 0 分 ) 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 二 填空题 ( 每小题 2 分, 共 2 0 分 ) E16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 1147
得分 评卷人 三 阅读程序题 ( 共 2 5 分 ) 26. 27. 28. 29. 得分 评卷人 四 完善程序题 { 共 1 0 分 ) 30. 得分 评卷人 五 编写程序题 ( 共 1 5 分 ) 31. 1148
试卷代号 ~ 2 2 3 1 中央广播电视大学 2 0 1 2-2 0 1 3 学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计 试题答案及评分标准 ( 供参考 ) 2013 年 7 月 一 单项选择题 ( 每小题 2 分, 共 3 0 分 ) 1. D 2. B 3. C 4. C 5. B 6.A 7. D 8. C 9.A 10. C 11. B 12. C 13. D 14. B 15. A 二 填空题 ( 每小题 2 分, 共 2 0 分 ) 16. 中断执行 17. 右上 18. DimA(OTo3,lTo2) As String 19. 1 20. 8 2 1. 逻辑错误 22. 1 23. F1 F9 24. UDP 25. False 三 阅读程序题 { 共 2 5 分 } 26. (6 分 ) 23 27. (6 分 ) 15 20 25 28. (6 分 ) 6 1149
29. (7 分 ) 20 10 20 20 四 完善程序题 { 共 1 0 分 } 30. [IJList1. AddItem [2JElse [3JList1. RemoveItem [4J" 修改 " [5JList1. Text 五 编写程序题 { 共 1 5 分 } 3 1. 参考答案 z Private Sub Commandl_C1ickO Dim x As Integer,tax As Single x=val(text1. Text) If x <=1000 Then tax=o EIseIf x < = 5000 Then tax= (x 一 1000) 铃 O. 2 Else tax=(x 一 5000) 铃 0.22+4000 祷 O. 2 End If Label3. Caption= tax Private Sub Command2_C1ickO Unload Me 1150