试卷代号：2231 座位号■ 中央广播电视大学2008一2009学年度第一学期“开放专科”期末考试 Visual Basic程序设计试题 2009年1月 题 号 三 四 五 总 分 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分）】 】.在下列有关Visual Basic的叙述中，错误的是()。 A.采用了事件驱动的编程机制 B.是面向对象的编程语言 C.是面向过程的程序设计语言 D.是可视化的程序设计语言 2.在新建一个“标准EXE”工程后，不在工具箱中出现的控件是( )。 A.列表框 B.通用对话框 C.驱动器列表框 D.图片框 3.对于定时器(Timer)控件，设置其定时是否开启的属性是( )。 A.Index B.Tag C.Enabled D.Interval 4.有程序代码如下： Textl.Text="欢迎走进VB世界！" 则Text1,Text,和"欢迎走进VB世界！"分别代表()。 A.对象，值，属性 B.属性，对象，值 C.对象，方法，属性 D.对象，属性，值 1376
试卷代号:2231 座位号巨工二 中央广播电视大学2008-2009学年度第一学期“开放专科”期末考试 Visual Basic程序设计 试题 2009年 1月 题 号 四 五 总 分 分 数 得 分 评卷人 一、单项选择题(每小题 2分，共 30分) 1.在下列有关 Visual Basic的叙述中，错误的是( ) A.采用了事件驱动的编程机制 C.是面 向过程的程序设计语言 B。是面向对象的编程语言 D.是可视化的程序设计语言 2.在新建一个“标准 EXE”工程后 ，不在工具箱中出现的控件是( ) A.列表框 B.通用对话框 C.驱动器列表框 D.图片框 3.对于定时器(Timer)控件 ，设置其定时是否开启的属性是( ) A. Index B. Tag C. Enabled D. Interval 4.有程序代码如下: Text l. Text=”欢迎走进VB世界!’· 则 Textl,Text，和”欢迎走进 VB世界!”分别代表( A.对象，值 ，属性 B.属性 ，对象 ，值 C.对象 ，方法 ，属性 D.对象 ，属性 ，值 1376
5.VB提供了结构化程序设计的三种基本结构是()。 A.选择结构、循环结构、顺序结构 B.选择结构、过程结构、顺序结构 C.过程结构、转向结构、递归结构 D.递归结构、选择结构、循环结构 6.下列说法中正确的是()。 为了保存一个Visua Basic应用程序，应当 A.只保存窗体文件 B.只保存工程文件 C.分别保存工程文件和标准模块文件 D.分别保存工程文件、窗体文件和标准模块文件 7.当一个工程含有多个窗体时，其中的启动窗体是()。 A.第一个添加的窗体 B.最后一个添加的窗体 C.包含控件最多的窗体 D.在“工程属性”对话框中指定的窗体 8.要设置命令按钮的背景图形，必须设置的两个属性是()。 A.Style和Picture B.Style和Icon C.Caption和Picture D.Value和Icon 9.将数据"China"项添加到列表框(Listl)中成为第一项应使用的语句是()。 A.List1.AddItem 0,China" B.List1.AddItem 1,"China" C.List1.AddItem "China",0 D.List1.AddItem China",1 10.确定一个窗体或控件的大小的属性是( A.Width或Height B.Width和Height C.Top或Left D.Top和Left 11.下列可以把当前目录下的图形文件picl.jPg装人图片框Picturel中的语句为()。 A.Picturel="picl.jpg B.Picturel =LoadPicture("picl.jpg") C.Picture 1.Picture=LoadPicture(("picl.jpg") D.Picture 1.Picture=LoadPicture(("picl " 12.不属于VB数据库引擎的是()。 A.ODBC B.BDE C.Jet引擎 D.OLEDB 1377
5. VB提供了结构化程序设计的三种基本结构是( )。 A.选择结构、循环结构、顺序结构 B.选择结构 、过程结构 、顺序结构 C.过程结构 、转向结构、递归结构 D.递归结构 、选择结构、循环结构 6.下列说法中正确的是( )。 为了保存一个 Visua Basi。应用程序，应当 A.只保存窗体文件 B.只保存工程文件 C.分别保存工程文件和标准模块文件 D.分别保存工程文件、窗体文件和标准模块文件 7.当一个工程含有多个窗体时，其中的启动窗体是( )。 A.第一个添加的窗体 B.最后一个添加的窗体 C.包含控件最多的窗体 D.在“工程属性”对话框中指定的窗体 8.要设置命令按钮的背景图形 ，必须设置的两个属性是( )。 A. Style和 Picture B. Style和 Icon C. Caption和 Picture D. Value和 Icon 9.将数据”China”项添加到列表框(Listl )中成为第一项应使用的语句是( )。 A. Listl. AddItem 0，”China" B. Listl. AddItem 1，”China" C. Listl. AddItem ”China" ,0 D. Listl. AddItem ”China"，1 10.确定一个窗体或控件的大小的属性是( )。 A. Width或 Height B. Width和 Height C. Top或 Left D. Top和 Left 11.下列可以把当前 目录下的图形文件picl. jpg装人图片框 Picturel中的语句为( 二 A. Picturel=”picl. jpg” B. Picturel=LoadPicture("picl. jpg") C. Picture 1. Picture= LoadPicture((11 picl. jpg") D. Picture 1. Picture= LoadPicture(("picl”) 12.不属于 VB数据库 引擎的是( )。 A. ODBC B. BDE C. Jet引擎 D. OLEDB 1377
13.如果准备读文件，打开顺序文件“text.dat”的正确语句是()。 A.open"text.dat"For wrire As 1 B.open"text.dat"For Binary As 1 C.open"text.dat"For Input As 1 D.open"text.dat"For Random As 1 l4.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是( ）。 A.Open B.Execute C.CommandType D.ActiveConnection 15.Winsock控件的LocalPort属性的作用是( ). A.仅返回所用断口 B.仅设置所用端口 C.返回或设置所用端口 D.返回或设置IP地址 得 分 评卷人 二、填空题（每小题2分，共20分】 1.窗体文件和工程文件的扩展名分别是 2.表达式17八2一23*5MOD6的值是 3.在Visual Basic中，变量的默认类型是 4.设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从一1 到2，第二维下标从1到4，则相应数组声明语句为 5.控件数组的名字由属性指定，而数组中的每个元素由 属性决定。 6.若窗体的左上角坐标为（一200,250），右下角坐标为(300，一150)，则X轴的正向向 ,Y轴的正向向 7.窗体、图片框或图像框中的图形通过对象 属性。 8.在VB中，将Foxpro称为外部数据库，Access称为 ,SQL Server 称为 9.全局变量必须在 模块中定义，所使用的关键字为 0 10.Winsock控件主要用来编制 或 协议的网络应用 程序。 1378
13.如果准备读文件，打开顺序文件“text. dat”的正确语句是( )。 A. open"text. dat"For wrire As# 1 B. open"text. dat"For Binary As# 1 C. open"text. dat"For Input As井 1 D. open"text. dat"For Random As# 1 14.使用 ADO对象模型时，使 Recordset和Connection对象建立连接的属性是( A. Open B. Execute C. CommandType D. ActiveConnection 15. Winsock控件的 LocalPort属性的作用是( )。 A.仅返 回所用断口 B.仅设置所用端 口 C.返回或设置所用端 口 D.返回或设置 IP地址 得 分 评卷人 二、填空题(每小题 2分，共20分) .窗体文件和工程文件的扩展名分别是_ 和_ . .表达式17\2-2^3‘5MOD6的值是_ 。 .在Visual Basi。中，变量的默认类型是 4.设某个程序 中要用到一个二维数组 ，要求数组名为 A，类型为整型，第一维下标从一1 到 2，第二维下标从 1到 4，则相应数组声明语句为 5.控件数组的名字由 属性指定 ，而数组中的每个元素由 属性决定。 .若窗体的左上角坐标为(-200,250)，右下角坐标为(300,-150)，则 X轴的正向向 ,Y轴的正向向 7.窗体、图片框或图像框中的图形通过对象 属 性 。 .在VB中，将Foxpro称为外部数据库，Access称为 ,SQL Server 称为 .全局变量必须在 模块中定义 ，所使用的关键字为 10. Winsock控件主要用来编制 或 协议的网络应用 程序。 1378
得分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果 1.(6分) Private Sub Form_Click() Static a As Integer Dim b As Integer a=a+3 b=b+4 Textl a Text2 b End Sub 写出程序运行时连续单击三次窗体后，文本框Textl和Text2显示结果。 2.(6分) Private Sub Form_Click() n=0 For i=1 To 2 For j=2 To 4 If j Mod2◇0Then n=n+1 End If n=n+2 Next j Next i Print n End Sub 写出程序运行时单击窗体后，窗体Forml上的输出结果。 1379
得 分 评卷人 三、阅读程序题 (共 25分) 阅读下列程序并写出程序运行结果 1. (6分) Private Sub Form-Click( ) Static a As Integer Dim b As Integer a= a+ 3 b = b + 4 Textl= a Text2= b End Sub 写出程序运行时连续单击三次窗体后，文本框 Textl和Text2显示结果。 2. (6分) Private Sub Form-Click() n = 0 For 1= 1To 2 For j“ 2To4 If j Mod 2令 0 Then n = n + 1 End If n 二 n + 2 Next j Next Print n End Sub 写出程序运行时单击窗体后 ，窗体 Forml上的输出结果 。 1379
3.(6分) Private Sub Form_Click() Dim A(!To 4)As String D)im c As Integer Dim j As Integer Λ(1)="6” A(2)="8 A(3)="10” A(4)声"12 c=1 Forj=1 To 4 c=c+Val(A(j)) Next j Print c End Sub 写出程序运行时单击窗体后，窗体Form】上的结果。 4.(7分) Function F(n As Integer)As Long Dim i As Integer,Temp As Long Temp=】 For i=1 To n Temp Temp i Next i F=Temp End Function Private Sub Form_Click() Dim k As Integer,nj As Integer k=5 nj=F(k) Print k;"i=";nj End Sub 写出程序运行时，单击窗体Foml上的输出结果。 1380
,t.(6分) Private Sub Fornl_ Click() I)i川 A( I "1 'o -I)As String Dine(、As Integer him j As Integer A(1)= s A(2)= s A(3)= "10 A(4)= it 12" (、= 1 For j= 1To4 c= c -I- Val(A(j)) Next j Print c Land Sub 写出程序运行时单击窗体后 ，窗体 Form'上的结果。 4. (7分) Function F(n As Integer) As Long Dimi As Integer, Temp As Long Temp= 1 For 1= 1 To n ,temp= Temp * i Next 1 F = 1'emp End Function Private Sub Forrn_Click() Dim k As Integer，nj As Integer k = 5 n]= F(k) Print k;“1=”;Il] End Sub 写出程序运行时 ，单击窗体 Forml上的输出结果。 1380
得分 评卷人 四、完善程序题（共10分） 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运 行后，驱动器列表框Drivel的默认驱动器设置为E盘，选择Filel中所列的图片文件(. bmp,.gif和*.jpg),则相应的图片显示在图片框Picturel中，文件的路径显示在文本框 中。程序运行结果如图1所示。 困片欣资 回e:[data] 3e\ 白照片 地大理 D5C00448.J DSC00449.JPG DSC00450.JPG D3C00451 PG DSC00452.JPG DSC00453.JPG water lilies.IG e:1照片\大理1 water1i1iex.JPG 图1 程序如下，请补充完整。 Private Sub Form_Load() Drivel.Drive =[1] Filel.Pattern ="*bmp;*gif;*jpg" End Sub Private Sub Drivel_change() Dirl.Path =[2] Textl.Text Drivcl.Drive End Sub Private Sub Dirl_Change() [3] 1381
r二习 四.7程序题‘共‘ 。分’ 在窗体上建立一个驱动器列表框 、目录列表框 、文件列表框 、图片框 、文本框 。要求程序运 行后 ，驱动器列表框 Drivel的默认驱动器设置为 E盘 ，选择 Filel中所列的 图片文件 (*. bmp, *. gif和 * - Jpg)，则相应的图片显示在图片框 Picturel中，文件的路径显示在文本框 中。程序运行结果如图 1所示。 。:\照片\大理lw.ter 1i1ies.JFG 程序如下，请补充完整。 Private Sub Form-Load() Drivel. Drive二「1] Filel. Pattern“ ”*.bmp;*.gif ; End Sub 图1 *.Jpg” Private Sub Drivel_ change() Dirl.Path = Text 1.1'ext 仁2]、 = D，ivel.Drive End Sub Private Sub Dirl_Change() [3] 1381
Text1.Text Dirl.Path End Sub Private Sub Filel_click() Picturel.[4] LoadPicture(Filel.Path +"\"Filel.FileName) FileName Filel.Path +"\"Filel.FileName Textl.Text =[5] End Sub 得 分 评卷人 五、编写程序题（共15分） 按下述规定，编写一征收所得税程序。 (1)收入在800元以内，不纳税： (2)收人超过800元以上的部分，纳税20%： (3)当收人达到5000元或超过时，5000元以上的部分，纳税22%。 程序运行界面如图2所示： 。纳税程序 000 图2 1382
Textl. Text“ Dirl. Path End Sub Private Sub Filel_click() Picturel. [4] = LoadPicture(File1. Path+ ”\，，+ Filel. FileName) FileName= Filel. Path+ ”\”+ Filel. FileName Textl. Text=[5] End Sub 得 分 评卷人 五、编写程序题 (共 15分) 按下述规定 ，编写一征收所得税程序。 (1)收人在800元以内，不纳税; (2)收人超过 800元以上的部分，纳税 20纬; (3)当收人达到 5000元或超过时，5000元以上的部分，纳税 22%, 程序运行界面如图 2所示: 1382
试卷代号：2231 中央广播电视大学2008一2009学年度第一学期“开放专科”期未考试 Visual Basic程序设计试题答案及评分标准 (供参考) 2009年1月 一、单项选择题（每小题2分，共30分） 1.C 2.B 3.C 4.D 5.A 6.D 7.D 8.A 9.C 10.B 11.C 12.B 13.C 14.D 15.C 二、填空题（每小题2分，共20分） 1..frm .vbp 2.4 3.Variant或变体型 4.Dim A(-1 To 2,1To 4)As Integer 5.Name Index 6.右 上 7.Picture 8.本地数据库 远程数据库 9.标准 Public 10.TCP/IP UDP 三、阅读程序题（共25分） 1.(6分) 3 4 6 4 9 2.(6分) 14 1383
试卷代号 :2231 中央广播电视大学2008-2009学年度第一学期‘，开放专科”期末考试 Visual Basic程序设计 试题答案及评分标准 (供参考) 2009年 1月 一、单项选择题(每小题 2分，共 30分) 1.C 2.B 3.C 6. D 7. D 8. A 11. C 12. B 13. C 二、填空题 (每小题 2分 ，共 20分 } 1二frm .vbp 2. 4 4. D 5. A 9. C 14. D 10. B 15. C 3. Variant或变体型 4. Dim A(一1 To 2，1To 4) As Integer 5. Name Index 6.右 上 7. Picture 8.本地数据库 远程数据库 9.标准 Public 10. TCP/IP UDP 三、阅读程序题(共 25分) 1. (6分) 3 4 6 4 9 4 2. (6分) 14 1383
3.(6分) 37 4.(7分) 5！=120 四、完善程序题（共10分） [1]"E:" [2]Drivel.Drive [3]Filel.Path Dir1.Path [4]Picture [5]FileName 五、编写程序题（共15分） 参考答案： Private Sub Commandl_Click() Dim x As Integer,tax As Single x Val(Text1.Text) If x<=800 Then tax =0 Elself x<=5000 Then tax=(x-800)*0.2 Else tax=(x-5000)米0.22+4200*0.2 End If Label3.Caption tax End Sub Private Sub Command2_Click() Unload Me End Sub 1384
3. (6分 ) 37 4.(7分) 5!=120 四、完善程序题(共 10分) 〔1]"E:” 仁2] Drivel. Drive [3] Filel. Path二 Dirl. Path 仁4] Picture [5] FileName 五、编写程序题(共 15分 ) 参考答案 : Private Sub Command l_Click() Dim x As Integer, tax As Single x二 Val(Textl. Text) If x< = 800 Then tax = 0 Elself x< = 5000 Then tax = (x 一 800) 二 0.2 Else tax= (x一 5000) 二 0.22+ 4200 * 0. 2 End If Label3. Caption= tax End Sub Private Sub Command2 Click() Unload M e End Sub 1384