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!" 分别代

Size: px

Start display at page:

Download "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!" 分别代"

魂钵毛
7 years ago
Views:

1 试卷代号 : 中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2013 年 7 月注意事项一将你的学号姓名及分校 { 工作站 ) 名称填写在答题纸的规定栏内考试结束后, 把试卷和答题纸放在桌上试卷和答题纸均不得带出考场监考人收完考卷和答题纸后才可离开考场二仔细读懂题目的说明, 并按题目要求答题答案一定要写在答题纸的指定位置上, 写在试卷上的答案无效三用蓝黑圆珠笔或钢笔 { 含签字笔 ) 答题, 使用铅笔答题无效一单项选择题 { 每小题 2 分, 共 3 0 分 } 1. 刚建立一个新的标准 E XE 工程后, 不在工具箱中出现的控件是 ( ) A. 单选按纽 B. 图片框 c. 框架 D. 通用对话框 2. 窗体文件的扩展名是 ( ) A.. vbp B.. frm c.. bas D.. frx 3. 元论何种控件, 共同具有的属性是 ( ) A. Text B. Caption C. Name D. ForeColor 1139

2 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!" 分别代表 ( ) A. 对象, 值, 属性 B. 对象, 属性, 值 c. 对象, 方法, 属性 D. 属性, 对象, 值 6. 下列关于变量的说法不正确的是 ( ) A. 局部变量在声明它的过程执行完毕后就被释放了 B. 局部变量的作用域仅限于声明它的过程巳静态局部变量是在过程中用 S t :'l t ic 语句声明的 D. 局部变量是指那些在过程中用 Dim 语句或 Static 语句声明的变量 7. 关于语句行, 下列说法正确的是 ( ) 0 A. 一行只能写 a 条语句 B. 长度不能超过 255 个字符 c. 每行的首字符必须大写 D. 一条语句可以分多行书写 8 为了使图像框中的图形自动适应图像框的大小, 则应 ( ) A. 将其 AutoSize 属性值设置为 True B. 将其 A u t o S i ze 属性值设置为 F a l s e c. 将其 S t r e t ch 属性值设置为 T r u e D. 将其 S t r e t ch 属性值设置为 F a l s e 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 B. Form1. Show C. Form!. Show 1 D. 以下都不正确 1 1. 不属于 V B 数据库引擎的是 ( 八. O DBC B. BDE 1140 C. Jet 引擎 D. OLE DB

3 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 分, 共 2 0 分 ) 16. Visual Basic 程序开发有三种模式, 即设计模式模式和模式 17. 若窗体的左上角坐标为 (-250,250), 右下角坐标为 (250, 一 250), 则 X 轴的正向向, y 轴的正向向 18. 设某个程序中要用到一个二维数组, 要求数组名为 A, 类型为字符串类型, 第一维下标从 O 到 3, 第二维下标从 1 到 2, 则相应的数组声明语句为 19. 列表框控件中最后一项的序号等于 L i s t co u n t 属性减 20. 表达式 4 十 10 Mod 4 关的值是 2 1. 程序的运行结果和程序员的设想有出人时产生的错误称为 22. 一个 VB 应用程序可以包含个 vbp 文件 23. 在 VB 中想获得帮助, 需要按的键是一一一一一 ; 要设置断点需要按键 24. Winsock 控件主要用来编制 TCP/IP 或协议的通话程序 25. Stretch 属性设置为时, 图像框可自动改变大小以适应其中的图形 1141

4 三阅读程序题 ( 共 2 5 分 ) 阅读下列程序井写出程序运行结果 26. (6 分 ) Private Sub CommandLClickO Dim X As Integer,Y As Integer X=2,Y=2 For i 二 =lto3 Next i Print X Forj=lToi Y=Y+j Next j X=X+Y 写出程序运行时单击命令按钮后, 窗体 Fo rm1 上的输出结果 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 Print F(a)

5 Next i 写出程序运行时, 单击命令按钮在窗体上的输出结果 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) 写出程序运行时单击 Comm andl 后, 文件框 Te x tl 中的输出结果 29. (7 分 ) Sub Change(x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,y Private Sub Form_ClickO Dim a As Integer, b As Integer a=10: b=20 Change a, b Print a, b 写出程序运行时单击窗体后,Fo rml 上的输出结果 1143

6 四完善程序题 ( 共 1 0 分 } 30. 列表框应用程序要求从文本框中输入课程名称, 然后按 " 添加 " 按钮, 将该课程名程添加到列表框中 ; 当选择列表框中某 - 项后, 按 " 删除 " 按钮, 则从列表框中删除该项 ; 当选择列表框中某一项后, 按 " 修改 " 按钮, 把列表框中选取的项送往文本框且 " 修改 " 按钮变为 " 修改确认 " 在文本框的内容修改好后, 按 " 修改确认 " 按钮, 再把文本框中修改后的信息送到列表框且 " 修改确认 " 按钮变为 " 修改 " 程序运行结果如图 1 所示 List l Textl ommand2 Command3 图 1 程序如下, 请补充完整 Private Sub Form_LoadO Listl. AddItem" VisualBasic 程序设计 " Listl. AddItem"SQL SERVER 数据库应用 " List!' AddItem" 信息管理系统 " Listl. AddItem"ERP 原理与应用 " Listl. AddItem" 网络实用技术基础 " Listl. AddItem" 系统开发规范与文档编写 " List1. Addltem" 信息系统测试 " 飞 1144

7 Private Sub CommandLClickO If Textl. Text<>""Then [lj Textl. Text F 将文本框中的内容加到列表框中 Textl. Text="" [2J MsgBox" 请在文本框中输入信息! " End If Private Sub Command2_ClickO [3J Listl. ListIndex F 删除选定的项目 EndSub Private Sub Command3_ClickO YAr?ACTTC,oeeo mllmmgauncpsa n='白[4j Then 叶一El M-二M坷咒m,dmTnkm E3.MFL J F=a obe Else Command2. Enabled= False Command3. Caption=" 修改确认 " UO'uktListl. List(Listl. Lis tindex) =Textl. Text Command1. Enabled=True Command2. Enabled= True Textl. Text="" Command3. Caption= " 修改 " End If 1145

8 五编写程序题 { 共 1 5 分 } 3 1. 按下述规定, 编写一征收所得税程序 (1) 收人在元以内, 不纳税 z (2) 收入超过 1000 元以上的部分, 纳税 20% (3) 当收入达到 5000 元或超过时,5000 元以上的部分, 纳税 22% 程序运行界面如图 2 所示 z 图

9 试卷代号 : 座位号口 1 中央广播电视大学学年度第二学期 " 开放专科 " 期未考试 Visual Basic 程序设计试题答题纸题号一二三四五总分 i 分数 I -I 1 I I ~ J 2013 年 7 月得分 i 评卷人 L I I 择题 { 每小题 2 分, 共 3 0 分 ) 二填空题 ( 每小题 2 分, 共 2 0 分 ) E

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

11 试卷代号 ~ 中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题答案及评分标准 ( 供参考 ) 2013 年 7 月一单项选择题 ( 每小题 2 分, 共 3 0 分 ) 1. D 2. B 3. C 4. C 5. B 6.A 7. D 8. C 9.A 10. C 11. B 12. C 13. D 14. B 15. A 二填空题 ( 每小题 2 分, 共 2 0 分 ) 16. 中断执行 17. 右上 18. DimA(OTo3,lTo2) As String 逻辑错误 F1 F9 24. UDP 25. False 三阅读程序题 { 共 2 5 分 } 26. (6 分 ) (6 分 ) (6 分 )

12 29. (7 分 ) 四完善程序题 { 共 1 0 分 } 30. [IJList1. AddItem [2JElse [3JList1. RemoveItem [4J" 修改 " [5JList1. Text 五编写程序题 { 共 1 5 分 } 3 1. 参考答案 z Private Sub Commandl_C1ickO Dim x As Integer,tax As Single x=val(text1. Text) If x <=1000 Then tax=o EIseIf x < = 5000 Then tax= (x 一 1000) 铃 O. 2 Else tax=(x 一 5000) 铃祷 O. 2 End If Label3. Caption= tax Private Sub Command2_C1ickO Unload Me 1150

VB程序设计教程

VB程序设计教程高等学校教材 Visual Basic 程序设计教程魏东平郑立垠梁玉环石油大学出版社内容提要本书是按高等学校计算机程序设计课程教学大纲编写的大学教材, 主要包括 VB 基础知识常用程序结构和算法 Windows 用户界面设计基础文件处