试卷代号：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