试卷代号：2231 中央广播电视大学2012一2013学年度第二学期“开放专科”期末考试 Visual Basic程序设计 试题 2013年7月 注意事项 一、将你的学号、姓名及分校（工作站）名称填写在答题纸的规定栏内。考试 结束后，把试卷和答题纸放在桌上。试卷和答题纸均不得带出考场。监考人收完 考卷和答题纸后才可离开考场。 二、仔细读懂题目的说明，并按题目要求答题。答案一定要写在答题纸的指 定位置上，写在试卷上的答案无效。 三、用蓝、黑圆珠笔或钢笔（含签字笔）答题，使用铅笔答题无效。 一、单项选择题（每小题2分，共30分） 1.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是( )。 A.单选按纽 B.图片框 C.框架 D.通用对话框 2.窗体文件的扩展名是()。 A..vbp B..frm C..bas D..frx 3.无论何种控件，共同具有的属性是( )。 A.Text B.Caption C.Name D.ForeColor 1139
试卷代号 2 2 中央广播电视大学 3学年度第二学期"开放专科"期末考试 Visual Basic 设计 试题 2013 年7 注意事项 一、将你的学号、姓名及分校{工作站)名称填写在答题纸的规定栏内。考试 结束后，把试卷和答题纸放在桌上。试卷和答题纸均不得带出考场。监考人收完 考卷和答题纸后才可离开考场。 二、仔细读懂题目的说明，并按题目要求答题。答案一定要写在答题纸的指 定位置上，写在试卷上的答案无效。 三、用蓝、黑圆珠笔或钢笔{含签字笔)答题，使用铅笔答题无效。 一、单项选择题{每小题 1.刚建立一个新的标准 E工程后，不在工具箱中出现的控件是( )。 A. B. c.框架 D. 话框 2. 扩展 )。 A. . vbp B. . frm c. . bas D. . frx 3. 论何 控件 性是 )。 A. Text B. Caption C. Name D. ForeColor 1139
4.要退出Do…Loop循环，可使用的语句是( )语句。 A.Exit B.Exit For C.Exit Do D.End Do 5.有程序代码如下： Textl.Text="欢迎学习VB!" 则Text1,Text,和"欢迎学习VB!"分别代表()。 A.对象，值，属性 B.对象，属性，值 C.对象，方法，属性 D.属性，对象，值 6.下列关于变量的说法不正确的是()。 A.局部变量在声明它的过程执行完毕后就被释放了 B.局部变量的作用域仅限于声明它的过程 C,静态局部变量是在过程中用Static语句声明的 D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量 7.关于语句行，下列说法正确的是()。 A.一行只能写一条语句 B.长度不能超过255个字符 C.每行的首字符必须大写 D.一条语句可以分多行书写 8.为了使图像框中的图形自动适应图像框的大小，则应()。 A.将其AutoSize属性值设置为True E.将其AutoSize属性值设置为False C.将其Stretch属性值设置为True D.将其Stretch属性值设置为False 9.将数据项“China”添加到列表框(Listl)中成为第一项，应使用的语句是()。 A.List1.AddItem"China",0 B.List1.AddItem"China",1 C.List1.AddItem"China", D.List1.AddItem"1,China" 10.如果希望以模态方式显示窗体Forml,下列正确的语句是()。 A.Forml.Show B.Form1.Show 0 C.Form1.Show 1 D.以下都不正确 11.不属于VB数据库引擎的是()。 A.ODBC B.BDE C.Jet引擎 D).OLE DB 1140
1. 要退 出Do---Loop 使用 )语句。 A. Exit B. Exit For C. Exit Do D. End Do 5. 程序 如下 Text1. Text=" 习VB!" 1， Text 欢迎学 习VB!" 代表 )。 A. B. c.对象，方法，属性 .属性，对象，值 6. 关于变量 )。 A. 部变 在声 过程 完毕 就被释 B. 部变量 域仅 限于 巳静态局部变量是在过程中用 :'l c语句声明的 D. 量是 在过程 用Dim 或Static 7. 正确 ) 0 A. B. 长度 过255 c.每行的首字符必须大写D.一条语句可以分多行书写 像框 的 图 动适 则应 )。 A. 其AutoSize 性值 为True B.将其 e属性值设置为 c.将其 h属性值设置为 D.将其 h属性值设置为 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 C. Form!. Show 1 1. 据库 C. Jet 1140 B. Form1. Show ° D. 都不正 B. BDE D. OLE DB
12.下列叙述不正确的是()。 A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B.注释语句不能放在代码中的任何位置 C.注释语句可以放在代码中的任何位置 D.代码中加入注释语句的目的是提高程序的可读性 l3.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是( A.Open B.Execute C.CommandType D.ActiveConnection 14.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写， 可以在行末使用续行字符()，表示下一行是当前行的继续。 A.一个下划字符“” B.一个空格加一个下划字符“_” C.直接回车 D.一个空格加个连字符(-) 15.要发送数据，通常使用Winsock控件的( )。 A.SendData方法 B.Listen方法 C.Accept方法 D.GetDate方法 二、填空题（每小题2分，共20分） 16.Visual Basic程序开发有三种模式，即设计模式 模式和 模式。 17.若窗体的左上角坐标为（一250,250），右下角坐标为(250，-250)，则X轴的正向向 ,Y轴的正向向 18.设某个程序中要用到一个二维数组，要求数组名为A,类型为字符串类型，第一维下 标从0到3，第二维下标从1到2，则相应的数组声明语句为 19.列表框控件中最后一项的序号等于Listcount属性减 20.表达式4+10Mod4*2+2的值是 21.程序的运行结果和程序员的设想有出人时产生的错误称为 22.一个VB应用程序可以包含 个bp文件。 23.在VB中想获得帮助，需要按的键是 ;要设置断点需要按 键。 24.Winsock控件主要用来编制TCP/IP或 协议的通话程序。 25.Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。 1141
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分，共 0分) 16. Visual Basic 序开发 三种 设计模 17. 左上 为(-250 ，250) 为(250 一250) ，则 X轴的正向向 y轴的正向向 18. 某个 二维数组 要求 为A 字符 第一维 标从 O到 3，第二维下标从1到 2，则相应的数组声明语句为 19. 控件 最后 序号等 ou n 性减 20. 达式 十10 Mod 1. 产生 22. 个VB 用程序 包含 个vbp 文件 23. 想获 需要 点需 24. Winsock 制TCP/IP 话程 25. Stretch 像框 变大小 应其 的 图 1141
三、阅读程序题（共25分）】 阅读下列程序并写出程序运行结果 26.(6分) Private Sub Command1_Click() Dim X As Integer,Y As Integer X=2:Y=2 For i=1To3 For j=1To i Y=Y+j Next j X=X+Y Next i Print X End Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。 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 Command1_Click() Dim a As Integer a=5 For i=1 To 3 Print F(a) 1142
三、阅读程序题(共 2 5 阅读下列程序井写出程序运行结果 26. (6 Private Sub CommandLClickO Dim X As Integer ,Y As Integer X=2 ,Y=2 For 二=lTo3 Forj=lToi Y=Y+j Next j X=X+Y Next i Print X End Sub 写出程序运行时单击命令按钮后，窗体 1上的输出结果。 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 Print F(a) 1112
Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 28.(3分) Private Sub Command1_Click() Dim A(1To7)As Integer Dim b As Integer For b=1 To 7 A(b)=b Next b Text1.Text=A(b-2) End Sub 写出程序运行时单击Command1后，文件框Textl中的输出结果。 29.(7分) Sub Change(x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,y End Sub Private Sub Form_Click() Dim a As Integer,b As Integer a=10:b=20 Change a,b Print a,b End Sub 写出程序运行时单击窗体后，Forml上的输出结果。 1143
Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 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) End Sub 写出程序运行时单击 l后，文件框 l中的输出结果。 29. (7 Sub Change(x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x ,y End Sub Private Sub Form_ClickO Dim a As Integer, b As Integer a=10: b=20 Change a , b Print a , b End Sub 写出程序运行时单击窗体后， l上的输出结果。 1143
四、完善程序题（共10分）】 30.列表框应用程序 要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选 择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按 “修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内 容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变 为“修改”。程序运行结果如图1所示。 .Formi Visua1 Basic程序设f SQL SERVER数据库应用 计算机专业英语 Textl 信息管理系统 Listl RP原理与应用 网实鬼技基础 系统开发规范与文挡编写 添加 Commandl 信息系统侧试 计算机应用基础 除 Command2 改 Command3 图1 程序如下，请补充完整。 Private Sub Form_Load() Listl.AddItem"VisualBasic程序设计" Listl.AddItem"SQL SERVER数据库应用" List1,.AddItem"信息管理系统" List1l.AddItem"ERP原理与应用" List1.AddItem"网络实用技术基础" List1.AddItem"系统开发规范与文档编写" Listl.AddItem"信息系统测试" End Sub 1144
四、完善程序题(共 0分} 30. 表框 要求从文本框中输入课程名称，然后按"添加"按钮，将该课程名程添加到列表框中;当选 择列表框中某-项后，按"删除"按钮，则从列表框中删除该项;当选择列表框中某一项后，按 "修改"按钮，把列表框中选取的项送往文本框且"修改"按钮变为"修改确认"。在文本框的内 容修改好后，按"修改确认"按钮，再把文本框中修改后的信息送到列表框且"修改确认"按钮变 为"修改"。程序运行结果如图 1所示。 List l 程序如下，请补充完整。 Private Sub Form_LoadO Listl. AddItem" VisualBasic Listl. AddItem"SQL SERVER List!' AddItem" Listl. AddItem"ERP Listl. AddItem" 络实用技术 Listl. AddItem" 开发 编写 List1. Addltem" End Sub 1144 Textl ommand2 Command3
Private Sub Command1_Click() If Text1.Text<>""Then [1]Text1.Text '将文本框中的内容加到列表框中 Textl.Text="" [2] MsgBox"请在文本框中输人信息！" End If End Sub Private Sub Command2_Click() [3]List1.ListIndex '删除选定的项目 EndSub Private Sub Command3_Click() If Command3.Caption=[4] Then Text1.Text=[5] Text1.SetFocus Commandl.Enabled=False Command2.Enabled=False Command3.Caption="修改确认" Else List1.List(List1.ListIndex)=Textl.Text Command1.Enabled=True Command2.Enabled=True Textl.Text="" Command3.Caption="修改" End If End Sub 1145
Private Sub CommandLClickO If Textl. Text<>""Then [lJ Textl. Text 本框 容加到列 Textl. Text="" [2J MsgBox" 在文本框 " End If End Sub Private Sub Command2_ClickO [3J EndSub Private Sub Command3_ClickO Listl. ListIndex 删除选定 Fa obe YAr?ACTTC oeeo mLLm mTnkm 3.MFL aun psaO'uk[4J Then Command2. Enabled= False Command3. Caption="修改确认" Else Listl. List(Listl. ListIndex) =Textl. Text Command1. Enabled=True Command2. Enabled= True Textl. Text="" Command3. Caption = "修改" End If End Sub 1145
五、编写程序题（共15分） 31.按下述规定，编写一征收所得税程序。 (1)收人在1000元以内，不纳税： (2)收人超过1000元以上的部分，纳税20% (3)当收人达到5000元或超过时，5000元以上的部分，纳税22%。 程序运行界面如图2所示： 6000 收入 纳税额 1020 计算 退出 图2 1146
五、编写程序题{共 1. 按下 规定 征收所得 (1)收人在 0元以内，不纳税 (2) 入超过1000 税20% (3) 到5000 超过 ，5000 税22% 程序运行界面如图 2所示 1146
试卷代号：2231 座位口 中央广播电视大学2012一2013学年度第二学期“开放专科”期末考试 Visual Basic程序设计 试题答题纸 2013年7月 题 号 二 三 四 五 总 双 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 得分 评卷人 二、填空题（每小题2分，共20分） 16. 17. 18. 19. 20. 21. 22. 2 24. 25. 1147
试卷代号 2 2 座位号口 中央广播电视大学 3学年度第二学期"开放专科"期未考试 Visual Basic 试题答题纸 2013 年7 |题号|一|二|三|四|五|总分| 分 数 -I· 1 I I ~__ J |得分 i评卷人| 择题{每小题 2分，共 0分) L I I 二、填空题(每小题 2分，共 0分) 1. 2. 6. 7. 11. 12. E 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 3. 8. 13. 4. 9. 14. 5. 10. 15. 1147
得分 评卷人 三、阅读程序题（共25分） 26. 27. 28. 29. 得分 评卷人 四、完善程序题（共10分） 30. 得 分 评卷人 五、编写程序题（共15分） 31. 1148
得分|评卷人 26. 27. 28. 29. 得分|评卷人 30. 得分|评卷人 31. 1148 三、阅读程序题(共 四、完善程序题{共 五、编写程序题(共