试卷代号：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
bmp,.gif和*.jPg),则相应的图片显示在图片框Picturel中，文件的路径显示在文本框 中。程序运行结果如图1所示。 图片欣资 园c:[syst】 A11 Users Documents 你时Pictures 子司片 Blue hills.jpe Sunset,jP花 Winter.jpg c:\Docu确nts and Settingsl1 Users\Doc确nts周y Pictur意s示例图片 图1程序运行界面 程序如下，请补充完整。 Private Sub Form_Load() [1] Filel.Pattern "*bmp;*gif;*jpg" End Sub Private Sub Drivel_change() [2] Drivel.Drive Textl.Text Drivel.Drive End Sub Private Sub Dirl_Change() [3] Textl.Text =[4] End Sub Private Sub Filel_click() Picturel.[5] LoadPicture(Filel.Path +""Filel. FileName) 986
bmp ，势. gif 和祷. jpg) ，则相应的图片显示在图片框 Picture1 中，文件的路径显示在文本框 中。程序运行结果如图 所示。 程序运行界面 程序如下，请补充完整。 Private Sub Form… Load() [lJ Filel. Pattern = "祷. bmp; 矢. gif; 长 .jpg" End Sub Private Sub DriveLchangeC) [2J Textl. Text Drivel. Dríve End Sub Private Sub DirLChange() [3J Textl. Text =[ 4J End Sub Private Sub FileLclickO Picturel. [5J FíleName) 986 Drivel. Drive LoadPicture C Filel. Path + '''' + Filel
FileName Filel.Path +""Filel.FileName Text1.Text FileName End Sub 得 分 评卷人 五、编写程序题（共15分）】 31.编写简单的工资计算程序，要求在Textl、Text2、Text3中分别输人基本工资、奖金、 扣款，单击"计算"按钮(Commandl)后，首先计算"应发工资"(Text4),然后根据"应发工资"计 算个人所得税(Text5),最后计算出实发工资(Text6). (1)应发工资=基本工资十奖金一扣款 (2)个人所得税的计算规则假设为： ①当应发工资在2000元以内部分（含2000元），不扣所得税。 ②当应发工资大2000，但小于等于4000元时，超过2000元的部分按10%计算所得税。 ③当应发工资大于4000，超过4000的部分按20%扣税。 程序运行结果如图2所示。 基本工资 5000 奖金 扣 200 应发工资 5800 个人所得我 320 出 实发工资 5280 图2 987
FileName = File1. Path 十."， + Filel. FileName Text1. Text = FíleName End Sub |得分|评卷人 i 五、编写程序题(共 15 分) 1.编写简单的工资计算程序，要求在 Textl Text2 Text3 中分别输入基本工资、奖金、 扣款，单击"计算"按钮 (Command1) 后，首先计算"应发工资" (Text的，然后根据"应发工资"计 算个人所得税 (Text日，最后计算出实发工资 (Text们。 (1)应发工资=基本工资+奖金一扣款 (2) 个人所得税的计算规则假设为: ①当应发工资在 2000 元以内部分(含 2000 元) ，不扣所得税。 ②当应发工资大 2000 ，但小于等于 4000 元时，超过 2000 元的部分按 10% 计算所得税。 ③当应发工资大于 4000 ，超过 4000 的部分按 20% 扣税。 程序运行结果如图 所示。 987
试卷代号：2231 国家开放大学（中央广播电视大学）2014年秋季学期“开放专科”期末考试 Visual Basic程序设计试题答案及评分标准 (供参考) 2015年1月 一、单项选择题（每小题2分，共30分）】 1.D 2.D 3.D 4.B 5.C 6.C 7.D 8.C 9.B 10.D 11.A 12.B 13.C 14.B 15.B 二、填空题（每小题2分，共20分） 16.标准 Public 17.Dim A(1To 3,0To 3)As String 18.F1 19.中断 执行 20.500 21.逻辑错误 22.引用参数传递（或按址传递） 按值传递 23.ADO 24.TCP/IP UDP 25.三角形 三、阅读程序题（共25分】 26.(6分) 36 7 27.(6分) 10 13 16 28.(6分) 29.(7分) 988
试卷代号 :2231 国家开放大学(中央广播电视大学 )2014 年秋季学期"开放专科"期末考试 Visual Basic 程序设计试题答案及评分标准 (供参考) 一、单项选择题(每小题 分，共 30 分) 1. D 6. C 11. A 2. D 7. D 12. B 二、填空题{每小题 分，共 20 分) 16. 标准 Public 3.D 8. C 13. C 17. Dim A(lTo 3 ,OTo 3) As String 18.F1 19. 中断 执行 20.500 1.逻辑错误 22. 引用参数传递(或按址传递) 按值传递 23. ADO 24. TCP /IP UDP 25. 三角形 三、阅读程序题{共 25 分) 26. (6 分) 36 7 27. (6 分) 10 13 16 28. (6 分) 5 29. (7 分) 988 4. B 9. B 14.B 5. C 10. D 15. B 2015
A1=40 B1=20 A2=20 B2=40 四、完善程序题（共10分）】 30.[1]Drivel.Drive ="e:\ [2]Dir1.Path [3]Filel.Path Dir1.Path [4]Dir1.Path [5]Picture 五、编写程序题（共15分） 31.参考答案： Private Sub Command1_Click() Text4 Val(Text1)+Val(Text2)-Val(Text3) If Val(Text4)2000 And Val(Text4)<=4000 Then Text5 (Val(Text4)-2000)*0.1 Else Text5 =(Val(Text4)-4000)*0.2 End If Text6 Val(Text4)-Val(Text5) End Sub Private Sub Command2_Click() Unload Me End Sub 989
A1= 40 B1= 20 A2= 20 B2= 40 四、完善程序题{共 10 分) 30. [1 J Drive1. Drive = "e 八" [2J Dir1. Path [3J File1. Path = Dir1. Path [4J Dir1. Path [5J Picture 五、编写程序题{共 15 分} 1.参考答案: Private Sub CommandLClickO Text4 = Val(Textl) + Val(Text2) - Val(Text3) If Val(Text4) 2000 And Val(Text4) <= 4000 Then Text5 = (Val(Text4) - 2000) o. 1 Else Text5 = (Val(Text4) - 4000) 0.2 End If Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Command2_CiickO Unload Me End Sub 989