试卷代号：2231 座位号 国家开放大学（中央广播电视大学）2014年秋季学期“开放专科”期末考试 Visual Basic程序设计试题 2015年1月 题 号 二 三 四 五 总 分 分 数 得 分 评卷人 一、单项选择题（每小题2分，共30分） l.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是()。 A.从主程序开始执行 B.按过程顺序执行 C.按模块顺序执行 D.事件驱动 2.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是( ）。 A.窗体设计 B.代码 C.属性 D.工程资源管理器窗口 3.为了保存一个Visual Basic应用程序，下列说法正确的是()。 A.只保存窗体文件(.frm) B.只保存工程文件(.vbp) C.分别保存工程文件和标准模块文件(.bas) D.分别保存工程文件、窗体文件和标准模块文件 4.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是()。 A.属性、控件和方法 B.属性、事件和方法 C.窗体、控件和过程 D.控件、过程和模块 5.在VB中，下列合法的变量名是() A.4ab B.a-b C.a_4 D.integer 981
试卷代号 :2231 座位号rn 国家开放大学(中央广播电视大学)2014 年秋季学期"开放专科"期末考试 Visual Basic 程序设计试题 2015 四[五|总分| i 一、单项选择题(每小题 分，共 30 分) 1. Visual Basic 是→种面向对象的程序设计语言，所采用的编程机制是( )。 A. 从主程序开始执行 B.按过程顺序执行 c.按模块顺序执行 D.事件驱动 2. 在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是( )。 A. 窗体设计 c.属性 B. 代码 D.工程资源管理器窗口 3. 为了保存一个 Visual Basic 应用程序，下列说法正确的是。 A. 只保存窗体文件(. frm) B. 只保存工程文件(. vbp) c.分别保存工程文件和标准模块文件(. bas) D. 分别保存工程文件、窗体文件和标准模块文件 4. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是)。 A. 属性、控件和方法 B. 属性、事件和方法 c.窗体、控件和过程 D. 控件、过程和模块 5. VB 中，下列合法的变量名是) A.4ab B. a-b C. a_ 4 D. integer 981
6.语句x=x+1的正确含义是()。 A.变量x的值与x十1的值相等 B.将变量x的值存到x十1中去 C.将变量×的值加1后赋给变量x D.变量x的值为1 7.语句Print'"5￥5"的执行结果是()。 A.25 B."5￥5" C.出现错误提示 D.55 8.要在窗体Form1内显示"欢迎您！"，使用的语句是() A.Form,caption="欢迎您！" B.Forml.caption="欢迎您！" C.Forml.print"欢迎您！" D.Form.print"欢迎您！" 9.在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是( ）。 A.Show B.Hide C.Load D.UnLoand 10.若要使标签控件能自动适应所显示的文本，则应设置的属性是( A.Visible B.Caption C.BorderStyle D.AutoSize 11.将定时器的时间间隔定位1秒，则定时器的Interval属性值应为( )。 A.1000 B.1 C.10 D.100 12.关于语句行，下列说法正确的是( A.一行只能写一条语句 B.一条语句可以分多行书写 C.每行的首字符必须大写 D.长度不能超过255个字符 13.DimA(1To6,6)As String定义的数组包含的元素个数是( )。 A.36 B.49 C.42 D.50 14.为了清除图片框Picture1中的图形，应采取的正确方法是()。 A.选择图片框，然后按Del键 B.执行语句Picturel.Picture=LoadPicture(") C.执行语句Picturel.Picture一"" D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键 15.ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是()。 A.Command B.Connection C.Recordset D.Field 982
6. 语句 x=x 的正确含义是( )。 A. 变量 的值与 x+1 的值相等 c.将变量 的值加 后赋给变量 7. 语句 Print"5 关 5" 的执行结果是( A. 25 c.出现错误提示 B.将变量 的值存到 中去 D.变量 的值为 B. "5 5" 8. 要在窗体 Form1 内显示"欢迎您!"，使用的语句是( ) D. A. Form. caption=-~" 欢迎您! " B. Form1. caption ="欢迎您! " C. Form1. print "欢迎您! " D. Form. print 欢迎您! " 9. Visual Basic 中，要使一个窗体不可见，但不从内存中释放，应使用的语句是。 A. Show C. Load B. Hide 10. 若要使标签控件能自动适应所显示的文本，则应设置的属性是( )。 D. UnLoand +E VJ e ‘ AC QdrA B. Caption D. AutoSize 1.将定时器的时间间隔定位 秒，则定时器的 Interval 属性值应为( )。 A. 1000 C. 10 12. 关于语句行，下列说法正确的是( A. 一行只能写一条语句 c.每行的首字符必须大写 B. l D. 100 B. 一条语句可以分多行书写 D.氏度不能越过 255 个字符 A.36 13. Dim A C1 To 6 , 6) As String 定义的数组包含的元素个数是。 B.49 C. 42 D. 50 14. 为了清除图片框 Picture1 中的图形，应采取的正确方法是(。 A. 选择图片框，然后按 Del B. 执行语句 Picture1. Picture LoadPictureC"") c.执行语句 Picture1. Picture 1111 D. 选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 15. ADO 对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是)。 A. Command C. Recordset 982 B. Connection D. Field
得 分 评卷人 二、填空题（每小题2分，共20分】 16.全局变量必须在 模块中定义，所使用的关键字为 17.设某个程序中要用到一个二维数组，要求数组名为A,类型为字符串类型，第一维下标 从1到3，第二维下标从0到3，则相应的数组声明语句为 0 18.在VB中想获得帮助，需要按的键是 ；。 l9.Visual Basic程序开发有三种模式，即设计模式、 模式和 模式。 20.如果要每隔0.5s产生一个Timer事件，则Interval属性应设置为 21.程序的运行结果和程序员的设想有出入时产生的错误称为 22.VB中参数传递的方式有两种，一种是 参数，另一种是 参数。 23.在VB的DAO、RIDO、ADO三种数据对象模型中，主要采用OLE DB访问数据库的 是 24.Winsock控件主要用来编制基于 或 协议的网络 应用程序。 25.矩形、三角形、正方形三种图形中，不能用Shape控件绘制的是 得分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果 26.(6分) Private Sub Commandl_Click() Static Sum As Integer Dim I As Integer 983
二、填空题{每小题 分，共 20 分) 16. 全局变量必须在 模块中定义，所使用的关键字为 17. 设某个程序中要用到一个二维数组，要求数组名为 ，类型为字符串类型，第一维下标 ，第二维下标从 ，则相应的数组声明语句为 18. VB 中想获得帮助，需要按的键是 19. Visual Basic 程序开发有三种模式，即设计模式、一一一一一模式和 模式。 20. 如果要每隔 O. 5s 产生一个 Timer 事件，则 Interval 属性应设置为 1.程序的运行结果和程序员的设想有出人时产生的错误称为 22. VB 中参数传递的方式有两种，一种是 参数。 参数，另一种是 23. VB DAO RDO ADO 三种数据对象模型中，主要采用 OLE DB 访问数据库的 24. Winsock 控件主要用来编制基于 应用程序。 25. 矩形、三角形、正方形三种图形中，不能用 Shape 控件绘制的是 或一一一一一一一协议的网络 三、阅读程序题(共 25 分) 阅读下列程序井写出程序运行结果 26. (6 分) Private Sub Commandl_ClickO Static Sum As lnteger Dim 1 As Integer 983
1=3 Do Sum Sum+I I=I+1 Loop While I<=6 Text1.Text Sum Text2.Text I End Sub 程序运行两次单击Commandl按纽后，文本框Text1、Text2上的输出结果是： 27.(6分) Function F(a As Integer) Static c b=b+3 c=c十3 F=a +b+c End Function Private Sub Command1_Click() Dim a As Integer a=4 For I 1 To 6 Step 2 Print F(a) Next I End Sub 程序运行后单击命令按钮，在窗体上的输出结果是： 28.(6分) Private Sub Commandl_Click() S=0 984
1 = 3 00 Sum = Sum + 1 1 = 1 + 1 Loop While 1 < = 6 Textl. Text = Sum Text2. Text = 1 End Sub 程序运行两次单击 Commandl 按纽后，文本框 Textl Text2 上的输出结果是: 27. (6 分) Function F(a As Integer) Static c b=b+3 c F = a End Function Private Sub CommandLClíckO Oim a As Integer a = 4 F or 1 = 1 T 0 6 Step 2 Prínt F(a) Next 1 End Sub 程序运行后单击命令按钮，在窗体上的输出结果是: 28. (6 分) Private Sub CommandLClickO S=o 984
For i=1 To 15 x=2*i-1 if x Mod 3=0 Then S=S+1 Next i Labell.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是： 29.(7分) Private Sub Command1_Click() Dim a As Integer:Dim b As Integer a=10:b=20 Changel a,b Print "Al=";a,"BI=";b a=10:b=20 Change2 a,b Print "A2=";a,"B2=";b End Sub Sub Changel(x As Integer,y As Integer) t-x:x y:y t End Sub Sub Change2(By Val x As Integer,ByVal y As Integer) t-x:x y:y=t End Sub 程序运行后，单击command1按钮，在窗体上输出的结果是： 得分 评卷人 四、完善程序题（共10分）》 30.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框Drivel的默认驱动器设置为e盘，选择Fle1中所列的图片文件(*， 985
For i=l To 15 x=2 i-1 if x Mod 3=0 Then S=S+l Next i Label1. Caption = S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是: 29. (7 分) Private Sub CommandLClickO Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a. b Print "Al ="; a , "B1 ="; b a = 10: b = 20 Change2 a , b Print "A2="; a , "B2="; b End Sub Sub ChangeICx As Integer. y As Integer) t x: x y: y t End Sub Sub Change2CByVal x As Integer , ByVal y As Integer) x: X y: y t End Sub 程序运行后，单击 commandl 按钮，在窗体上输出的结果是: 四、完善程序题{共 10 分) 30. 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框 Drivel 的默认驱动器设置为 盘，选择 File1 中所列的图片文件(铃. 985