试卷代号：2231 中央广播电视大学2013一2014学年度第一学期“开放专科"”期末考试 Visual Basic程序设计试题 2014年1月 注意事项 一、将你的学号、姓名及分校（工作站）名称填写在答题纸的规定栏内。考试 结束后，把试卷和答题纸放在桌上。试卷和答题纸均不得带出考场。监考人收完 考卷和答题纸后才可离开考场。 二、仔细读懂题目的说明，并按题目要求答题。答案一定要写在答题纸的指 定位置上，写在试卷上的答案无效。 三、用蓝、黑圆珠笔或钢笔（含签字笔）答题，使用铅笔答题无效。 一、单项选择题（每小题2分，共30分）】 1.后缀为.bas的文件表示VB的()。 A,窗体文件 B.类模块文件 C.工程文件 D.标准类模块文件 2.当一个工程中含有多个窗体时，其中的启动窗体是()。 A.启动VB时创建的第一个窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体 3.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列( )属 性设置就有效。 A.MaxButton B.BorderSyle C.Width D.MinButton 1069
试卷代号 2 3 中央广播电视大学 4学年度第一学期"开放专科"期末考试 Visual Basic 序 设 2014 注意事项 一、将你的学号、姓名及分校{工作站}名称填写在答题纸的规定栏内。考试 结束后，把试卷和答题纸放在桌上。试卷和答题纸均不得带出考场。监考人收完 考卷和答题纸后才可离开考场。 二、仔细读懂题目的说明，并按题目要求答题。答案-定要写在答题纸的指 定位置上，骂在试卷上的答案无效。 三、用蓝、黑圆珠笔或钢笔{含签字笔}答题，使用铅笔答题无效。 -、单项选择题{每小题 1.后缀为. bas 示VB )。 A. 件B. 模块文件 c. 程文件 标准类模块文件 2. 的启 )。 A. 动VB 时创 第一 B. 个添 c. D. 3. 运行 改变 大小 最小化按钮 对下列 )属 性设置就有效。 A. MaxButton c. Width B. BorderSyle D. 如1inButton 1069
4.有程序代码如下： Text1.Text="Visual Basic" 则Textl,Text,和"Visual Basic"分别代表(，)。 A.对象，值，属性 B.对象，方法，属性 C.对象，属性，值 D.属性，对象，值 5.要设置命令按钮的背景图形，必须设置的两个属性是()。 A.Value和Icon B.Style和Icon C.Caption和Picture D.Style和Picture 6.在VB中，下列合法的变量名是( )。 A.4ab B.a-b C.a_4 D.integer 7.如下数组声明语句，正确的是()。 A.Dim a[3,4]As Integer B.Dim a(34)As Integer C.Dim a(n,n)As Integer D.Dim a(3,4)As Integer 8.要在窗体Form1内显示“欢迎您！”，使用的语句是()。 A.Form.caption="欢迎您！" B.Forml..caption="欢迎您！" C.Forml.print'"欢迎您！" D.Form,print""欢迎您！" 9.执行Form1.Scale(-14,14)-(14,-14)语句后，Form1窗体坐标系x轴和y轴的正方向 是()。 A.向左和向下 B.向右和向上 C.向左和向上 D.向右和向下 ,10.如果希望以模态方式显示窗体Form1,下列正确的语句是()。 A.Form1.Show 0 B.Forml.Show C.Form1.Show 1 D.以下都不正确 11.表达式8+13Mod24+3( )。 A.8 B.16 C.10 D.12 1070
4. 代码 Text!' Text= "Visual Basic" tl Ba 代表 )。 A. 对象 性B. C. 专D. 对象 5. 设置 令按 )。 A. Value 和Icon C. Caption 和Picture 6. 在VB 下列合 A. 4ab C. 7. 组声 A. Dim ，4J As Integer B. Dim a(34) As Integer C. Dim a(n,n) As Integer D. Dim a(3 的As Integer 〉。 B. Style 和Icon D. Style 和Picture B. a-b D. 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. 式8+13 Mod 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 l5,使用ADO数据模型时，建立Recordset和Connection对象连接的属性是()。 A.Execute B.CommandType C.Open D.ActiveConnection 二、填空题（每小题2分，共20分）】 l6.欲设置定时器的时间间隔为2秒，则属性Interval的值为 17.某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从一1到 2,第二维下标从一2到2，则相应数组声明语句为 18.在VB中想获得帮助，需要按的键是 19.在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性 指定。 20.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定， 可使用 循环。 21.一个VB应用程序可以包含 个vbp文件。 22.VB中参数传递的方式有两种，一种是 参数，另一种是 参数。 23.全局变量是指那些在整个应用程序中有效的变量，一般在模块代码编辑器的顶部使 用 声明 24.Winsock控件主要用来编制基于 或 协议的网络应用程序。 25.通常可以将文本框控件的Locked属性设置为 ,以禁止键盘输人。 三、阅读程序题（共25分）》 阅读下列程序并写出程序运行结果 26.(6分) Private Sub Form_Click() 1071
12. VB 通常 产生错误提示 )。 A.编译错误 .实时错误 C. 误D.逻辑错 13. 钮数组 令按 的Click 数是 )。 A. Index B. Caption C. Tag D. 没有 14. 数据库 )。 A. ODBC B. BDE C. Jet 擎D.OLE DB 15. nnec A. Execute C. Open B. CommandType D. ActiveConnection 属性 协议的网络应用程序。 ，以禁止键盘输入。 二、填空题{每小题2分，共 0分} 16. 置定 间 间 为2 则属 17. 个程 用到 二维数组 要求 为A 一1 维下标从一2 到2 应数 句 为 18. 要按 19. 在控件 所有 一一 个元 指定。 20. ua Basic 有三种形式 结构 可使用一一一-循环。 1. 序可 vb 22. VB 数传 方式 一种 23. 变量是指那些在整个应 块代码 顶 部 声明 24. Winsock 一一 25. 常可 将文本框控 的Locked 性设 三、阅读程序题{共 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+1 End If Next j Print c,k End Sub 写出程序运行时单击窗体后，c,k的值分别是： 27.(6分) Private Sub Commandl_Click() Dim s As Double Dim i As Integer s=6 i=1m. Do While i<9 i=i+2 s=s十i Loop Textl,Text=s End Sub 文件框Textl的输出结果是 28.(6分) Function F(a As Integer) Dim b As Integer Static c As Integer 1072
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 End Sub 写出程序运行时单击窗体后， c， k的值分别是 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 End Sub 文件框 t! 结果是 28. (6 Function F(a As Integer) Dim b As Integer Static c As Integer 1072
b=b+2 c=c+2 F=a十b十c End Function Private Sub Command1_Click() Dim a As Integer a=5 For i=1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 29.(7分) Private Sub Command1_Click() Dim a As Integer:Dim b As Integer a=10:b=20 Changel a,b Print"Al=";a,"B1=";b a=10:b=20 Change2 a,b Print"A2=";a,"B2=";b End Sub Sub Changel(x As Integer,y As Integer) t=x:x=y:y=t End Sub Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t End Sub 写出程序运行时，单击窗体Forml上的输出结果。 1073
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 End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 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 End Sub Sub Change1 (x As Integer,y As Integer) t=x:x=y:y=t End Sub Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t End Sub 写出程序运行时，单击窗体 1上的输出结果。 1073