试卷代号：2231 座位号■ 中央广播电视大学2007一2008学年度第一学期“开放专科”期末考试 计算（应）等专业Visual Basic程序设计 试题 2008年1月 题 号 二 三 四 五 总 分 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1.与传统的设计语言相比，Visual Basic最突出的特点是()。 A.程序开发环境 B.结构化程序设计 C.事件驱动的编程机制 D.程序调试技术 2.VB集成开发环境中，提供控件的窗口是( ）。 A.工具栏 B.工具箱 C.属性窗 D.工程管理器 3.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。 A.单选按纽 B.图片框 C.框架 D.通用对话框 4.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是()。 A.设计模式 B.中断模式 C.执行模式 D.编写代码模式 5.要在窗体Forl内显示"欢迎您！"，使用的语句是()。 A.Form.caption="欢迎您！" B.Forml.caption="欢迎您！" C.Forml.print"欢迎您！" D.Form.print"欢迎您！" 6.能够改变标签控件显示标题的属性是( )。 A.Name B.Caption C.Text D.BordeStyle 1427
试卷代号:2231 座位号巨口 中央广播电视大学2007-2008学年度第一学期“开放专科”期末考试 计算(应)等专业 Visual Basic程序设计 试题 2008年 1月 题 号 四 五 总 分 分 数 得 分 评卷人 一、单项选择题(每小题 2分 ，共 30分 ) 1.与传统的设计语言相比，Visual Basic最 突出的特点是 ( )。 A.程序开发环境 B.结构化程序设计 C.事件驱动的编程机制 D.程序调试技术 2. VB集成开发环境中，提供控件的窗口是 ( )。 A.工具栏 B.工具箱 C.属性窗 D.工程管理器 3.刚建立一个新的标准 EXE工程后，不在工具箱中出现的控件是( )。 A.单选按纽 B.图片框 C.框架 D.通用对话框 4.在 VB6.。集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是 A.设计模式 B.中断模式 C,.执行模式 D.编写代码模式 ;i.要在窗体 Forml内显示”欢迎您!”，使用的语句是( )。 A. Form. caption=”欢迎您 !” B. Forml. caption=”欢迎您 !” C. Forml. print”欢迎您!” D. Form. print”欢迎您!” 6.能够改变标签控件显示标题的属性是( )。 A. Narne B. Caption C. Text D.Bordestyle 1427
7.在VB中，下列合法的变量名是()。 A.4ab B.a-b C.a_4 D.integer 8.如果要在文本框中键人字符时，只显示某个字符，如星号()，应设置文本框的() 属性。 A.Caption B.PasswordChar C.Text D.Locked 9.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 ()属性设置就有效。 A.MaxButton B.BorderSyle C.Width D.MinButton 10.要设置命令按钮的背景图形，必须设置的两个属性是( )。 A.Style和Picture B.Style和Icon C.Caption和Picture D.Value和lcon 11,VB程序中通常不会产生错误提示的是( )。 A.编译错误 B.实时错误 C.运行时错误 D.逻辑错误 12.执行Form1.Scale(-14,14)-(14,-14)语句后，Forml窗体坐标系x轴和y轴的正方 向是( ）。 A.向左和向下 B.向右和向上 C.向左和向上 D.向右和向下 13.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是()。 A.Execute B.CommandType C.Open D.ActiveConnection 14.用来从数据库表中删除记录的SQL命令是( )。 A.DELETE B.SELECT C.UPDATE D.WHERE 15.要发送数据，通常使用Winsock控件的( ）。 A.Listen方法 B.(GetDate方法 C.Accept方法 D.SendDa1a方法 1428
VB中，下列合法的变量名是( 4ab B.a一h D. integer 在 A. C. 8.如果要在文本框 中键入字符时，只显示某个字符，如星号(*)，应设置文本框 的( ) 属性口 A. Caption B. PasswordChar C. Text D. Locked 9.要使窗体在运行时不 可改变 窗体 的大小 和没有最大化 和最小化按 钮，只要对 下列 ( )属性设置就有效。 A. MaxButton B. BorderSyle C. W idth D. MinButton 10.要设置命令按钮 的背景图形 ，必须设置的两个属性是( )。 A. Style和 Picture B. Style和 Icon C. Caption和 Picture D. Value和 Icon 11.VB程序 中通常不会产生错误提示的是( )。 A。编译错误 B.实时错误 C.运行时错误 D.逻辑错误 12.执行 Forml. Scale (-14, 14)一(14，-14)语句后，Forml窗体坐标系x轴和y轴的正方 向是 ( )。 A 向左和向下 B.向右和向上 C，向左和向上 I).向右和向下 1.3.使用 ADO数据模型时，建立 Recordset和 Connection对象连接的属性是( )。 A. Execute B. CommandType C. Open D. ActiveConnection 14，用来从数据库表中删除记录的 SQ1、命令是( )。 A. DELETE B. SELECT C. UPDATE D. W HERE 要发送数据，通常使用 Winsock控件的( )。 Listen方法 Accept方法 B. Gel Dat。方法 D. SendDat。方法 A. C. 1428
得分 评卷人 二、填空题（每小题2分，共20分】 1.每个标谁应用程序通常至少有一个 文件。 2.某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从】到2， 第二维下标从2到2，则相应数组声明语句为 3.全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。 4.在VB中，将Access称为 ,SQL Server称为 5.Vb应用程序与数据库进行通信的主要机制称为 6.Winsock控件主要用来编制TCP/IP或 协议的通话程序。 7.如果不能适先确定变量的数据类型，则可以把它声明为 0 8.执行赋值语句a="123”+"456"后，变量a的值是 9.对VB程序进行调试时，若要进行断点设置应按 键，如果需要逐语句调试，应 按 键。 10.通常可以将文本框控件的 属性设为True,以禁止键盘输人。 得 分 评卷人 三、阅读程序题（共25分）】 阅读下列程序并写出程序运行结果。 1.(6分) Private Sub Form_Click() Dim a As Integer Static b As Integer a=a十4 b=a+b Forml.Print "a=";a,"b=";b End Sub 写出程序运行时连续单击三次窗体后，Fom1上的输出结果， 1429
得 分 评卷人 二、填空题 (每小题 2分 ，共 20分) 1.每个标准应用程序通常至少有一个 文件。 2.某个程序中要用到一个二维数组，要求数组名为A，类型为整型，絮一维下标从一1到2, 第二维下标从一2到 2，则相应数组声明语句为 3.全局变量在整个应用程序中有效，一般在标准模块中使用_ 语句声明。 4.在VB中，将Access称为 ，SQI. Server称为 _ 5. Vb应用程序与数据库进行通信的主要机制称为 6. Winsock控件主要用来编制 TCP/IP或 协议的通话程序。 如果不能适先确定变量的数据类型 ，则可以把它声明为 执行赋值语句 a= "123"-1-"456”后 ，变量 a的值是 9.对 VB程序进行调试时 ，若要进行断点设置应按 键 ，如果需要逐语句调试 ，应 10.通常可以将文本框控件的 属性设 为 ‘true，以禁止键盘输人 。 得 分 评卷人 三 、阅读程序题(共 25分) 阅读下列程序并写出程序运行结果。 l.(6分) Private Sub Form_卜( .1ick() Dim a As Integer Static b As Integer a 二二 a b = 月 + 4 一+ 卜 Forml. Print "a二”;a，”b=”;b End Sub 写出程序运行时连续单击三次窗体后 ，Forml上的输出结果 。 1429
2.(6分) Private Sub Form_Click() Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To5 Ifi>3 Then c=c十5 Exit For Else k=k+1 End If Next j Print c,k End Sub 写出程序运行时单击窗体后，c,k的值分别是： 3.(6分) Private Sub Command1_Click() Dim s As Double Dim i As Integer s=5 i=1 Do While i<7 i=i+2 s=5十i Loop Textl.Text =s End Sub 文件框Text1的输出结果是： 1430
2.(6分) Private Sub Form_Click() 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的值分别是: 3. (6分) Private Sub Commandl_Click() Dim s As Double Dim i As Integer s =二 口 i= 1 Do While I< 7 1= 1十 2 s今 5一 1 Loop Textl. Text一 s land Sub 文件框 Text]的输出结果是: 1430
4.(7分) Sub test(i As Integer) i=i+2 End Sub Private Sub Form_Click() Dim x As Integer x=5 Print "x=";x Call test(x) Print "x=";x End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分） 1.假设用Access创建了一个名为"学生.MDB"的数据库，并在其中创建了一张名为"学 生基本情况"的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是： 首先文本框(Textl)中输入希望查询的学生学号，然后点击"查询"按钮(Commandl),如果数 据库中存在该学号，则分别在Text2、Text3、Tex4中显示学号、姓名、籍贯信息，否则提示用 户"记录不存在"并使Textl获得焦点，要求用户重新输人，当点击退出按钮(Commandz2)时 关闭本窗体。 围字生基本情况：表 2004001 张红 河北 2004002 李强 山东 2004003 王丰 广西 米 记录1 31)米共有记录数：3 图1用Access创建的学生基本情况数据表 1431
4. (7分) Sub test(i As Integer) + 2 End Sub Private Sub Form Click() Dim x As Integer Print”x=”;x Call test(x) Print”x= ”:x End Sub 写出程序运行时，单击窗体 Forml上的输出结果。 得 分 评卷人 四、完善程序题(共 10分) 1.假设用 Access创建了一个名为”学生 .MDl3”的数据库，并在其中创建了一张名为”学 生基本情况”的数据表，表中存放了学生的基本信息，如图 1所示。 现在要求利用 V13编写一个数据库查询程序，程序的运行界面如图 2所示，基本逻辑是: 首先文本框(rextl)中输人希望查询的学生学号 ，然后点击”查询 ”按钮 (Commandl )，如果数 据库中存在该学号 ，则分别在 Text2,,I'ext3 , Text4中显示学号 、姓名、籍贯信息，否则提示用 户”记录不存在‘’并使 ‘Next I获得焦点，要求用户重新输人。当点击退出按钮(Command2)时 关闭本窗体。 翻 口 fx 粼 }一羚雄壤渗 拼戴翻攀熬摹一舞葺班 一璐贫 架 璧鑫】2004001 200铂02 20040#13 张红 李强 河北 默 蒸 山东 税 图 I用 Access创建的学生基本情况数据表 1431
学生信息查询 输入查询条件 要查询的学号： 2004001 登询结果 学号： 2004001 姓名：保红 籍贯：阿死 退出 图2查询程序运行界面 程序如下，请补充完整。 Private ADOen As Connection Private Sub Form_Load() 1 ADOcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source_ =c:\学生.MIDB” End Sub Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As [2] Recordset ADOrs.ActiveConnection ADOen strSQL="Select*From学生基本情况Where学号="十"'"十Texl十"'" [3] If[4] ADOrs.EO)F Then Text2=AID()rs.ilds("学号") Text3=AID)rs.Fields("姓名") 1432
一矍黔 葬登询结果 河北 渡 如‘娜‘苏公 屯 . 丫 }叮 ;: 〕 、 : 3 ; 二 蒙、扮弃)鑫、一 一息垂 - 呀 ，， 诊﹄ 羚 桃献 图 2查询程序运行界面 程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form Load() Il」 ADOcn. Open”Provider=Microsoft. Jet. OLEDB. 4, 0;Data Source =c八学生 .MDB" End Sub Private Sub Cornmancil. Click() Dlrlr strSQl. As String DimADOrs As仁2] Recordset Af)Ors. ActiveConnection二:A DOcn strSQL= "Select x Frorn学生基本情况 Where学号二”}”‘” [` 31 If仁4] A DOrs. E()F、"l' be n hext2= ADOrs. Fields(”学号”) Tt-xt3= A DOrs. Fields(”姓名’.) 1=132 Text 1十 ’，’
Text4=AD)rs.Fields("籍贯") Else MsgBox"要查询的学号不存在，请重新输人！"，vbOKOnly,"信息提示" Textl =" [5] End If End Sub Private Sub Command2_Click() UnLoad Me End 得 分 评卷人 五、编写程序题（共15分） 请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下： (1)收入在1000元以内，扣税3%； (2)收入在1000-4000元内，800元以上部分扣税15%， (3)收入在4000一5000元内，4000元以内按(2)的方法扣税，4000元以上部分，扣税 20%, (4)当收入达到5000元以上，扣税25%。 程序运行界面如图3所示。 劳务金扣税程序赛 扣税前劳务酬金 扣税额 4500 580 计算 图3 1433
Text4二 ADOrs. Fields(”籍贯”) Else MsgBox”要查询的学号不存在，请重新输人!”，vbOKOnly,”信息提示” Text 1 = ”" End If End Sub Private Sub Conunand2 Click() UnLoad M e End 得 分 评 卷人 五、编 写程序题 (共 15分 ) 请根据下列描述编写财务部门征收劳务酬金所得税程序 .规定如下 : (1)收人在 1000元以内，扣税 3%; (2)收人在 1000-4000元内，800元以上部分扣税 15%, (3)收人在 4000-5000元 内，400。元以内按(2)的方法扣税，400。元 以上部分.扣税 20% ， (4)当收人达到 500。元以上，扣税 25%a 程序运行界面如图 3所示 。 ”回- }麟犷 们”川‘“川.书麟二川二“1.“二“川””1 图 3 1433
试卷代号：2231 中央广播电视大学2007一2008学年度第一学期“开放专科”期末考试 计算（应）等专业Visual Basic程序设计 试题答案及评分标准 (供参考) 2008年1月 一、单项选择题（每小题2分，共30分】 1.C 2.B 3.D 4.D 5.C 6.B 7.C 8.B 9.B 10.A 11.D 12.B 13.D 14.A 15.D 二、填空题（每小题2分，共20分） 1.frm 2.Dim A(-1 To 2,-2 To 2)As Integer 3.Public 4.本地数据库 远程数据库 5.数据引擎 6.UDP 7.变体型(Variant) 8.123456 9.9F8 10.Locked 三、阅读程序题（共25分） 1.(6分) a=4 b=4 a=4 b=8 a=4 b=12 2.(6分) 8 5 1434
试卷代号:2231 中央广播电视大学2007-2008学年度第一学期“开放专科”期末考试 计算(应)等专业 Visual Basic程序设计 试题答案及评分标准 (供参考) 2008年 1月 一 、单项选择题(每小题 2分 ，共 30分 ) 1. C 2. B 3. D 6.B 7.C 8.B 11. D 12. B 13. D 二、填空题 (每小题 2分，共 20分) 1. frm 2. Dim A(一1 To 2,-2 To 2) As Integer 3. Public 4.本地数据库 远程数据库 5.数据引擎 6. UDP 7.变体型(Variant) 8. 123456 9.Fg FS 10. Locked 三、阅读程序题(共 25分) 1. (6分) 4. I) 9.B 14. A 5. C 10. A 15. D 4 4 4 (6分) 之〕 b=4 b=8 b= 12 8 1434
3.(6分) 20 4.(7分) x=5 x=7 四、完善程序题（共10分）】 [1]Set ADOcn New Connection [2]New [3]ADOrs.Open strSQL [4]Not [5]Text1.SetFocus 五、编写程序题（共15分） 参考答案： Private Sub Commandl_Click() Dim x As Integer,tax As Single x=Val(Text1.Text) If x 1000 Then tax=x￥0.03 Else If x<=4000 Then 1ax=(x-800)￥0.15 Else If x<=5000 Then tax=(x-800)￥0.15+(×-4000)￥0.05 Else tax=×*0.25 End If End If End If Text2.Text tax End Sub 1435
3. (6分 ) 20 4. (7分 ) x= 5 x= 7 四、完善程序题(共 10分) 仁1] Set ADOcn一New Connection [2] New 巨3]ADOrs. Open strSQI. [4]Not 合 [5]Textl.SetFocus 五、编写程序题(共 巧 分 ) 参考答案: Private Sub Commandl_Click() Dimx As Integer, tax A's Single x= Val(TextI. Text) If x< 1000 Then tax = x * 0. 03 Else If x< = 4000 Then tax = (x 一 800) * 0. 15 EIse If x< = 5000 Then tax= (x一 800) * 0. 15+ (x一 4000) ， 0. 05 Else tax= x * 0.25 End If End If End If Text2. Text二 tax El记 Sub 1435