4. 有程序代码如下 : Text!' Text= "Visual Basic" 则 Te xtl ~ Te xt, 和 " V i s ua l Basi c " 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要

Size: px

Start display at page:

Download "4. 有程序代码如下 : Text!' Text= "Visual Basic" 则 Te xtl ~ Te xt, 和 " V i s ua l Basi c " 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要"

验瞻狂
5 years ago
Views:

1 试卷代号 : 中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2014 年 1 月注意事项一将你的学号姓名及分校 { 工作站 } 名称填写在答题纸的规定栏内考试结束后, 把试卷和答题纸放在桌上试卷和答题纸均不得带出考场监考人收完考卷和答题纸后才可离开考场二仔细读懂题目的说明, 并按题目要求答题答案 - 定要写在答题纸的指定位置上, 骂在试卷上的答案无效三用蓝黑圆珠笔或钢笔 { 含签字笔 } 答题, 使用铅笔答题无效 - 单项选择题{ 每小题 2 分, 共 3 0 分 } 1. 后缀为. bas 的文件表示 VB 的 ( ) A. 窗体文件 B. 类模块文件 c. 工程文件 D. 标准类模块文件 2. 当一个工程中含有多个窗体时, 其中的启动窗体是 ( ) A. 启动 VB 时创建的第一个窗体 B. 第一个添加的窗体 c. 最后一个添加的窗体 D. 在 " 工程属性 " 对话框中指定的窗体 3. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮, 只要对下列 ( ) 属性设置就有效 A. MaxButton c. Width B. BorderSyle D. 如 1inButton 1069

2 4. 有程序代码如下 : Text!' Text= "Visual Basic" 则 Te xtl ~ Te xt, 和 " V i s ua l Basi c " 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 方法, 属性 C. 对象, 属性, 值专 D. 属性, 对象, 值 5. 要设置命令按钮的背景图形, 必须设置的两个属性是 ( ) A. Value 和 Icon C. Caption 和 Picture B. Style 和 Icon D. Style 和 Picture 6. 在 VB 中, 下列合法的变量名是 ( A. 4ab C. 乱 3 B. a-b D. integer 7. 如下数组声明语句, 正确的是 ( A. Dim a 口,4J As Integer B. Dim a(34) As Integer C. Dim a(n,n) As Integer D. Dim a(3, 的 As 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 表达式 8+13 Mod 2 铃 ( A. 8 C B. Form!. Show D. 以下都不正确 B. 16 D. 12

3 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 15. 使用 ADO 数据模型时, 建立 R e cor d s e t 和 Connecti on 对象连接的属性是 λ A. Execute C. Open B. CommandType D. ActiveConnection 二填空题 { 每小题 2 分, 共 20 分 } 16. 欲设置定时器的时间间隔为 2 秒, 则属性 Int erva l 的值为 17. 某个程序中要用到一个二维数组, 要求数组名为 A, 类型为整型, 第一维下标从一 1 到 2, 第二维下标从一 2 到 2, 则相应数组声明语句为 18. 在 VB 中想获得帮助, 需要按的键是 19. 在控件数组中, 所有元素的一一一一 - 属性均相同, 数组中的每个元素由属性指定 20. 在 Vi s ua l Basic 语言中有三种形式的循环结构其中, 若循环的次数可以适先确定, 可使用一一一 - 循环 2 1. 一个 VB 应用程序可以包含一一一个 vbp 文件 22. VB 中参数传递的方式有两种, 一种是一一一参数, 另一种是一一一一参数 23. 全局变量是指那些在整个应用程序中有效的变量, 一般在模块代码编辑器的顶部使用声明 24. Winsock 控件主要用来编制基于一一一一一或 25. 通常可以将文本框控件的 Locked 属性设置为协议的网络应用程序, 以禁止键盘输入三阅读程序题 { 共 2 5 分 } 阅读下列程序并写出程序运行结果 26. (6 分 ) Private Sub Form_ClickO 1071

4 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 写出程序运行时单击窗体后, c, k 的值分别是 z 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 文件框 Te x t! 的输出结果是 28. (6 分 Function F(a As Integer) Dim b As Integer 1072 Static c As Integer

5 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 写出程序运行时, 单击命令按钮在窗体上的输出结果 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 Sub Change1 (x As Integer,y As Integer) t=x:x=y:y=t Sub Change2(ByVal x As Integer,ByVal y As Integer) t=x:x=y:y=t 写出程序运行时, 单击窗体 Form1 上的输出结果 1073

6 四完善程序题 ( 共 1 0 分 ) 30. 程序运行界面如图 l 所示要求从文本框中输入课程名称, 然后按 " 添加 " 按钮, 将其添加到列表框中 ; 当选择列表框中某一项后, 按 " 删除 " 按钮, 则从列表框中删除该项 ; 当选择列表框中某一项后, 按 " 修改 " 按钮, 把列表框中选取的项送往文本框且 " 修改 " 按钮变为 " 修改确认 " 在文本框的内容修改好后, 按 " 修改确认 " 按钮, 再把文本框中修改后的信息送到列表框且 " 修改确认 " 按钮变为 " 修改 " j 列耐用程芹白白一面 1 Textl List! Commandl Command2 Command3 图 l 程序如下, 请补充完整 Private Sub Form 一 LoadO Listl. AddItem" 计算机应用基础 " Listl. AddItem" 程序设计基础 " Listl. AddItem"VB 程序设计 " Listl. AddItem 咆 QL Server 数据库应用 " Listl. AddItem" 网站设计技术 " Listl. AddItem" 系统开发规范与文档编写 " Listl. Addltem" 信息系统测试 " Private Sub Commandl_ClickO If Textl. Text<>'''' Then 1074

7 List1. [lj Textl. Text ' 将文本框中的内容添加到列表框中 Textl. Text="" Else MsgBox" 请在文本框中输入信息! " End If Private Sub Command2_ClickO Listl. RemoveItem [2J ' 删除选定的项目 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 五编写程序题 { 共 1 5 分 } 3 1. 编写简单的工资计算程序, 要求在 Text1 Text2 Text3 中分别输人基本工资奖金 ' 扣款, 单击 " 计算 " 按钮 ( Command 1 ) 后, 首先计算 " 应发工资气 Te xt 的, 然后根据 " 应发工资 " 计算个人所得税 ( T e xt 日, 最后计算出实发工资 ( Te xt 的 (1) 应发工资 = 基本工资 + 奖金一扣款 (2) 个人所得税的计算规则假设为 : 1 当应发工资在元以内部分 ( 含元 ), 不扣所得税 1075

2 当应发工资大于 1 0 0 0, 但小于等于 3 0 00 元时, 超过 1 0 00 元的部分按 1 5 %

8 2 当应发工资大于 , 但小于等于元时, 超过元的部分按 1 5 % 计算所得税 3 当应发工资大于 , 按 2 0 % 扣税程序运行结果如图 2 所示图

9 ... 户O'int唱i'indnL1晶OLnLnL Onu试卷代号 : 座位号 E 口中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题答题纸题号一二三四五总分分数 I I I I I I I 2014 年 1 月得分评卷人题 ( 每小题 2 分, 共 3 0 分 } I I I 得分评卷人二填空题 ( 每小题 2 分, 共 2 0 分 } Qd$A9IHqu4&nFOL1077

10 得分评卷人三阅读程序题 { 共 2 5 分 ) 得分评卷人 I I I 四完罄程序题 ( 共 1 0 分 } 30. 得分评卷人 I I I 五编写程序题 ( 共 1 5 分 }

11 试卷代号 : 中央广播电视大学学年度第 - 学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题答案及评分标准 ( 供参考 ) 2014 年 1 月一单项选择题 { 每小题 2 分, 共 3 0 分 } 1. D 2. D 3.B 6. C 7. D 8. C 11. B 12. D 13..A 二填空题 { 每小题 2 分, 共 2 0 分 } Dim A(-lTo2, 一 2To2)As Integer 18. F1 19. Name Index 20. For Next 引用参数传递 ( 或按址传递按值传递 23. Public 24. TCPlIP UDP 25. True 三阅读程序题 { 共 2 5 分 } 26. (6 分 ) (6 分 ) (6 分 ) 4.C 9. B 14. B 5.D 10. C 15.D

12 29. (7 分 A1=20 B1=10 A2=10 B2=20 四完善程序题 { 共 1 0 分 ) 30. [ljadditem [2JList l. Lis tindex [3JListl. Text [4JListl. List(Listl. Listlndex) [5J"" 五编写程序题 { 共 1 5 分 ) 3 1. 参考答案 z Private Sub Commandl_ClickO Text4= Val(Textl) 十 Val(Text2) - Val(Text3) If Val(Text4)<=1000Then Text5=0 Else If Val(Text4»1000 And Val(Text4)<=3000 Then Text5= (Val(Text4) -1000) 练 O. 15 Else Text5=Val(Text4) 传 0.2 End If Text6=Val(Text4) - Val(Text5) Private Sub Command2_ClickO Unload Me 1080

1. 要退出 Do---Loop 循环, 可使用的语句是 ( ) 语句 A. Exit B. Exit For C. Exit Do D. End Do 5. 有程序代码如下 : Text1. Text=" 欢迎学习 VB!" 则 T e x t 1, Text, 和 " 欢迎学习 VB!" 分别代

1. 要退出 Do---Loop 循环, 可使用的语句是 ( ) 语句 A. Exit B. Exit For C. Exit Do D. End Do 5. 有程序代码如下 : Text1. Text= 欢迎学习 VB! 则 T e x t 1, Text, 和欢迎学习 VB! 分别代试卷代号 : 2 2 3 1 中央广播电视大学 2 0 1 2-2 0 1 3 学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2013 年 7 月注意事项一将你的学号姓名及分校 { 工作站 ) 名称填写在答题纸的规定栏内考试结束后, 把试卷和答题纸放在桌上试卷和答题纸均不得带出考场监考人收完考卷和答题纸后才可离开考场二仔细读懂题目的说明, 并按题目要求答题