试卷代号 : 座位号 OJ 中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题题号一二三四五总分分数 I I I I I I I 2011 年 1 月得分评卷人 I I I 题 { 每小题

Size: px

Start display at page:

Download "试卷代号 : 座位号 OJ 中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题题号一二三四五总分分数 I I I I I I I 2011 年 1 月得分评卷人 I I I 题 { 每小题"

逸钱惠
5 years ago
Views:

1 试卷代号 : 座位号 OJ 中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题题号一二三四五总分分数 I 2011 年 1 月题 { 每小题 2 分, 共 3 0 分 } 1. 对于定时器 ( Tim 盯控件, 设置其定时是否开启的属性是 ( ) A. Index B. Tag c. Enabled D. Left 2. 应用程序打包后, 其包文件的后缀是 ( ) A. exe B.. cab C..ocx D.. vbp 3. 无论何种控件, 共同具有的属性是 ( ) A. Text 属性 B. Caption 属性 C. Name 属性 D. Autosize 属性 4. 为了保存一个 Visual Basic 应用程序, 下列说法正确的是 ( ) A. 只保存窗体文件 <. [rm) B. 只保存工程文件 <. vbp) C. 分别保存工程文件和标准模块文件 (. bas) 1418 D. 分别保存工程文件窗体文件和标准模块文件

2 5. 刚建立一个新的标准 EXE 工程后, 不在工具箱中出现的控件是 ( ) A. 单选按纽 B. 图片框 C 框架 D. 通用对话框 6. 窗体文件的后缀是 ( ) A.. frm B.. vbp C.. bas D.. cis 7. 如果对象的名称为 Mytext, 而且对象有一个属性 Text, 那么在代码中引用该属性的正确格式是 ( ) A. Text. Mytext B. Mytext. Text C. Mytext. (Text) D. Mytext 祷 Text 8. Line(100, 100) 一 Step(600,600) 将在窗体 ( ) 画一直线 A. (1 0 0, ) 到 ( 6 0 0, ) B. (100,100) 到 (500,500) C. (1 0 0, ) 到 ( 7 0 0, ) D. (500,500) 到 (600,600) 9. 要在窗体的标题栏内显示 " 欢迎您! ", 使用的语句是 ( ) A. Form. caption=" 欢迎您! " B. Form!. caption=" 欢迎您! " C. Form!. print " 欢迎您!" D. Form. print " 欢迎您!" 10. 如果想让文本框中的内容在运行时不能编辑, 需将文本框的 ( ) 属性设置为 True A. Locked C. TabStop B. MultiLine D. Visible 11. 关于语句行, 下列说法正确的是 ( ) A. 一行只能写一条语句 B. 长度不能超过 255 个字符 C. 每行的首字符必须大写 D. 一条语句可以分多行书写 12. 要清除 List 列表框控件中的所有项目, 可采用的方法是 ( ) A. Erase C. Clear B. Delete D. Click 13. 以下可以作为 Visual Basic 变量名的是 ( ) A. SIN B. AB1 C. COS(X) D. XC-I) 1419

3 14. 下列正确的赋值语句是 ( λ A. x+y=20 B. s=π 祷 r 赞 r C. 3x=y D. y=x 十如果要在文本框中键人字符时, 只显示某个字符, 如星号禄 ), 应设置文本框的 ( ) 属性. A. Caption B. Text C. PasswordChar D. Locked 二填空题 { 每小题 2 分, 共 2 0 分 } 时, 可使图片框根据图片调整大小或协议的网络应用程语句声明 1420

4 三阅读程序题 { 共 2 5 分 } 阅读下列程序井写出程序运行结果. 26. (6 分 Private Sub CommandLClickO Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 铸 j Next j Sum1 = Sum1 + Sum2 Next i Print Sum1 写出程序运行时单击 Command 1 按纽后, Fo rm1 上的输出结果 27. (6 分 Private Sub CommandLClickO x = 1 Do While x < 50 x = (x + 1) 铃 ( x + 2) n=n+1 Loop Textl. Text = Text2. Text = Str(n) Str(x) 写出程序运行时单击 Command 1 按纽后, text1 和 text2 上的输出结果 28. (6 分 Private Sub CommandL Click O Dim A(l To 6) As Integer Dim b As Integer For b = 1 To 6 A(b) = b Next b Textl. Text = A(b - 2) 写出程序运行时单击 Command1 按纽后, Textl 上的输出结果 1421

5 29. (7 分 Public Sub changel<ityval x As Integer, ByVal y As Integer) Dim t As Integer t = x x=y y=t Public Sub change2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t Private Sub Form_ClickO Dim a As Integer, b As Integer a = 20, b = 40 change1 a, b Forml.Print "A1="; a, "B1="; b a = 20: b = 40 change2 a, b Forml. Print IIA2="; a, "B2="; b 写出程序运行时, 单击窗体 Form1 上的输出结果四完善程序题 { 共 1 0 分 } 30. 假设用 Access 创建了一个名为 "HRM. mdb" 的数据库, 并在其中创建了一张名为 " 档案 " 的数据表, 表中存放了人员的基本信息, 如图 1 所示要求使用 ADO 对象和 MSFlexGrid 控件设计数据库列表显示程序结果程序的设计界面和运行结果如图 2 所示 1422 图 l 用 Access 创建的档案数据表

6 图 2 程序运行界面程序如下, 请补充完整 Public ADOcn As New ADODB. Connection Sub maino Dim strcn As String stradocn = "Provider=Microsoft. let. OLEDB.4. O;Data Source=" + App. Path_ 十 " \ HRM. mdb;persist Security Info=False" ADOcn. Open [IJ frmmain. Show Private Sub MyrefreshO DimADO rs As [2J Dim strtmp As String Dim i As Integer [3J= ADOcn ADOrs. Open "Select 赞 From 档案 Order by 编号 " MSFlexGridl. Clear MSFlexGridl. FixedRows = 0 MSFlexGridl. Rows = 1 MSFlexGridl. Cols = 4 MSFlexGridl. AddItem " 职工编号 " + vbtab + " 职工姓名 " + vbtab 十 " 职称 " + vbtab + " 简历 ", 0 i = 1 Do While[4JADOrs.EOF strtmp = rs(" 编号 " ) + vbtab + rs(" 姓名 " ) + vbtab + r 叭 " 职称 " ) + vbtab + rs(" 简历 " ) 1423

7 MSFlexGridl. AddItem strtmp, i ADOrs. MoveNext Loop MSFlexGridl. FixedRows = 1 Private Sub Form_LoadO [5J 五编写程序题 { 共 1 5 分 } 3 1. 请根据下列描述编写购物优惠程序某商场为了加速促成商品流通, 采用购物打折的优惠办法, 每位顾客一次购物在 5 00 元以上者, 按九五折优惠川 2 ) 在 7 00 元以上者, 按丸折优惠 ; ( 3 ) 9 00 元以上者, 按八折优惠川元以上者按七折优惠在窗体上添加两个文本框和一个命令按钮, 要求在 Text! 中输入购物商品总金额, 单击命令按钮, 在 T e xt2 中输出优惠价程序运行结果如图 3 所示图

8 试卷代号 : 中央广播电视大学一学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题答案及评分标准 ( 供参考 ) 2011 年 1 月一单项选择题 { 每小题 2 分, 共 3 0 分 } I. C 2.B 3.C 4.D 5.D 6.A 7.B 8.C 9.B 10.A 11. D 12.C 13. B htd A 15.C 二填空题 { 每小题 2 分, 共 2 0 分 } 16. Picture1. Picture = LoadPrcture("picturefi1e. jpg") 17. True 18. TCPlIP UDP 19. 数据库引擎 Public 显示变体型或写成 Variant 型 ) 24. F1 25. 工程属性三阅读程序题 { 共 2 5 分 } 26. (6 分 (6 分 (6 分

9 29. (7 分 ) Al=20 B1= 40 A2=40 B2=20 四完善程序题 { 共 1 0 分 } 30. [IJ stradocn [2J New ADODB. Recordset [3JADOrs. ActiveConnection [4J Not [5J Myrefresh 五编写程序题 { 共 1 5 分 } 3 1. 参考答案 z Private Sub Commandl_ClickO Dim x As Single, y As Single x = Val(Textl. Text) If x < 500 Then y=x Else If x < 700 Then y = 0.95 祷 X Else If x < 900 Then y = 0.9 祷 X Else If x < 1500 Then y = 0.8 势 X Else y = 0.7 祷 X End If End If End If End If Text2. Text = y 1426

5. 要在窗体上显示 " 欢迎您! ", 使用的语句是 ( ) A.Form.caption=" 欢迎您! " C. Form1. print" 欢迎合! " B. Forml. caption= " 欢迎您!" D.Form.print " 欢迎您!" 6. 关于语句行, 下列说法正确的是 ( A

5. 要在窗体上显示欢迎您! , 使用的语句是 ( ) A.Form.caption= 欢迎您! C. Form1. print 欢迎合! B. Forml. caption= 欢迎您! D.Form.print 欢迎您! 6. 关于语句行, 下列说法正确的是 ( A 试卷代号 : 2 2 3 1 中央广播电视大学 2 0 11 2012 学年度第二学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 2012 年 7 月注意事项一将你的学号姓名及分校 { 工作站 ) 名称填写在答题纸的规定栏内考试结束后, 把试卷和答题纸放在桌上试卷和答题纸均不得带出考场监考人收完考卷和答题纸后才可离开考场二仔细读懂题目的说明, 并按题目要求答题

试卷代号 : 座位号 OJ 中央广播电视大学 学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题 题号 一 二 三 四 五 总分 分数 I I I I I I I 2011 年 1 月 得分 评卷人 I I I 题 { 每小题

试卷代号 : 座位号 OJ 中央广播电视大学学年度第一学期 " 开放专科 " 期末考试 Visual Basic 程序设计试题题号一二三四五总分分数 I I I I I I I 2011 年 1 月得分评卷人 I I I 题 { 每小题