试卷代号：2231 座位号■ 中央广播电视大学2007一2008学年度第一学期“开放专科”期末考试 计算（应）等专业Visual Basic程序设计 试题 2008年1月 题 号 二 三 四 五 总 分 分 数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1.与传统的设计语言相比，Visual Basic最突出的特点是()。 A.程序开发环境 B.结构化程序设计 C.事件驱动的编程机制 D.程序调试技术 2.VB集成开发环境中，提供控件的窗口是( ）。 A.工具栏 B.工具箱 C.属性窗 D.工程管理器 3.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。 A.单选按纽 B.图片框 C.框架 D.通用对话框 4.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是()。 A.设计模式 B.中断模式 C.执行模式 D.编写代码模式 5.要在窗体Forl内显示"欢迎您！"，使用的语句是()。 A.Form.caption="欢迎您！" B.Forml.caption="欢迎您！" C.Forml.print"欢迎您！" D.Form.print"欢迎您！" 6.能够改变标签控件显示标题的属性是( )。 A.Name B.Caption C.Text D.BordeStyle 1427
试卷代号:2231 座位号巨口 中央广播电视大学2007-2008学年度第一学期“开放专科”期末考试 计算(应)等专业 Visual Basic程序设计 试题 2008年 1月 题 号 四 五 总 分 分 数 得 分 评卷人 一、单项选择题(每小题 2分 ，共 30分 ) 1.与传统的设计语言相比，Visual Basic最 突出的特点是 ( )。 A.程序开发环境 B.结构化程序设计 C.事件驱动的编程机制 D.程序调试技术 2. VB集成开发环境中，提供控件的窗口是 ( )。 A.工具栏 B.工具箱 C.属性窗 D.工程管理器 3.刚建立一个新的标准 EXE工程后，不在工具箱中出现的控件是( )。 A.单选按纽 B.图片框 C.框架 D.通用对话框 4.在 VB6.。集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是 A.设计模式 B.中断模式 C,.执行模式 D.编写代码模式 ;i.要在窗体 Forml内显示”欢迎您!”，使用的语句是( )。 A. Form. caption=”欢迎您 !” B. Forml. caption=”欢迎您 !” C. Forml. print”欢迎您!” D. Form. print”欢迎您!” 6.能够改变标签控件显示标题的属性是( )。 A. Narne B. Caption C. Text D.Bordestyle 1427
7.在VB中，下列合法的变量名是()。 A.4ab B.a-b C.a_4 D.integer 8.如果要在文本框中键人字符时，只显示某个字符，如星号()，应设置文本框的() 属性。 A.Caption B.PasswordChar C.Text D.Locked 9.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 ()属性设置就有效。 A.MaxButton B.BorderSyle C.Width D.MinButton 10.要设置命令按钮的背景图形，必须设置的两个属性是( )。 A.Style和Picture B.Style和Icon C.Caption和Picture D.Value和lcon 11,VB程序中通常不会产生错误提示的是( )。 A.编译错误 B.实时错误 C.运行时错误 D.逻辑错误 12.执行Form1.Scale(-14,14)-(14,-14)语句后，Forml窗体坐标系x轴和y轴的正方 向是( ）。 A.向左和向下 B.向右和向上 C.向左和向上 D.向右和向下 13.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是()。 A.Execute B.CommandType C.Open D.ActiveConnection 14.用来从数据库表中删除记录的SQL命令是( )。 A.DELETE B.SELECT C.UPDATE D.WHERE 15.要发送数据，通常使用Winsock控件的( ）。 A.Listen方法 B.(GetDate方法 C.Accept方法 D.SendDa1a方法 1428
VB中，下列合法的变量名是( 4ab B.a一h D. integer 在 A. C. 8.如果要在文本框 中键入字符时，只显示某个字符，如星号(*)，应设置文本框 的( ) 属性口 A. Caption B. PasswordChar C. Text D. Locked 9.要使窗体在运行时不 可改变 窗体 的大小 和没有最大化 和最小化按 钮，只要对 下列 ( )属性设置就有效。 A. MaxButton B. BorderSyle C. W idth D. MinButton 10.要设置命令按钮 的背景图形 ，必须设置的两个属性是( )。 A. Style和 Picture B. Style和 Icon C. Caption和 Picture D. Value和 Icon 11.VB程序 中通常不会产生错误提示的是( )。 A。编译错误 B.实时错误 C.运行时错误 D.逻辑错误 12.执行 Forml. Scale (-14, 14)一(14，-14)语句后，Forml窗体坐标系x轴和y轴的正方 向是 ( )。 A 向左和向下 B.向右和向上 C，向左和向上 I).向右和向下 1.3.使用 ADO数据模型时，建立 Recordset和 Connection对象连接的属性是( )。 A. Execute B. CommandType C. Open D. ActiveConnection 14，用来从数据库表中删除记录的 SQ1、命令是( )。 A. DELETE B. SELECT C. UPDATE D. W HERE 要发送数据，通常使用 Winsock控件的( )。 Listen方法 Accept方法 B. Gel Dat。方法 D. SendDat。方法 A. C. 1428
得分 评卷人 二、填空题（每小题2分，共20分】 1.每个标谁应用程序通常至少有一个 文件。 2.某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从】到2， 第二维下标从2到2，则相应数组声明语句为 3.全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。 4.在VB中，将Access称为 ,SQL Server称为 5.Vb应用程序与数据库进行通信的主要机制称为 6.Winsock控件主要用来编制TCP/IP或 协议的通话程序。 7.如果不能适先确定变量的数据类型，则可以把它声明为 0 8.执行赋值语句a="123”+"456"后，变量a的值是 9.对VB程序进行调试时，若要进行断点设置应按 键，如果需要逐语句调试，应 按 键。 10.通常可以将文本框控件的 属性设为True,以禁止键盘输人。 得 分 评卷人 三、阅读程序题（共25分）】 阅读下列程序并写出程序运行结果。 1.(6分) Private Sub Form_Click() Dim a As Integer Static b As Integer a=a十4 b=a+b Forml.Print "a=";a,"b=";b End Sub 写出程序运行时连续单击三次窗体后，Fom1上的输出结果， 1429
得 分 评卷人 二、填空题 (每小题 2分 ，共 20分) 1.每个标准应用程序通常至少有一个 文件。 2.某个程序中要用到一个二维数组，要求数组名为A，类型为整型，絮一维下标从一1到2, 第二维下标从一2到 2，则相应数组声明语句为 3.全局变量在整个应用程序中有效，一般在标准模块中使用_ 语句声明。 4.在VB中，将Access称为 ，SQI. Server称为 _ 5. Vb应用程序与数据库进行通信的主要机制称为 6. Winsock控件主要用来编制 TCP/IP或 协议的通话程序。 如果不能适先确定变量的数据类型 ，则可以把它声明为 执行赋值语句 a= "123"-1-"456”后 ，变量 a的值是 9.对 VB程序进行调试时 ，若要进行断点设置应按 键 ，如果需要逐语句调试 ，应 10.通常可以将文本框控件的 属性设 为 ‘true，以禁止键盘输人 。 得 分 评卷人 三 、阅读程序题(共 25分) 阅读下列程序并写出程序运行结果。 l.(6分) Private Sub Form_卜( .1ick() Dim a As Integer Static b As Integer a 二二 a b = 月 + 4 一+ 卜 Forml. Print "a二”;a，”b=”;b End Sub 写出程序运行时连续单击三次窗体后 ，Forml上的输出结果 。 1429
2.(6分) Private Sub Form_Click() Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To5 Ifi>3 Then c=c十5 Exit For Else k=k+1 End If Next j Print c,k End Sub 写出程序运行时单击窗体后，c,k的值分别是： 3.(6分) Private Sub Command1_Click() Dim s As Double Dim i As Integer s=5 i=1 Do While i<7 i=i+2 s=5十i Loop Textl.Text =s End Sub 文件框Text1的输出结果是： 1430
2.(6分) Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k= 2 c = 3 For j= 1 To 5 If j> 3 Then c“ c十 5 Exit For Else k 二 k + 1 End If Next j Print c，k End Sub 写出程序运行时单击窗体后，c,k的值分别是: 3. (6分) Private Sub Commandl_Click() Dim s As Double Dim i As Integer s =二 口 i= 1 Do While I< 7 1= 1十 2 s今 5一 1 Loop Textl. Text一 s land Sub 文件框 Text]的输出结果是: 1430
4.(7分) Sub test(i As Integer) i=i+2 End Sub Private Sub Form_Click() Dim x As Integer x=5 Print "x=";x Call test(x) Print "x=";x End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分） 1.假设用Access创建了一个名为"学生.MDB"的数据库，并在其中创建了一张名为"学 生基本情况"的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是： 首先文本框(Textl)中输入希望查询的学生学号，然后点击"查询"按钮(Commandl),如果数 据库中存在该学号，则分别在Text2、Text3、Tex4中显示学号、姓名、籍贯信息，否则提示用 户"记录不存在"并使Textl获得焦点，要求用户重新输人，当点击退出按钮(Commandz2)时 关闭本窗体。 围字生基本情况：表 2004001 张红 河北 2004002 李强 山东 2004003 王丰 广西 米 记录1 31)米共有记录数：3 图1用Access创建的学生基本情况数据表 1431
4. (7分) Sub test(i As Integer) + 2 End Sub Private Sub Form Click() Dim x As Integer Print”x=”;x Call test(x) Print”x= ”:x End Sub 写出程序运行时，单击窗体 Forml上的输出结果。 得 分 评卷人 四、完善程序题(共 10分) 1.假设用 Access创建了一个名为”学生 .MDl3”的数据库，并在其中创建了一张名为”学 生基本情况”的数据表，表中存放了学生的基本信息，如图 1所示。 现在要求利用 V13编写一个数据库查询程序，程序的运行界面如图 2所示，基本逻辑是: 首先文本框(rextl)中输人希望查询的学生学号 ，然后点击”查询 ”按钮 (Commandl )，如果数 据库中存在该学号 ，则分别在 Text2,,I'ext3 , Text4中显示学号 、姓名、籍贯信息，否则提示用 户”记录不存在‘’并使 ‘Next I获得焦点，要求用户重新输人。当点击退出按钮(Command2)时 关闭本窗体。 翻 口 fx 粼 }一羚雄壤渗 拼戴翻攀熬摹一舞葺班 一璐贫 架 璧鑫】2004001 200铂02 20040#13 张红 李强 河北 默 蒸 山东 税 图 I用 Access创建的学生基本情况数据表 1431