试卷代号：2231 座位■ 中央广播电视大学2009一2010学年度第一学期“开放专科”期末考试 Visual Basic程序设计试题 2010年1月 题 号 二 三 四 五 总 分 分： 数 得 分 评卷人 一、单项选择题（每小题2分，共30分） 1.与传统的程序设计语言相比，Visual Basic最突出的特点是( )。 A,结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 2.如果要在文本框中键入字符时，只显示某个字符，如星号()，应设置文本框的( 属性。 A.Caption B.PasswordChar C.Text D.Char 3.工程文件的扩展名是( A..vbp B..frm C..bas D.frx 4.有程序代码如下： Text1.Text="VB编程世界" 则Textl,Text,和"VB编程世界"分别代表()。 A.对象，值，属性 B.对象，属性，值 C.对象，方法，属性 D.属性，对象，值 5.下列赋值语句正确的是( )。 A.B+C=A B.A=B+C C.-B=A D.5=A+B 1390
试卷代号:2231 座位号口口 中央广播电视大学2009-2010学年度第一学期“开放专科”期末考试 Visual Basic程序设计 试题 2010年 1月 题 号 四 五 总 分 分 一数 得 分 评卷人 一、单项选择题(每小题 2分，共 30分) 2 属性 。 .与传统的程序设计语言相比，Visual Basi。最突出的特点是( )。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D，程序调试技术 .如果要在文本框中键人字符时，只显示某个字符，如星号(，)，应设置文本框的( A. Caption C. Text B. PasswordChar D. Char B. .f rm D二 rx "V B编程世界” 编程世界”分别代表( 对象，属性 ，值 属性，对象 ，值 B. D. 3.工程文件的扩展名是( A. .vbp C. .bas 4.有程序代码如下 : Textl. Text= 则 Textl,Text，和”VB A.对象，值，属性 C.对象，方法，属性 5.下列赋值语句正确的是( A. B+C =A C.-B= A 1390 A= B+ C 5= A+ B B. D
6.当一个工程中含有多个窗体时，其中的启动窗体是()。 A.启动VB时创建的第一个窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体 7.保存一个工程文件至少应该保存两个文件，这两个文件分别是()。 A.文本文件和工程文件 B.窗体文件和工程文件 C.窗体文件和标准模块文件 D.类模块文件和工程文件 8.DimA(5,1To4)定义的数组包含的元素的个数是()。 A.20 B.24 C.25 D.动态变化 9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写， 可以在行末使用续行字符( ),表示下一行是当前行的继续。 A.直接回车 B.一个下划字符(_) C.一个空格加一个下划字符() D.一个空格加一个连字符(-) 10.“x是小于50的非负数”，用VB表达式表示正确的是( )。 A.0≤x<50 B.0<=x<50 C.0<=xAnd x<50 D.0<=xOrx<50 11.确定一个控件在窗体上位置的属性是( )。 A.Width或Height B.Width和Height C.Top或Left D.Top和Left 12.不属于VB数据库引擎的是( )。 A.ODBC B.Jet引擎 C.BDE D.OLE DB 13.为了使图像框Image中的图形自动适应图像框的大小，则应()。 A.将其Stretch属性值设置为True B.将其Stretch属性值设置为False C.将其AutoSize属性值设置为True D.将其AutoSize属性值设置为False l4.要向图片框P1中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句( )。 A.Picturel.Picture="d:\hainan\zhiwu.bmp B.Picturel.Picture=LoadPicture("d:\hainan\zhiwu.bmp " C.P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp) D.P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp " l5.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是( ）。 A.Open B.Execute C.CommandType D.ActiveConnection 1391
6.当一个工程中含有多个窗体时，其中的启动窗体是( )。 A.启动 VB时创建的第一个窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体 7.保存一个工程文件至少应该保存两个文件，这两个文件分别是( )。 A.文本文件和工程文件 B.窗体文件和工程文件 C.窗体文件和标准模块文件 D.类模块文件和工程文件 8. Dirn A(5,1 To 4)定义的数组包含的元素的个数是( )。 A.20 B.24 C. 25 D.动态变化 9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写， 可以在行末使用续行字符( )，表示下一行是当前行的继续。 A.直接回车 B.一个下划字符(_) C.一个空格加一个下划字符(_) D.一个空格加一个连字符(-) 10. "x是小于 50的非负数，，，用 VB表达式表示正确的是( )。 A. 0成x<50 B. 0<=x<50 C. 0< =xAnd x< 50 D. 0<二xOrx<50 11.确定一个控件在窗体上位置的属性是( )。 A. Width或Height B. Width和Height C. Top或 Left D. Top和 Left 12.不属于VB数据库引擎的是( )。 A. ODBC B. Jet引擎 C. BDE D. OLE DB 13.为了使图像框 Image中的图形自动适应图像框的大小，则应( )。 A.将其 Stretch属性值设置为 True B.将其 Stretch属性值设置为 False C.将其 AutoSize属性值设置为 True D.将其 AutoSize属性值设置为 False 14.要向图片框 P1中加载“d: \hainan\zhiwu.bmp'，图像文件，应使用语句( )。 A. Picturel. Picture二”d: \hainan\zhiwu.bmp” B. Picturel. Picture= LoadPicture("d:\hainan\zhiwu.bmp”) C. Pl. Picture二LoadPicture(d: \hainan\zhiwu.bmp) D. Pl. Picture= LoadPicture("d:\hainan\zhiwu.bmp”) 15.使用 ADO对象模型时，使 Recordset和 Connection对象建立连接的属性是( )。 A. Open B. Execute C. CommandType D. ActiveConnection 1391
得分 评卷人 二、填空题（每小题2分，共20分）》 1.在VB中，事件过程名由 和 构成。 2.表达式6+10Mod4*2十1的值是 3.定时器(Timer)控件可识别的事件是Timer,发生该事件的时间间隔由定时器的 属性设置，其单位为 4,Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是 5.控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。 6.WinsockI.Listen语句的含义是 0 7.若窗体的左上角坐标为(-200,250)，右下角坐标为(300,150)，则X轴的正向向 ,Y轴的正向向 &.使用ADO模型时，可通过ActiveConnection属性建立 和 对象的连接。 9.过程级变量是指在 声明的变量，用 关键字来声明。 10.VB中参数传递的方式有两种，一种是引用传递参数，另一种是 参 数，引用传递参数方式是将 传递给Sub或Function过程。 得 分 评卷人 三、阅读程序题（共25分）】 阅读下列程序并写出程序运行结果 1.(6分) Private Sub Form_Click() Dim a As Integer Static b As Integer a=a十3 b=b+5 Form1.Print "a=";a,"b=";b End Sub 程序运行后连续单击三次窗体，Forml上的输出结果是： 1392
得 分 评卷人 二、填空题(每小题 2分，共20分) .在 VB中，事件过程名由 和 ，表达式 6十10 Mod 4，2十1的值是 ，定时器(Timer)控件可识别的事件是 Timer, 构成。 发生该事件的时间间隔由定时器的 属性设置，其单位为 4. Visual Basic是 一 种 面 向 对 象 的 程 序 设 计 语 言，构 成 对 象 的 三 要 素 是 5.控件数组的名字由_ 属性指定，而数组中的每个元素由_ 属性决定。 6. Winsockl. Listen语句的含义是 7.若窗体的左上角坐标为 (-200,250)，右下角坐标为 (300,-150)，则 X轴的正 向向 ,Y轴的正向向 8.使 用 ADO 模 型 时，可 通 过 ActiveConnection属 性 建 立 和 对象的连接。 9.过程级变量是指在 声明的变量，用 关键字来声明。 10. VB中参数传递的方式有两种，一种是引用传递参数，另一种是_ 参 数，引用传递参数方式是将 传递给 Sub或Function过程。 得 分 评卷人 三、阅读程序题 (共 25分) 阅读下列程序并写出程序运行结果 1.(6分) Private Sub Form_Click() Dima As Integer Static b As Integer = a+ 3 二 b +5 Forml. Print "a=”;a,"b二”;b End Sub 程序运行后连续单击三次窗体 ，Forml上的输 出结果是 : 1392
2.(6分) Function F(a As Integer) Static c b=b+5 c=c+5 F=a +b+c End Function Private Sub Command1_Click() Dim a As Integer a=5 For i=1 To 3 Print F(a) Next i End Sub 程序运行后单击命令按钮，窗体上的输出结果是： 3.(6分) Private Sub Form_Click() Dim A(1 To 4)As String Dim c As Integer Dim j As Integer A(1)="5" A(2)="10" A(3)="15 A(4)="20" c=1 Forj=1To 4 c.=c+Val(A(j)) Next j Print c End Sub 程序运行后单击窗体，窗体Forml上的结果是： 1393
2. (6分) Function F(a As Integer) Static c = b+ 5 = c+ 5 F 二 a+ b+ c End Function Private Sub Commandl C lick() Dim a As Integer = 1 To 3 Print F(a) Next i End Sub 程序运行后单击命令按钮，窗体上的输出结果是: 3.0 分) Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer AQ)= 11511 A(2)= "Ion A(3)‘ "15" A(4)今 "20" c宁 1 For j二1 To 4 c= c+ Val(A(j)) Next j Print c End Sub 程序运行后单击窗体，窗体 Form l上的结果是 : 1393
4.(7分) Private Sub Form_Click() Dim i As Integer,k As Integer k=1 For i 1 To 4 If i>3 Then k=k+4 Exit For Else k=k+1 End If Next i Print i,k End Sub 程序运行时单击窗体后，Forml上的输出结果是： 得 分 评卷人 图 四、完善程序题（共10分） 1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框Drivel的默认驱动器设置为e盘，选择ilel中所列的图片文件 (C￥.bmp,*gif和jpg),则相应的图片显示在图片框Picturel中，文件的路径显示在文本框 中。程序运行结果如图1所示。 :【system】 】1ser生 Docunents 桥yP主ctures 示例图片 81nehi11空.J念 置te111e亚 我ter.3p花 cEoc电nts and Setting名sA姐1srs1 Docuentsy Ficture:示例图片 图】程序运行界面 1394
1. (7分) Private Sub Form-Click() Dim i As Integer, k As Integer k = 1 For i二 1To4 If I> 3 Then k = k 十 4 Exit For Else k= k+ 1 End If Next i Print 1，k End Sub 程序运行时单击窗体后，Forml上的输出结果是: 得 分 评卷人 四、完善程序题(共 10分) 1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序 运行后，驱动器列表框 Drivel的默认驱动器设置为 e盘，选择 File.1中所列的图片文件 ( * . burp, * .g1f和*Jpg)，则相应的图片显示在图片框 Picturel中，文件的路径显示在文本框 中 。程序运行结果如图 1.所示。 }划 1 程序运行界而 1394
程序如下，请补充完整。 Private Sub Form_Load() [1] Filel.Pattern ="*.bmp;*.gif;jpg" End Sub Private Sub Drivel_change() Dir1.Path=[2] Text1.Text =Drivel.Drive End Sub Private Sub Dirl_Change() [3] Text1.Text [4] End Sub Private Sub Filel_click() Picturel.[5] LoadPicture(Filel.Path +"\Filel.FileName) FileName Filel.Path "\"Filel.FileName Text1.Text FileName End Sub 得 分 评卷人 五、编写程序题（共15分） 编写一程序，要求单击“开始”按钮(Command1),在列表框(List1)中输出100~200之间 不能被3整除的数，单击清除按钮(Command:2),清除文本框中的全部内容。程序运行结果如 图2所示。 1002下之间了能法黑年a地每国 107 1111351514922 图2 1395
程序如下，请补充完整。 Private Sub Form_Load() [1] Filel.Pattern= ”，.bmp;二.gif ; * Jpg" End Sub Private Sub Drivel_ change() Dirl. Path= [2〕 Textl. Text= Drivel. Drive End Sub Private Sub Dirl C hange() [3] Textl. Text= [4] End Sub Private Sub Filel_click() Picturel.一卫些一-— =LoadPicture(File1. Path+”\”+Filel. FileName) FileName= Filel. Path+ ”\”+ Filel. FileName Textl. Text= FileName End Sub 得 分 评卷人 五、编写程序题(共 15分) 编写一程序，要求单击“开始”按钮(Commandl )，在列表框(Listl )中输出100.200之间 不能被 3整除的数，单击清除按钮(Command2)，清除文本框中的全部内容。程序运行结果如 翻 2所示。 图 2 1395
试卷代号：2231 中央广播电视大学2009一2010学年度第一学期“开放专科”期末考试 Visual Basic程序设计试题答案及评分标准 (供参考) 2010年1月 一、单项选择题（每小题2分，共30分）》 1.C 2.B 3.A 4.B 5.B 6.D 7.B 8.B 9.C 10.C 11.D 12.C 13.A 14.D 15.D 二、填空题（每空2分，共20分） 1.对象名 事件名 2.9 3.Interval ms 4.属性、事件和方法 5.Name Index 6.使服务程序处于侦听状态 7.右 上 8.Recordset Connection 9.过程内部 Dim 10.按值传递 实参变量的内存地址 三、阅读程序题（共25分） 1. a=3 b=5 a=3 b=10 a=3 b=15 2. 15 20 25 1396
试卷代号:2231 中央广播电视大学2009-2010学年度第一学期“开放专科”期末考试 Visual Basic程序设计 试题答案及评分标准 (供参考) 2010年 1月 一、单项选择题(每小题2分，共30分) 1. C 2. B 3. A 6. D 7. B 8. B 11. D 12. C 13. A 二、坡空题(每空 2分.共 20分) 1.对象名 事件名 2. 9 3. Interval ms 4. B 5.B 9.C 14. D 10. C 15. D 4.属性、事件和方法 5. Name Index 6.使服务程序处于侦听状态 7.右 上 8. Recordset Connection 9.过程内部 Dim 10.按值传递 实参变量的内存地址 三、阅读程序题(共 25分) 1. n U 工匕 尸0 1.1 月.上 a二 3 b= b= 15 20 25 1396
3. 51 4. 48 四、完善程序题（共10分） [1]Drivel.Drive ="e:\" [2]Drivel.Drive [3]Filel.Path=Dir1.Path [4]Dir1.Path [5]Picture 五、编写程序题（共15分）】 参考答案： Private Sub Commandl_Click() Dim x As Integer x=100 Do Until x 200 If x Mod 3<>0 Then Listl.AddItem x End If x=x+1 Loop End Sub Private Sub Command2_Click() List1.Clear End Sub 1397
3. 51 4. 4 8 四、完善程序题 (共 10分 ) [1] Drivel. Drive一”e:\” [2] Drivel. Drive [3] Filel. Path二 Dirl. Path [4] Dirl. Path [5] Picture 五、编写程序题 (共 15分 ) 参考答案 : Private Sub Commandl C lick() Dimx As Integer x = 100 Do Until x> 200 If x Mod 3<> 0 Then Listl. AddItem x End If x = x + 1 Loop End Sub Private Sub Command2_Click() Listl. Clear End Sub 1397