试卷代号：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