试卷代号：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< 6 1= 1+ 2 S= s+ i Loop Textl. }I"ext二 s End Sub文件框 ’I"extl的输出结果是: 心.(7分) Function F(a As Integer) Static c b = b + 2 c= c+ 2 F = a十 b 一书 c End Function Private Sul> Commandl Click() Uim a As Integer a = 4 1} or i= 1 "I"o 3 Print F(a) Next End Sub 写出程序运行时，单击命 令按钮在窗体上的输出结果 。 14;39