试卷代号：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
四、完善程序题（共10分】 30.程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其 添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列 表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确 认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框 且“修改确认”按钮变为“修改”。 。列表框应用程序 日回☒ 程序设计基础 B程序设计 Textl SQLServer数据库应用 网站设计技术 系统开发 与文档编写 添加 Commandl Listl 信息系统试 信息系统开发案例分折与 网络实用技 纸 Command2 Delphi程序设讦基础 眦除 修改 Command3 图1 程序如下，请补充完整。 Private Sub Form._Load() List1.AddItem"计算机应用基础" Listl.AddItem"程序设计基础" Listl.AddItem"VB程序设计" Listl.AddItem"SQL Server数据库应用" Listl.AddItem"网站设计技术" Listl.AddItem"系统开发规范与文档编写" Listl,AddItem"信息系统测试" End Sub Private Sub Command1_Click() If Text1.Text<>""Then 1074
四、完善程序题(共 30. 运行界面 图l 所示 要求 文本 入课程 添加到列表框中;当选择列表框中某一项后，按"删除"按钮，则从列表框中删除该项;当选择列 表框中某一项后，按"修改"按钮，把列表框中选取的项送往文本框且"修改"按钮变为"修改确 认"。在文本框的内容修改好后，按"修改确认"按钮，再把文本框中修改后的信息送到列表框 且"修改确认"按钮变为"修改"。 List! 程序如下，请补充完整。 Private Sub Form一LoadO Listl. AddItem" 机应 Listl. AddItem" 设计基 Listl. AddItem"VB Listl. AddItem咆QL Server 库应 Listl. AddItem" Listl. AddItem" 编写 Listl. Addltem" End Sub Private Sub Commandl_ClickO If Textl. Text<> '''' Then 1074 Textl Commandl Command2 Command3
List1.[1]Textl.Text '将文本框中的内容添加到列表框中 Textl.Text="" Else MsgBox"请在文本框中输人信息！" End If End Sub Private Sub Command2_Click() List1.RemoveItem [2] '删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption="修改"Then Text1.Text=[3] Text1.SetFocus Command1.Enabled=False Command2.Enabled=False Command3.Caption="修改确认” Else [4] =Text1.Text Commandl.Enabled=True Command2.Enabled=True Text1.Text=[5] Command3.Caption="修改" End If End Sub 五、编写程序题（共15分）】 3l.编写简单的工资计算程序，要求在Textl、Text2、Text3中分别输人基本工资、奖金、 扣款，单击“计算”按钮(Commandl)后，首先计算“应发工资”(Text4),然后根据“应发工资”计 算个人所得税(Text5),最后计算出实发工资(Text6)。 (1)应发工资=基本工资十奖金一扣款 (2)个人所得税的计算规则假设为： ①当应发工资在1000元以内部分（含1000元），不扣所得税。 1075
List1. [lJ Textl. Text '将文本框中的内容添加到列表框中 Textl. Text="" Else MsgBox" 本框 入信 End If End Sub Private Sub Command2_ClickO Listl. RemoveItem [2J '删除选定的项目 End Sub Private Sub CommandLClickO If Command3. Caption=" 改"Then Textl. Text= [3J Textl. SetFocus Command!. Enabled=False Command2. Enabled=False Command3. Caption=" 改确 Else [4J =Textl. Text Command!. Enabled= True Command2. Enabled= True Text!. Text= [5J Command3. Caption="修改 End If End Sub 五、编写程序题{共 5分} 1. 写简 要求在Text1 、Text2 、Text3 基本工 奖金 '扣款，单击"计算"按钮 nd )后，首先计算"应发工资气 t的，然后根据"应发工资"计 算个人所得税 t日，最后计算出实发工资 t的。 (1)应发工资=基本工资+奖金一扣款 (2) 个人所得税 算规 ①当应发工资在 0 0 0元以内部分(含 0 0 0元) ，不扣所得税。 1075
②当应发工资大于1000，但小于等于3000元时，超过1000元的部分按15%计算所得税。 ③当应发工资大于3000，按20%扣税。 程序运行结果如图2所示。 喻工资计算 基本工资 1000 奖金 200 扣款： 100 应发红资 1100 个人所得税 退出 实发工资 1085 图2 1076
②当应发工资大于 0 0 0，但小于等于 0 0 0元时，超过 0 0 0元的部分按 所得 ③当应发工资大于 0 0 0，按 %扣税。 程序运行结果如图 2所示。 1076
试卷代号：2231 座位■ 中央广播电视大学2013一2014学年度第一学期“开放专科”期末考试 Visual Basic程序设计i 试题答题纸 2014年1月 题 号 二 三 四 五 总 分 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 得 分 评卷人 二、填空题（每小题2分，共20分） 16. 1 18. 9 20. 21. 2 23. 245 1077
试卷代号 2 2 1座位号 中央广播电视大学 2 0 4学年度第一学期"开放专科"期末考试 Visual Basic 程序设 题答 2014 年1 |题号|一|二|三|四|五|总分| |分数 I I I I I I |得分|评卷人| 题(每小题 2分，共 0分} I I I 1. 6. 11. 2. 7. 12. 3. 8. 13. 4. 9. 14. 5. 10. 15. 得分|评卷人 二、填空题(每小题 2分，共 0分} .......... 1077
得分 评卷人 三、阅读程序题（共25分） 26. 27. 28. 29. 得分 评卷人 四、完善程序题（共10分） 30. 得分 评卷人 五、编写程序题（共15分） 31. 1078
得分|评卷人 26. 27. 28. 29. |得分|评卷人| I I I 30. |得分|评卷人| I I I 31. 1078 三、阅读程序题{共 四、完罄程序题(共 五、编写程序题(共
