试卷代号：2231 座位■ 中央广播电视大学2010一2011学年度第一学期“开放专科”期末考试 Visual Basic程序设计 试题 2011年1月 题号 二 三 四 五 总 分 分数 得 分 评卷人 一、单项选择题（每小题2分，共30分）】 1.对于定时器(Timer)控件，设置其定时是否开启的属性是( )。 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.只保存窗体文件(.frm) B.只保存工程文件(.vbp) C.分别保存工程文件和标准模块文件(.bas) D.分别保存工程文件、窗体文件和标准模块文件 1418
试卷代号 2 2 座位号OJ 中央广播电视大学 11学年度第一学期"开放专科"期末考试 Visual Basic 序设 试题 2011 年1 |题号|一|二|三|四|五|总分| |分数 I I I I I I |得分|评卷人| 题{每小题 2分，共 0分} I I I 1.对于定时器 m盯〉控件，设置其定时是否开启的属性是( )。 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) D. 程文 文件 1418
5.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。 A.单选按纽 B.图片框 C.框架 D.通用对话框 6.窗体文件的后缀是( ）。 A..frm B..vbp C..bas D..cls 7.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正 确格式是()。 A.Text.Mytext B.Mytext.Text C.Mytext.(Text) D.Mytext Text 8.Line(100,100)-Step(600,600)将在窗体()画一直线。 A.(100,100)到(600,600) B.(100,100)到(500,500) C.(100,100)到(700,700) D.(500,500)到(600,600) 9.要在窗体的标题栏内显示“欢迎您！”，使用的语句是()。 A.Form.caption="欢迎您！" B.Forml.caption="欢迎您！" C.Forml..print"欢迎您！" D.Form.print"欢迎您！" 10.如果想让文本框中的内容在运行时不能编辑，需将文本框的( )属性设置为True。 A.Locked B.MultiLine C.TabStop D.Visible 11.关于语句行，下列说法正确的是( )。 A.一行只能写一条语句 B.长度不能超过255个字符 C.每行的首字符必须大写 D.一条语句可以分多行书写 12.要清除List列表框控件中的所有项目，可采用的方法是()。 A.Erase B.Delete C.Clear D.Click 13.以下可以作为Visual Basic变量名的是( ）。 A.SIN B.ABI C.COS(X) D.X(-1) 1419
5. 建立 个新 准EXE 工程后 不在工具 中 出 )。 A. 选按纽B. 架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 0 0 0 0 0 0 B. (100 ，100) 到(500 ，500) C. (1 0 0 0 0 0 0 D. (500 ，500) 到(600 ，600) 9. 题栏 显示 )。 A. Form. caption=" B. Form!. caption=" C. Form!. print "欢迎您!" D. Form. print "欢迎您!" 10. 文本框 容在运 )属性设置为 rue。 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
14.下列正确的赋值语句是()。 A.x十y=20 B.S=π*r*r C.3x=y D.y=x+20 15,如果要在文本框中键人字符时，只显示某个字符，如星号()，应设置文本框的 ()属性。 A.Caption B.Text C.PasswordChar D.Locked 得 分 评卷人 二、填空题（每小题2分，共20分】 l6.为了在运行时把当前路径下的图形文件picturefile.jPg装人图片框Picturel,所使用 的语句为 17.将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。 18.Winsock控件主要用来编制基于 或 协议的网络应用程 序。 19.VB应用程序与数据库进行通信的主要机制称为 20.列表框控件中最后一项的序号等于ListCount属性减 21.全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。 22.表达式14/2-23￥7MOD6的值是 23.变量的声明方法有隐式和两种，如果采用隐式声明方法，那么VB会自动将 变量声明为」 24.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语 句，然后按键。 25.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。通过工程菜单的 菜单项，可将启动窗体设置为Form2。 1420
14. 列正 赋值 A. x+y=20 B. s=π 祷r 赞r C. 3x=y D. y=x十20 15. 果 要 在 文本 框 示 某 ，应设置文本框的 ( )属性. A. Caption B. Text C. PasswordChar D. Locked |得分|评卷人| I I I 1420 二、填空题{每小题 2分，共 0分} 时，可使图片框根据图片调整大小。 或协议的网络应用程 语句声明
得 分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果。 26.(6分) Private Sub Command1_Click() Dim Suml As Integer,Sum2 As Integer Suml 1:Sum2 2 For i=1 To 3 For j=1 Toi Sum2=Sum2￥j Next j Suml Sum1 +Sum2 Next i Print Suml End Sub 写出程序运行时单击Commandl按纽后，Forml上的输出结果。 27.(6分) Private Sub Command1_Click() ×=1 Do While x<50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text Str(n) Text2.Text Str(x) End Sub 写出程序运行时单击Commandl按纽后，textl和text2上的输出结果。 28.(6分) Private Sub Commandl_Click() Dim A(1 To 6)As Integer Dim b As Integer For b 1 To 6 A(b)=b Next b Text1.Text A(b-2) End Sub 写出程序运行时单击Commandl按纽后，Textl上的输出结果。 1421
|得分|评卷人| I I I 三、阅读程序题{共 阅读下列程序井写出程序运行结果. 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 Next j Sum1 = Sum1 + Sum2 Next i Print Sum1 End Sub 写出程序运行时单击 按纽后 1上的输出结果。 27. (6 Private Sub CommandLClickO x = 1 Do While x < 50 x = (x + 1)铃 + 2) n=n+1 Loop Textl. Text = Str(n) Text2. Text = Str(x) End Sub 写出程序运行时单击 mm 按纽后 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) End Sub 写出程序运行时单击 按纽 Textl 结果 1421
29.(7分) Public Sub changel(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x-y y=t End Sub Public Sub change2(x As Integer,y As Integer) Dim t As Integer t=x x-y y=t End Sub Private Sub Form_Click() Dim a As Integer,b As Integer a=20:b=40 changel a,b Forml.Print "Al=";a,"B1=";b a=20:b=40 change2 a,b Forml.Print "A2=";a,"B2=";b End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分】 30.假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档 案”的数据表，表中存放了人员的基本信息，如图1所示。 要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图2所示。 壁竹么： 历 王 0002 邦进 0003 图1用Access创建的档案数据表 1422
29. (7 Public Sub changel<ItyVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x=y y=t End Sub Public Sub change2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub 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 End Sub 写出程序运行时，单击窗体 1上的输出结果。 |得分|评卷人| I I I 四、完善程序题{共 30. 用Access 为"HRM. mdb" 一张 案"的数据表，表中存放了人员的基本信息，如图 1所示。 要求使用 O对象和 d控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图 2所示。 l用 ccess创建的档案数据表 1422
人事篇套管用 0003R第 中级 L乐 0002进 高级 北京 0001王 助理 厂东 图2程序运行界面 程序如下，请补充完整。 Public ADOcn As New ADODB.Connection Sub main() Dim stren As String strADOcn "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+App.Path_ +"\HRM.mdb;Persist Security Info=False" ADOcn.Open [1] frmMain.Show End Sub Private Sub Myrefresh() DimADO rs As [2] Dim strtmp As String Dim i As Integer [3] =ADOcn ADOrs..Open"Select*From档案Order by编号" MSFlexGrid1.Clear MSFlexGrid1.FixedRows =0 MSFlexGrid1.Rows 1 MSFlexGrid1.Cols=4 MSFlexGridl.AddItem"职工编号"+vbTab十"职工姓名”+vbTab十"职称" +vbTab+"简历"，0 i=1 Do While [4] ADOrs.EOF strtmp=rs("编号")+vbTab+rs("姓名")+vbTab十rs("职称")十 vbTab十rs("简历") 1423
运行界 程序如下，请补充完整。 Public ADOcn As New ADODB. Connection Sub mainO Dim strcn As String strADOcn = "Provider=Microsoft. let. OLEDB.4. O;Data Source=" + App. Path_ mdb;Persist Security Info=False" ADOcn. Open [IJ frmMain. Show End Sub 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 + + vbTab + rs(" 1423
MSFlexGrid1.AddItem strtmp,i ADOrs.MoveNext Loop MSFlexGrid1.FixedRows =1 End Sub Private Sub Form_Load() [5] End Sub 得 分 评卷人 五、编写程序题（共15分） 31.请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折 的优惠办法，每位顾客一次购物(1)在500元以上者，按九五折优惠；(2)在700元以上者，按九 折优惠：(3)900元以上者，按八折优惠；(4)1500元以上者按七折优惠。在窗体上添加两个文 本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出 优惠价。程序运行结果如图3所示。 购物优惠程序 惠价为 400 1120 图3 1424
MSFlexGridl. AddItem strtmp , i ADOrs. MoveNext Loop MSFlexGridl. FixedRows = 1 End Sub Private Sub Form_LoadO [5J End Sub |得分|评卷人| I I I 五、编写程序题{共 5分} 1. 据下 描述 写购 程序 促成 流通 物打折 的优惠办法，每位顾客一次购物。〉在 0元以上者，按九五折优惠川 )在 7 0 0元以上者，按丸 折优惠 0元以上者，按八折优惠川。 5 0 0元以上者按七折优惠。在窗体上添加两个文 本框和一个命令按钮，要求在 xt!中输入购物商品总金额，单击命令按钮，在 2中输出 优惠价。程序运行结果如图 3所示。 1424
试卷代号：2231 中央广播电视大学2010一2011学年度第一学期“开放专科”期末考试 Visual Basic程序设计试题答案及评分标准 (供参考) 2011年1月 一、单项选择题（每小题2分，共30分） 1.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 14:D 15.C 二、填空题（每小题2分，共20分） 16.Picturel.Picture LoadPrcture("picturefile.jpg") 17.True 18.TCP/IP UDP 19.数据库引擎 20.1 21.Public 22.5 23.显示 变体型（或写成Variant型） 24.F1 25.工程属性 三、阅读程序题（共25分）】 26.(6分) 31 27.(6分) 256 28.(6分) 5 1425
试卷代号 2 3 中央广播电视大学 11学年度第一学期"开放专科"期末考试 Visual Basic 程序设计 试题答 分标 (供参考) 2011 年1 一、单项选择题{每小题 I. C 6.A 11. D 2.B 7.B 12.C 3.C 8.C 13. B 4.D 9.B htD‘ A 5.D 10.A 15.C 二、填空题{每小题 16. Picture1. Picture = LoadPrcture(" picturefi1e. jpg") 17. True 18. TCPlIP UDP 19. 20. 1 21. Public 22. 5 23. 显示 变 或写成Variant 24. F1 25. 工程 三、阅读程序题{共 26. (6 31 27. (6 2 56 28. (6 5 1425
29.(7分) A1=20 B1=40 A2=40 B2=20 四、完善程序题（共10分） 30.[1]strADOcn [2]New ADODB.Recordset [3JADOrs.ActiveConnection [4]Not [5]Myrefresh 五、编写程序题（共15分） 31.参考答案： Private Sub Command1_Click() Dim x As Single,y As Single x Val(Text1.Text) If x<500 Then y-x Else If x 700 Then y=0.95￥x Else If x<900 Then y=0.9x 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 End Sub 1426
29. (7 Al=20 B1= 40 A2=40 B2=20 四、完善程序题{共 30. [IJ strADOcn [2J New ADODB. Recordset [3JADOrs. ActiveConnection [4J Not [5J Myrefresh 五、编写程序题{共 1. 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 Else If x < 900 Then y = 0.9 Else If x < 1500 Then y = 0.8 Else y = 0.7 End If End If End If End If Text2. Text = y End Sub 1426