试卷代号：2231 座位号■ 中央广播电视大学2011一2012学年度第一学期“开放专科”期末考试 Visual Basic程序设计试题 2012年1月 题 号 二 三 四 五 总 分 分数 得 分 评卷人 一、单项选择题（每小题2分，共30分） 1.如果要在文本框中键入字符时，只显示某个字符，如星号()，应设置文本框的() 属性。 A.Caption B.PasswordChar C.Text D.Locked 2.MsgBox函数的返回值的数据类型是( ) A.字符串 B.日期型 C.逻辑型 D.整型 3.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 ()属性设置就有效。 A.MaxButton B.BorderSyle C.Width D.MinButton 4.VB程序中通常不会产生错误提示的是( A.编译错误 B.实时错误 C.运行时错误 D.逻辑错误 5.要设置命令按钮的背景图形，必须设置的两个属性是()。 A.Style和Picture B.Style和Icon C.Caption和Picture D.Value和Icon 1415
试卷代号 座位号 中央广播电视大学 2 0 11 2 0 2学年度第一学期"开放专科"期末考试 Visual Basic 程序设 2012 年1 得分|评卷人 -、单项选择题(每小题 3 0 1.如果要在文本框中键入字符时，只显示某个字符，如星号(祷)，应设置文本框的( ) 属性。 A. Caption C. Text B. PasswordChar D. Locked 2. MsgBox 数据 )。 A. 串B. C. 逻辑 型D.整型 3. 体在 运 行 改 变 大 小 大 化 小 化 按 钮 ( )属性设置就有效。 A. MaxButton C. Width B. BorderSyle D. t t 4. VB 产生 )。 A. 误B. c.运行时错误 .逻辑错误 5. 按钮 须设 性是 )。 A. Style 和Picture C. Caption 和Picture B. Style 和Icon D. Value 和Icon 1415
6.下列关于变量的说法不正确的是()。 A.局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B.局部变量在声明它的过程执行完毕后就被释放了 C.静态局部变量是在过程中用Static语句声明的 D.局部变量的作用域仅限于声明它的过程 7.如下数组声明语句，正确的是()。 A.Dim a[3,4]As Integer B.Dim a(3,4)As Integer C.Dim a(n,n)As Integer D.Dim a(3 4)As Integer 8.若使图像框Image控件自动适应其中的图形大小，应()。 A.将控件的AutoSize属性设为True B.将控件的AutoSize属性设为False C.将控件的Stretche属性设为True D.将控件的Stretche属性设为False 9.执行Forml.Scale(-14,14)一(14，-14)语句后，Forml窗体坐标系x轴和y轴的 正方向是()。 A.向左和向下 B.向右和向上 C.向左和向上 D.向右和向下 l0.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需 要设置的属性是( )。 A.Interval=0 Enabled=False B.Interval=0 Visible=False C.Interval=0 Enabled=False D.Enabled=False Visible=False ll.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是()。 A.Execute B.CommandType C.Open D.ActiveConnection l2.要发送数据，通称使用Winsock控件的( ）。 A.Accept方法 B.Listen方法 C.SendData方法 D.GetDate方法 13.用来从数据库表中删除记录的SQL命令是( A.DELETE B.SELECT C.UPDATE D.WHERE 1416
6. 不正 )。 A.局部变量是指那些在过程中用 m语句或 c语句声明的变量 B. 局部变量在声 过程执 后 就 释放 C. 局部 量是在过 用Static D.局部变量的作用域仅限于声明宫的过程 7. 正确 )。 A. Dim a[3 ,4J As Integer C. Dim a(n,n) As Integer B. Dim a(3 ,4) As Integer D. Dim a(3 4) As Integer 8. 控件 的 图 )。 A. 将控 的AutoSize 为True B. 性设 C. 的Stretche 为True D. 的Stretche 为False 9. 执行 or 1. Scale (-14 , 14) (14 一14) ，Form1 系x 轴 和y 正方向是( )。 A.向左和向下 .向右和向上 C. D. 10. Timer 可用 于后 在Timer 发Timer 要设置的属性是( )。 A. Interval = 或Enabled= False C. Interval = 且Enabled=False B. Interval=O 或Visible= False D. Enabled= False 且Visible= False 1. 用ADO 数据模 立Recordset和Connection 性是 )。 A. Execute C. Open 12. 用Winsock控件 A. Accept C. SendData B. CommandType D. ActiveConnection B. Listen D. GetDate 方法 13. 据库 除记 的SQL )。 A. DELETE B. SELECT C. UPDATE D. WHERE 1416
14.不属于VB数据库引擎的是( )。 A.ODBC B.BDE C.Jet引擎 D.OLE DB 15.如果创建了命令按钮数组控件，那么Click事件的参数是()。 A.Tag B.Caption C.Index D.没有参数 得 分 评卷人 二、填空题（每小题2分，共20分）】 16.在VB中想获得帮助，需要按的键是 ;要设置断点需要按 键。 17.Winsock控件主要用来编制基于 或 协议的网络应用程序。 18.定时器(Timer)控件可识别的事件是 ,发生该事件的时间间隔由定时 器的 属性设置。 19.在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。 20.假设ADOcn为-个Connection对象，那么在VB程序中声明并创建ADOcn的语句 是 21.一个VB应用程序可以包含 个vbp文件。 22.列表框控件中最后一项的序号等于ListCount属性减 23.全局变量是指那些在 中有效的变量，一般在模块代码编辑器 的顶部使用 声明。 24.Dim i As Integer,则运行时变量i的初始值是 25.VB中参数传递的方式有两种，一种是 参数，另一种是 参数。 1417
14. 于VB )。 A. ODBC B. BDE C. Jet D. OLE DB 15. 按钮数组控件 么Click )。 A‘Tag B. Caption C. Index D. 没有参 得分市石 二、填空题{每小题 16. 想获得帮 助 17. Winsock 控件 编制 18. 器(Timer) 控件 件是 器的一一一属性设置。 19. 控 件 属性指定。 20. 一个 e c 对象 需要按 或协议的网络应用程序。 ，发生该事件的时间间隔由定时 属性均相同，数组中的每个元素由 1. 应用程序 个vbp 文件 22. 最后一项 序号等 un 性减 23. 有效 变 量 在 模 编辑 的顶部使用声明。 24. Dim i As Integer, JJltl 时变 初始值是 25. VB 数 传 递 参数。 参数，另一种是 1"417
得分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果。 26.(6分) Private Sub Form_Click() Dim I As Integer,j As Integer Dim c As Integer c=1 For I=1 To 3 For j=1 To 2 c=c+3 Next j Next I Print c End Sub 文件框Textl的输出结果是： 27.(6分) Private Sub Command1_Click() Dim s As Double Dim i As Integer s=5 i=1 Do While i<9 i=i+2 s=s+i LooP Textl.Text =s End Sub 写出程序运行时，单击命令按钮文本框Textl中的输出结果。 1418
得分|评卷人 三、阅读程序题{共 5分} 阅读下列程序并写出程序运行结果。 26. (6 Private Sub Form_ClickO Dim I As Integer. j As Integer Dim c As Integer c = 1 For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub 文件框 !的输出结果是: 27. (6 Private Sub CommandLClickO Dim s As Double Dim i As Integer s = 5 i = 1 Do While i < 9 i=i+2 s = s Loop Textl. Text = s End Sub 写出程序运行时，单击命令按钮文本框 l中的输出结果。 1418
28.(6分) Function F(a As Integer) b=2 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 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(By Val x As Integer,ByVal y As Integer) t=x:x=y:y t End Sub 1419
28. (6 Function F(a As Integer) b = 2 Static c b=b 十1 c = F=a 十b + c End Function Private Sub Commandl_ClickO Dim a As Integer a=2 For j = 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 29. (7 Private Sub Commandl_ClickO Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a , b Print "A1="; a , "Bl="; b a = 10: b = 20 Change2 a , b Print "A2="; a , "B2="; b End Sub Sub Changel(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = t End Sub 1419