Visual Basic程序设计模拟练习题一.pdf

Visual Basic程序设计期末复习题一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。A.按过程顺序执行 B.从主程序开始执行C.事件驱动 D.按模块顺序执行2.与传统的设计语言相比，Visual Basic最突出的特点是（）A.程序开发环境C.程序调试技术B.结构化程序设计D.事件驱动的编程机制3.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行 文件拿到其它机器上不能运行的主要原因是（）oA.缺少.frm窗体文件 B.该可执行文件有病毒C.运行的机器上无VB系统 D.以上原因都不对4.Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）oA.设计模式 B.编写代码模式C.执行模式 D.中断模式5.后缀为.bas的文件表示（A.工程文件C.窗体二进制数据文件6.工程文件的扩展名是（A.vbp B.frmB.窗体文件D.标准类模块文件C.bas D.frx7.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。A.时钟控件 B.图像框 C.框架 D.通用对话框8.以下叙述中错误的是（）。A.一个工程中可以包含多个窗体文件B.在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类 型的文件C.在一个窗体文件中用Private定义的通用过程能被其它窗体调用D.全局变量必须在标准模块中定义9.要在窗体Forml内显示“欢迎您！”，使用的语句是（）A.Form.caption=欢迎您！B.Forml.caption=欢迎您！”1C.Form.print 欢迎您！”D.Forml.print 欢迎您!”10.决定标签内显示内容的属性是（A.NameB.TextC.)CaptionD.Alignment11.要设置命令按钮的背景图形,A.Caption 和 PictureC.S tyle 和 Icon必须设置的两个属性是（）B.S tyle 和 PictureD.Value 和 Icon12.将数据项“China”添加到列表框Listl中成为第一项，应使用的语句是()A.Listl.AddItem，China，/B.Listl.Addlteml,China”C.Listl.AddItem，Chinaz，,0 D.Listl.AddItemChina”,113.在VB中，下列各项合法的变量名是（）oA.Integer B.ab-c C.2abc14.在VB中，下列合法的变量名是（）A.4EF B.integer C.E-FD.a JoeD.E_F15.如果要在文本框中键入字符时,只显示某个字符,如星号（*）,应设置文本框的（）属性。A.PasswordChar B.Caption C.Text D.Locked16.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。A.MaxButton B.BorderS yleC.Width D.MinButton17.下列控件中不能响应Click事件的是()。A.TextBox B.Timer C.Label D.ListBox18.有程序代码如下：Textl.Text=欢迎学习VB程序设计则Textl,Text,和欢迎学习VB程序设计“分别代表（）。A.对象，值，属性 B.对象，属性，值C.对象，方法，属性 D.属性，对象，值19.设 a=Visual Basic,下面使 b=Basic的语句是()。A.b=left(a,8,12)C.b=right(a,5,5)B.b=mid(a,8,5)D.b=left(a,8,5)20.确定一个控件在窗体上位置的属性是（）A.Top 或 LeftB.Top 和 Left2C.Width 或 Height D.Width 和 Height21.执行Forml.S cale（0,10）-（10,TO）语句后，Forml窗体坐标系x轴和y轴的正方 向是（）oA.向右和向上 B.向左和向下C.向右和向下 D.向左和向上22.如果希望以模态方式显示窗体Forml,下列正确的语句是（）A.Forml.S how 0 B.Forml.S how 1C.Forml.S how D.以下都不正确23.改变驱动器列表框的Drive属性值，将激活（）事件。A.KeyDown B.KeyUp C.S coll D.Change24.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时一，总是把（）指定为启动窗体。A.不包含任何控件的窗体 B.命名为Frml的窗体C.包含控件最多的窗体 D.设计时的第一个窗体25.Dim A（1 To 4,0 To 3）定义的数组包含的元素的个数是（）。A.12 B.16 C.15 D.动态变化26.如果创建了命令按纽控件数组，则Click事件的参数是（）。A.Caption B.Index C.Tag D.没有参数27.如果准备向随机文件中写入数据，正确的语句是（）A.Write#1,rec B.Print#1,recC.Get#1,rec D.Put#1,rec28.要以读方式打开D盘的一个顺序文件Test.doc,应使用的语句是（）A.Open Test.doc For Output As#1B.Open D:Test.doc For Input As#1C.Open D:Test.doc For Output As#1D.Open Test.doc“For Input As#129.以下属性只能用程序代码设置，不能通过属性窗口设置的是（）oA.Index 属性 B.Pattern 属性 C.Visible 属性 D.Drive 属性3 0.以下有关Visual Basic语言描述中错误的是（）。A.语句是一行一句，以回车键结束B.用“，”分隔一行中的多个语句3C.不区分大小写D.一条语句放在多行中，则在前一行结束处使用续行符“，连接下一行3 1.不属于VB数据库引擎的是（）A.ODBC B.Jet 引擎 C.OLE DB D.BDE3 2.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。A.Open B.Execute C.CommandType D.ActiveConnection3 3.用来从数据库表中删除记录的S QL命令是（）oA.where B.select C.update D.delete3 4.VB程序中通常不会产生错误提示的是（）oA.编译错误 B.逻辑错误C.运行时错误 D.实时错误3 5.在VB程序中逐语句调试的键是（）。A.F8 键 B.F9 键C.CtrlF8 键 D.CtrlF9 键3 6.当Winsock控件处于侦听状态时，其S tate属性的值是（）A.0 B.1 C.2 D.33 7.要发送数据，通常使用Winsock控件的（）A.Listen B.Accept C.S endData D.GetData3 8.下列叙述不正确的是（）oA.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编 译B.注释语句不能放在代码中的任何位置C.注释语句可以放在代码中的任何位置D.代码中加入注释语句的目的是提高程序的可读性3 9.ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（）oA.Command B.ConnectionC.Recordset D.Field40.ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而 得到的结果的对象是（）oA.Command B.ConnectionC.Recordset D.Field二、填空题1.每个应用程序必须有一个唯一的 文件，至少有一个 文件。42.表达式132-2-3*5 MOD 6的值是。3.如果要每隔3 s产生一个Timer事件，则Interval属性应设置为。4.VB中的程序错误类型主要有实时错误、三种。5.控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。6.用Dim A(4,4)语句声明二维数组后，数组A的元素共有 个。7.设某个程序中要用到一个二维数组，要求数组名为R,类型为整型，第一维下标从-2 到2,第二维下标从。到4,则相应数组声明语句为 o8.某个程序中要用到一个二维数组，要求数组名为C,类型为整型，第一维下标从T到 3,第二维下标从0到4,则相应数组声明语句为。9.过程级变量是指在 声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用 或 声明的变量，在全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。10.在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用ForNext循环循环；若要求先判断循环进行的条件，可使用 循环。11.为了在运行时把当前路径下的图形文件flower,jpg装入图片框P1,所使用的语句 为 o12.将图片框的AutoS ize属性设置成 时，可使图片框根据图片调整大小。13.Winsock控件主要用来编制基于TCP/IP或 协议的网络应用程序。如果希望得到本地计算机的IP地址，可以使用Winsock控件的 属性。14.Winsock控件主要用来编制基于 或 协议的网络应用程序。15.如果不能事先确定变量的数据类型，则可以把它生命为 类型。16.以写方式打开D盘中的Text.dat文件，正确的语句是17.列表框中项目的序号是从 开始的。18.执行赋值语句y=abc+def”后，变量y的值是。19.全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。20.VB中参数传递的机制有两种，一种是 参数，另一种是_参数。21.闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 o22.若窗体的左上角坐标为(-250,250),右下角坐标为(300,0),则X轴的正向 向,Y轴的正向向 o23.在 VB 中，将 Access 称为,S QL S erver 称为,Foxpro 称为 o24.数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要 机制称为 o25.常用的VB网络编程控件主要有、和 二种。26.通常可以将文本框控件的 属性设置为False,以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的 属性设置为Falseo27.VB应用程序可分为单窗体、多窗体和 o28.若窗体Forml左上角坐标为(0,600),右下角的坐标为(800,-200)o则X轴的正 向 向，Y 轴的正向向 029.数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主5要机制称为 O3 0.VB中将数据库分为本地数据库、和 三种类型。三、阅读程序题阅读下列程序并写出程序运行结果1.Private S ub FormClick()Dim x As IntegerS tatic y As Integerx=x+2y=y+3Forml.Print x=;x,y=;yEnd S ub写出程序运行时连续单击三次窗体后，Forml上的输出结果。Private S ub Command1_C1ick()x=0Do While x 3 Then k=k+4 Exit ForElse k=k+3 End If Next iPrint i,k7End S ub写出程序运行时单击窗体后，Forml上的输出结果。6.Private S ub Commandl_Click()Dim s As Double Dim i As Integer s=6 i=2 Do While i 3 Then8c=c+6 Exit For Elsek=k+2 End If Next j Print c,k End S ub 写出程序运行时单击窗体后，c,k的值分别是:9.(6 分)Private S ub Command1_Click0 Dim s As Double Dim i As Integer s=5 i=1 Do While i 8 i=i+2 s=s+iLoopTextl.Text=s End S ub文件框Textl的输出结果是10.(7 分)S ub test(i As Integer)i=i+4End S ubPrivate S ub form_Click()Dim x As Integerx=5Print x=;xCall test(x)Print x=;xEnd S ub写出程序运行后，单击窗体时程序的运行结果。9四、完善程序题1.列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名 程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按 钮变为“修改确认:在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后 的信息送到列表框且“修改确认”按钮变为“修改二程序运行结果如图1所示。ListlCommand 1CommandsTextl图1程序如下，请补充完整。Private S ub Form_Load()Listl.Additem Listl.Additem Listl.Additem Listl.Additem Listl.Additem Listl.Additem Listl.AdditemEnd S ub“Visual Basic 程序设计”S QL S ERVER数据库应用“信息管理系统ERP原理与应用网络实用技术基础”系统开发规范与文档编写信息系统测试Private S ub Commandl_Click 0 If Textl.Text Then1中Textl.Text=MsgBox 请在文本框中输入信息!End IfEnd S ubPrivate S ub Command2_Click()将文本框中的内容加到列表框3 删除选定的项目10End S ubPrivate S ub Command3 _Click 0If Commands.Caption=4 ThenTextl.Text=5Textl.S etFocusCommand 1.Enabled=6Command2.Enabled=FalseCommands.Caption=7ElseListl.List(Listl.Listindex)=Textl.TextCommand 1.Enabled=TrueCommand2.Enabled=TrueTextl.TextCommands.Caption=8 End IfEnd S ub2.已知存在一名为“学生”的S QL S erver数据库，其中的“students”数据表用来存 储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students 表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接S QL S erver数据库；当 点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如下图所示。图1程序如下，请补充完整。声明对象变量ADOcn,用于创建与数据库的连接Private ADOcn As ConnectionPrivate S ub FormLoad()连接S QL S erver数据库Dim strDB As S tringstrDB=Provider=S QLOLEDB;LS F;User ID=sa;Password=;Database=111If ADOcn Is Nothing ThenS et ADOcn=23 End IfEnd S ubPrivate S ub Commandl_Click 0增加学生记录Dim strS QL As S tringDim ADOrs As 4_ADOrs.5=AD0cnADOrs.Open S elect 学号 From S tudents Where 学号=+Textl+，aIf Not 61 ThenMsgBox“你输入的学号已存在，不能新增加！”ElseS trS QL=,Insert Into students(学号,姓名,籍贯，性别)S trS QL=strS QL+Values(+”+textl+”,+text2+”，“+text3+”，+text4+”)”ADOcn.Execute 7_MsgBox 添加成功，请继续！”End IfPrivate S ub Command2_Click()Unload MeEnd S ub3.假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学 生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是:首先文本框(Textl)中输入希望查询的学生学号，然后点击“查询”按钮(Commandl),如果数 据库中存在该学号，则分别在Text2、Text3.Text4中显示学号、姓名、籍贯信息，否则提 示用户”记录不存在”并使Textl获得焦点，要求用户重新输入。当点击退出按钮(Command 时关闭本窗体。性学生基本情况：表,|n|x|拿号 疑为 ST加200400120040022004003张李王红强丰山广东画米记录：1|=8 00 y=x*1.2 Case Is=600 y=x*1.15 Case Else y=x*1.1End S electLabell.Caption=y End S ubPrivate S ub Command2_Click 0 Unload MeEnd S ub2.参考答案：Private S ub Commandl_Click 0 Dim x As S ingle,y As S ingle x=Vai(Textl.Text)If x 100 Theny=x ElseIf x 200 Then y=9.5*xElseIf x 3 00 Then y=0.9*x18ElseIf x 500 Then y=0.8*x Elsey=0.7*x End IfEnd IfEnd IfEnd IfText2.Text=y End S ub3.参考答案：Private S ub Command 1_C1 ick()Dim x As Integer,tax As S ingle x=Vai(Textl.Text)If x 1200 Then tax=x*0.03ElseIf x=4000 Then tax=(x-1000)*0.15ElseIf x=5000 Thentax=(x-1000)*0.15+(x-4000)*0.05 Elsetax=x*0.25End IfEnd IfEnd IfText2.Text=taxEnd S ub19