试卷代号：2231 座位号■ 中央广播电视大学2006一2007学年度第二学期“开放专科”期末考试 计算机等专业Visual Basic程序设计 试题 2007年7月 题 号 二 三 四 五 总分 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1.后缀为.bas的文件表示( )。 A.类模块文件 B.窗体文件 C.标准类模块文件 D.窗体二进制数据文件 2.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( ）。 A.从主程序开始执行 B.按过程顺序执行 C.按模块顺序执行 D.事件驱动 3.有程序代码如下： Text1.Text "Visual Basic" 则Tex1l,Text,和"Visual Basic"分别代表( )。 A.对象，值，属性 B.对象，方法，属性 C.对象，属性，值 D.属性，对象，值 4.以下叙述中错误的是( ）。 A.一个工程中可以包含多个窗体文件 B.在一个窗体文件中用Private定义的通用过程能被其它窗体调用 C.在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型 的文件 D.全局变量必须在标准模块中定义 5.将数据项“China”添加到列表框(List1中成为第-项，应使用的语句是( A.List1.Addltem"China",0 B.List1.Addltem"China",1 C.List1.Addlter"China", D.List1.AddItem"1,China" 1435
试卷代号:2231 座位号巨口 中央广播电视大学2006-2007学年度第二学期“开放专科”期末考试 计算机等专业 Visual Basic程序设计 试题 2007年 7月 题 号 四 五 总 分 分 数 得 分 评卷人 一、单项选择题 (每小题 2分 ，共 30分 ) 1.后缀为.bas的文件表示( )。 A.类模块文件 B.窗体文件 C.标准类模块文件 D.窗体二进制数据文件 2. Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( )。 A，从主程序开始执行 B.按过程顺序执行 C.按模块顺序执行 D.事件驱动 3.有程序代码如下 : Textl. "Next= "Visual Basic" 则 I`extl , Text，和”Visual Basic”分别代表( )。 A.对象，值，属性 B.对象，方法，属性 C.对象，属性，值 U.属性 ，对象，值 4.以下叙述中错误的是( )。 A.一个工程中可以包含多个窗体文件 B.在一个窗体文件中用 Private定义的通用过程能被其它窗体调用 C.在设计 Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型 的文件 U，全局变量必须在标准模块中定义 :J.将 数据项“China>,添加到列表框 (Listl中成 为第一项 ，应使用的语句是( )。 A. List1. AddItem"China",0 B. L,ist1. AddItem"China"，1 C. L.istl. AddItem"China"， D. Listl. AddItem" 1，China" 1435
6.在VB中，下列各项合法的变量名是( )。 A.Integer B.xy-z C.2xyz D.x_yz 7.下列控件中不能响应Click事件的是( )。 A.Frame B.Label C.Timer D.Form 8.不属于VB数据库引擎的是( )。 A.ODBC B.Jet引擎 C.BDE D.OLE DB 9.确定一个控件在窗体上位置的属性是( ）。 A.Width或Height B.Width和Height C.Top或Left D.Top和Lefi 10.如果希望以模态方式显示窗体Forml,下列正确的语句是( A.Forml.Show 0 B.Forml.Show C.Forml.Show 1 D.以下都不正确 11.改变驱动器列表框的Drive属性值，将激活( )事件。 A.KeyDown B.KeyUp C.Change D.Scoll 12.如果创建了命令按钮数组控件，那么该命令按钮的Cick事件的参数是( ）。 A.Index B.Caption C.Tag D.没有参数 13.在下列选项中，不能将图像装入图片框和图像框的是()。 A.在界面设计时，通过Picture属性装入 B.在界面设计时，手工在图像框和图片框中绘制图形 C.在界面设计时，利用剪贴板把图像粘贴上 ).在程序运行期间，用L.oadPicture函数把图形文件装入 14.VB程序中设置断点的按键是( ）。 A.F5键 B.F6键 C.F9键 D.F10键 15.当Winsock控件处于打开状态时，其State属性的值是( ）。 A.0 B.1 C.2 D.6 1436
6.在 v13中，下列各项合法的变量名是( A. Integer C. 2 xyz 7.下列控件中不能响应 Click事件的是 ( A.Frame C. Timer 8.不属于 VB数据库引擎的是( )。 B.xy一z D. x_yz 13. Label D. Form ODI3C BDE B. Jet引擎 D. OLE DB A C. 9.确定一个控件在窗体上位置的属性是( )。 A. Width或 Height B. Width和 Height G Top或 Left D. Top和 Left 10.如果希望 以模态方式显示窗体 Forml，下列正确的语句是( )。 A. Forml. Show 0 B. Forml. Show C. Forml. Show 1 D.以下都不正确 11.改变驱动器列表框的Drive属性值，将激活( )事件。 A. KeyDown B. KeyUp C;. Change D. Scoll 12.如果创建了命令按钮数组控件，那么该命令按钮的Click事件的参数是( A. Index B. Caption C. "I}ag D.没有参数 13.在下列选项中，不能将图像装人图片框和图像框的是( )。 A.在界 面设计时，通过 Picture属性装人 B.在界面设计时，手工在图像框和图片框中绘制图形 C.在界面设计时，利用剪贴板把图像粘贴上 D.在程序运行期间，用 LoadPicture函数把图形文件装人 14. VI3程序 中设置断点的按键是( )。 A. I' J键 I3. F6键 C. F9键 D. I' 10键 15.当W insock控件处于打开状态时，其 State属性的值是( )。 A. 0 I3. 1 C.2 D.6 1436
得分 评卷人 二、填空题（每小题2分，共20分）】 l.欲设置定时器的时间间隔为4秒，则属性Interval的值为 2.表达式16/2-23*8MOD7的值是 3.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可 使用 循环；若要求先判断循环进行的条件，可使用 循环。 4.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picturel,所使用的 语句为 5.将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大 小。 6.Winsock控件主要用来编制基于 或 协议的网络 应用程序。 7.在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。 8.设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第-一维下标从一1 到2，第二维下标从0到3，则相应数组声明语句为 9.闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整除。表 示该条件的逻辑表达式是 10.若窗体的左上角坐标为（一200,250），右下角坐标为(300，-150)，则X轴的正向向 ,Y轴的正向向 1437
二、填空题(每小题 2分，共 20分) 1.欲设置定时器的时间间隔为 4秒 ，则属性 Interval的值为 2.表达式 16/2-2'3 } 8 MOD 7的值是 3.在 Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可 使用 循 环 ;若 要 求 先 判 断 循 环 进 行 的条 件，可 使 用 循环。 4.为了在运行时把当前路径下的图形文件 picturefile. jpg装人图片框Picturel，所使用的 语句为 5.将图片框的 AutoSize属 性设 置成 时，可使图片框根据 图片调 整大 6. Winsock控件主要用 来编制基 于 协 议 的 网 络 应 用 程序 。 7.在控件数组 中，所有元素的 属 性 均 相 同，数 组 中的 每个 元 素 由 属 性指 定 。 8.设某个程序 中要用 到一个二维数组，要求数组名为 A，类型为整型，第一维下标从 一1 到 2，第二维下标从 。到 3，则 相应数 组声 明语句为 9.闰年的条件是:年号(Y)能被 4整除，但不能被 100整除;或者年号能被 100整除 表 示该 条 件 的 逻 辑 表 达 式 是 10.若窗体的左上角坐标为(- 200,250)，右 下角坐标为(300, -150),贝JX轴的正向向 Y轴的正向向 1437
得分 评卷人 三、阅读程序题（共25分）】 阅读下列程序并写出程序运行结果 1.(6分) Private Sub Form_Click() Dim x As Integer Static y As Integer x=X+2 y=y+3 Forml.Print "x=";x,"y=";y End Sub 写出程序运行时连续单击三次窗体后，Foml上的输出结果。 2.(6分) Private Sub Form_Click() Dim i As Integer,k As Integer k=0 For i=1 To 4 lf i>2 Then k=k+3 Exit For Else k=k十2 End If Next i Print i,k End Sub 写出程序运行时单击窗体后，Forml上的输出结果。 1438
得 分 评卷人 三、阅读程序题 (共 25分 ) 阅读下列程序并写出程序运行结果 1. (6分) Private Sub Form_Click() Dim x As Integer Static y As Integer x 二 x + 2 y今 y+ 3 Forml. Print”x=”;x，, }}y=”;Y End Sub 写出程序运行时连续单击三次窗体后，Forml _}的输出结果。 2. (6分) Private Sub Form_Click() Dim i As Integer，k As Integer k = 0 For i= 1 "1'0 4 If i> 2 `l}hen k= k+ 3 Exit For Else k = k 十 2 End If Next Print i，k End Stab 写出程序运行时单击窗体后，Forml上的输出结果 1438
3.(6分) Private Sub Commandl_Click() Dim s As Double Dim i As Integer s=5 1=1 Do While i<6 i=i+2 s=s十i Loop Textl.Text =s End Sub文件框Textl的输出结果是： 4.(7分) Function F(a As Integer) Static c b=b+2 c=c十2 F=a÷b+c End Function Private Sub Commandl_Click() Dim a As Integer a=4 For i 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 1439
3. (6分) Private Sub Commandl_Click() i)im s As Double Dim i As Integer s= 5 i= 1 Do W hile i Commandl Click() Uim a As Integer a = 4 1} or i= 1 "I"o 3 Print F(a) Next End Sub 写出程序运行时，单击命 令按钮在窗体上的输出结果 。 14;39
得 分 评卷人 四、完善程序题（共10分） 已知存在一名为“学生”的SQL Server数据库，其中的“students'"数据表用来存储学生的 基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添 加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL.Server数据库；当点击“增 加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界 面如下图所示。 年，增加学生记录 *L5 字号：29050001 姓名： 刘丽 5坐地量5 籍贯： 山东省 性别： 增】 返回X] 图1 程序如下，请补充完整 声明对象变量AD)n,用于创建与数据库的连接 Private ADOen As Connection Private Sub Form_Load() 连接SQL Server数据库 Dimt strDB As String strl)B "Provider=SQLOLED)B:ISF;User ID=sa;Password=;Database =[1] 1f ADOen Is Nothing Then Set ADOen =[2] ADOen.Open strDB End If End Sub Private Sub CommandI_Click() 1440
得 分 评卷人 四、完善程序题 (共 10分 ) 已知存在一名为“学生”的 SQL Server数据库，其中的“st udenls”数据表用来存储学生的 基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向 students表中添 加学生记录。程序的基本逻辑是:当窗体被加载时，程序联接 SQI. Server数据库;当点击“增 加”按钮时 ，首先查询学号是否重复 ，如果不重复则 向 students表 中添加学生记录。其运行界 面如一卜图所示。 彝 灌 燕洲司 雌 一愁 旗 骂 川 雄 减 撼 洲 艰 明 书 撰 昌 翻 桨 州 娜 1 毛段执 洲 洲 } t_'tu7 r(t;ji份洲一诊溉份毕奏 }! }t_Y }三蕊撇 _气 冲 ‘ 乞 万争 泪 ‘汉 汀 甲 菠 : 御 4 兼 脱 缎 洲 一一-丫一 厂 +} }i[1('?l 汤 从赶以、咋房 ft}7到 图 I 程序如下 。请补充完整 ·声明对象变量AD()cn，用于创建与数据库的连接 Private ADOcn As Connection Private Sub Form_ Load() ’连接 SQI_ Server数据库 I)irti、 trDI3 As String strIII3= ’，Provider=SQL(}LEDB; LSF:L ser II)=::、;Password一;Database=仁1] 1F A110cn Is N}}tbing Then Set AIK)c}n一仁2] ADOcn. Open strDl3 End If End Sub Private Sub Comrnandl_Click() I4}0
增加学生记录 Dim strSQL As String Dim ADOrs As New Recordset ADOrs.[3] =ADOcn ADOrs.Open"Select学号From Students Where学号="十"，"+Texi1十"，" If Not [4] Then MsgBox"你输入的学号已存在，不能新增加！" Else StrSQL="Insert Into students(学号，姓名，，籍贯，性别) StrSQL=strSQL+Values("+""+text1+","+text2+","+text3+",'" +text4+")" ADOen.Execute [5] MsgBox"添加成功，请继续！" End If Private Sub Command2_Click() Unload Me End Sub 得 分 评卷人 五、编写程序题（共15分） 购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次 购物(1)在200元以上者，按九五折优惠：(2)在300元以上者，按九折优惠：(3)400元以上者， 按八折优惠；(4)600元以上者按七折优惠。在窗体上.添加两个文本框和一个命令按钮，要求 在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行 结果如图2所示。 高Form1 ☐▣X 购物商品总金额 忧惠价为 400 320 计算 图2 1441
增 加学生记录 DimStrSQL As String Dim ADOrs As New Recordset ADOrs.仁3] =ADOcn ADOrs. Open "Select学号 From Students Where学号 =”+”‘" -}-'Next 1 }- "”， If Not [4] Then Msgl3ax”你输入的学号已存在，不能新增加!” Else StrSQL="Insert Into students(学号，姓名，，籍贯，性别) StrSQL=strSQL-}- Values(”+””，-} text 1+”’，‘”+text2+”’，”，+text3+”’，”’ +text 4-I-”‘)” ADOcn. Execute [5] MsgBox”添加成功，请继续!” End If Private Sub Command2_Click() Unload Me End Sub 五、编写程序题 (共 此 分) 购物优惠程序。某商场为了加速促成商品流通 ，采用购物打折的优惠办法，每位顾客一次 购物(I)在 200元以_仁者，按九五折优惠 ;(2)在 300元以上者 ，按九折优惠 ;(3)400元以上者， 按八折优惠;(4)600元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求 在 ’hextl中输人购物商品总金额，单击命令按钮，在 ‘1 ext2中输出优惠后的价格。程序运行 结果如图 2所示 。 购物商品总金额 优惠价为 aoo 图 2 1441
试卷代号：2231 中央广播电视大学2006一2007学年度第二学期“开放专科”期未考试 计算机等专业Visual Basic程序设计 试题答案及评分标准 (供参考) 2007年7月 一、单项选择题（每小题2分，共30分）】 1.C 2.D 3.C 4.B 5.A 6.D 7.C 8.C 9.D 10.C 11.C 12.A 13.B 14.C 15.B 二、填空题（每题2分，共20分） 1.4000 2.7 3.For…Next循环 Do…Loop循环 4.Picturel.Picture LoadPrcture("picturefile.jpg") 5.True 6.TCP/IP UDP 7.Name Index 8.Dim A(-1 To 2,0 To 3)As Integer 9.Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0 10.右 上 三、阅读程序题（共25分） 1.x=2 y=3 X=2 y=6 x=2 y=9 2.37 3.20 4.8 10 12 1442
试卷代号:2231 中央广播电视大学20t}6-2007学年度第二学期“开放专科”期末考试 计算机等专业 Visual Basic程序设计 试题答案及评分标准 (供参考) 2007年 7月 一、单项选择题(每小题 2分，共 30分) 1, C 2. D 3, C 4. B 6. D 7. C 8. C 9. D 11.C 12.A 13.B 14.C 二、填空题(每题 2分，共 20分) 1. 4000 2.7 3, For二Next循环 Do"二Loop循环 4, Picturel. Picture= LoadPrcture(”picturefile, jpg") 5. "true 6, "I}CP/ IP UDP 7, Name Index 8. Dim A(一1 }ro z，0 To 3) A} Integer 9. }' MOD 4二0 And Y MOD 1000 OR Y MOD 400=0 10.右 上 三、阅读程序题(共 25分) 1, x-=2 y=3 X=2 y“6 x=2 y=9 2.3 7 3. 20 4.S 10 12 1442 5. A 10. C 15. B
四、完善程序题（共10分） [1]学生 [2]New Connection [3]Active Connection [4]ADOrs.EOF [5]strSQL 五、编写程序题（共15分） 参考答案： Private Sub Command1_Click() Dim x As Single,y As Single x=Val(Text1.Text) If x<200 Then y=x Else If x<300 Then y=9.5￥x Else If x<400 Then y=0.9￥x Else If x<600 Then y=0.8￥x Else y=0.70x End If End If End If End If Text2.Text =y End Sub 1443
四、完善程序题(共 10分) 仁1〕学生 [2]New Connection [3] Active Connection [4] ADOrs. EOF 仁5] strSQL 五、编写程序题(共 15分 ) 参考答案: Private Sub Commandl C lick() Dim x As Single, y As Single x = Val(Textl. Text) If x< 200 Then Y 今 x Else If x< 300 Then Y = Else 9.5 * x If x< 400 Then Y= 0.9 } x Else If x< 600 Then Y= 0.8 * x Else Y“ 0.7 * x End If End If End If End If Text2. Text“ Y End Sub 1443