VisualBasic程序设计期末综合练习题一

-.zVisualBasic程序设计期末综合练习题一一、单项选择题1．VisualBasic是一种面向对象的可视化编程语言，采取了〔〕的编程机制。A．从主程序开场执行B．按过程顺序执行C．事件驱动D．按模块顺序执行2．在VisualBasic中，窗体文件的扩展名为〔〕。A．.vbpB．.frmC．.clsD．.bas3．VisualBasic6.0集成开发环境有三种工作模式，以下不属于三种工作模式之一的是〔〕。A．设计模式B．编写代码模式C．中断模式D．执行模式4．如果对象的名称为Myte*t，而且对象有一个属性Te*t，则在代码中引用该属性的正确格式是〔〕。A．Te*t.Myte*tB．Myte*t*Te*tC．Myte*t.(Te*t)D．Myte*t.Te*t5．以下关于变量的说法不正确的选项是〔〕。A．局部变量在声明它的过程执行完毕后就被释放了B．局部变量的作用域仅限于声明它的过程C．静态局部变量是在过程中用Static语句声明的D．局部变量是指那些在过程中用Dim语句或Static语句声明的变量 6．关于对象的属性不正确的选项是〔〕。A．对象的属性一般有属性名和属性值B．可通过属性窗口设置属性的值C．可通过程序代码设置属性的值D．对象的所有属性值均可在设计时设计7．在设计阶段，双击窗体上的*个控件时，翻开的窗体是〔〕。A．工程资源管理器窗口B．工具箱窗口C．代码编辑器窗口D．属性窗口8．要在窗体的标题内显示“myfrm〞,使用的语句是〔〕。A．Form.caption="myfrm"B．Form1.caption="myfrm"C．Form1.Print"myfrm"D．Form.Print"myfrm"9．在VB中，以下变量名不合法的是〔〕。A．file_1B．fileC．file-1D．file_1_210．在设计动画时，用时钟控件来控制动画速度的属性是〔〕。A．EnabledB．MoveC．IntervalD．Timer11．要从For…Ne*t循环中退出循环，应使用〔〕语句。A．E*itB．E*itForC．ContinueD．StopLoop12．文本框ScrollBars属性设置了非零值，却没有效果，原因是〔〕。A．文本框中没有内容B．文本框的Locked属性为TrueC．文本框的MultiLine属性为TrueD．文本框的MultiLine属性为False13．要利用公用对话框控件来显示“翻开文件〞对话框，需要调用控件的〔〕方法。A．ShowPrinterB．ShowOpenC．ShowSaveD．ShowColor14．以下赋值语句正确的选项是〔〕。A．*=y+zB．y+z=*C．-y=*D．4=*+y15．确定一个控件在窗体上位置的属性是〔〕。A．Width和HeightB．Width或HeightC．Top和LeftD．Top或Left16．VB程序中设置断点的按键是〔〕。A．F5键B．F6键C．F9键D．F10键17．如果希望以模态方式显示窗体Form1，以下正确的语句是〔〕。A．Form1.Show0B．Form1.ShowC．Form1.Show1D．以下都不正确18．用语句DimA(-2To3)AsInteger所定义的数组的元素的个数是〔〕。A．3B．4C．5D．619．如果创立了命令按钮的控件数组，则Click事件的参数是〔〕。A．CaptionB．TagC．Inde*D．没有参数20．要向图片框Picture1中加载“d:\hainan\zhiwu.bmp〞图像文件，应使用语句〔〕。A．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)B．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")C．Picture1.Picture="d:\hainan\zhiwu.bmp"D．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")21．如果要在窗体代码编辑器的〞通用〞局部定义私有Sub过程，则正确的语句是〔〕。A．PublicSubB．PrivateSubC．PublicFunctionD．PrivateFunction22．在代码编辑器中，如果一条语句太长，无法在一行内写下〔不包括注释〕，要折行书写，可以在行末使用续行字符〔〕，表示下一行是当前行的继续。A．直接回车B．一个下划字符〞_〞C．一个空格加一个下划字符〞_〞D．一个空格加一个连字符(-)23.以下表达不正确的选项是〔〕。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译B.注释语句可以放在代码中的任何位置C.注释语句不能放在代码中的任何位置D.代码中参加注释语句的目的是提高程序的可读性24．VB程序中通常不会产生错误提示的是〔〕。A．编译错误B．实时错误C．运行时错误D．逻辑错误25．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是〔〕。A.mandB.ConnectionC.RecordsetD.Field26．使用ADO模型时，建立Recordset和Connection对象的连接的属性是〔〕。A．E*ecuteB．mandTypeC．OpenD．ActiveConnection27．要发送数据，通常使用Winsock控件的〔〕。A．SendData方法B．Listen方法C．Accept方法D．GetDate方法28．以下只能用程序代码设置，不能通过属性窗口设置的属性是〔〕。A．Drive属性B．Pattern属性C．Visible属性D．Inde*属性二、填空题1．每个应用程序必须有一个惟一的文件。2.欲设置定时器的时间间隔为1秒，则属性Interval的值为。3．表达式5+21\2*3Mod2的值是。4．表达式5+9Mod2^3+2的值是。5．列表框中工程的序号是从开场的。6．计时器控件响应的事件是。7．为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为。8．执行赋值语句a="abc"+"def"，变量a的值是。9.VB中的程序错误类型主要有编译错误、等三种。10．在VB中，将Fo*pro称为外部数据库，Access称为，SQLServer称为。11．数据库应用程序属于一种非常典型的前后台软件构造，而前后台之间进展通信的主要机制称为。12．假设窗体Form1左上角坐标为〔0，600〕，右下角的坐标为〔800，-200〕。则*轴的正向向，Y轴的正向向。13．用DimA(3,3)语句声明二维数组后，数组A的元素共有个。14．设*个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从0到3，则相应的数组声明语句为。15.果不适先确定变量的数据类型，则可以把它声明为变量。16.tretch属性设置为时，图像框可自动改变大小以适应其中的图形。17.insock1.Listen语句的含义是。三、阅读程序题阅读以下程序并写出程序运行结果1．PrivateSubForm_Click()StaticaAsStringDimbAsStringa=a+"A"b=b+"B"Te*t1=aTe*t2=bEndSub写出程序运行时连续单击三次窗体后，文本框Te*t1和Te*t2显示结果。2．PrivateSubForm_Click()StaticSumAsIntegerFori=1To4Sum=Sum+iNe*tiPrintSumEndSub写出程序运行时点击窗体两次后，变量Sum的值。3．PrivateSubmand1_Click()DimA(1To5)AsIntegerDim*AsIntegerFori=1To5A(i)=iNe*tii=1DoWhile*<7A(i)=A(i)+**=*+3i=i+1LoopTe*t1.Te*t=A(1)Te*t2.Te*t=A(3)EndSub写出程序运行时单击窗体后，Form1上的输出结果。4．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=2c=3Forj=1To5Ifj>3Thenc=c+5E*itForElsek=k+5EndIfNe*tjPrintc,kEndSub写出程序运行时单击窗体后，Form1上的输出结果。5.PrivateSubmand1_Click()Dim*AsInteger,YAsInteger*=1:Y=1Fori=1To4Forj=1ToiY=Y+jNe*tj*=*+YNe*tiPrint*EndSub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。6.PrivateSubmand1_Click()DimA(1To5)AsIntegerDimbAsIntegerForb=1To5A(b)=bNe*tbTe*t1.Te*t=A(b-2)EndSub写出程序运行时单击mand1后，文件框Te*t1中的输出结果。7.FunctionF(aAsInteger,bAsInteger)AsIntegerF=a+bEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=4:b=5z=F(a,b)PrintzEndSub写出程序运行时单击窗体后，Form1上的输出结果。8.FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubmand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)Ne*tiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。四、完善程序题1．假设用Access创立了一个名为“学生.MDB〞的数据库，并在其中创立了一*名为“学生根本情况〞的数据表，表中存放了学生的根本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，根本逻辑是：首先文本框(Te*t1)中输入希望查询的学生**，然后点击“查询〞按钮(mand1)，如果数据库中存在该**，则分别在Te*t2、Te*t3、Te*t4中显示**、**、籍贯信息，否则提示用户“记录不存在〞并使Te*t1获得焦点，要求用户重新输入。当点击退出按钮(mand2)时关闭本窗体。图1用Access创立的学生根本情况数据表图2查询程序运行界面程序如下，请补充完整。PrivateADOAsConnectionPrivateSubForm_Load()[1][2]"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\学生.MDB"EndSubPrivateSubmand1_Click()DimstrSQLAsStringDimADOrsAs[3]RecordsetADOrs.ActiveConnection=[4]strSQL="Select*From学生根本情况Where**="+"'"+Te*t1+"'"[5]IfNotADOrs.EOFThenTe*t2=ADOrs.Fields("**")Te*t3=ADOrs.Fields("**")Te*t4=ADOrs.Fields("籍贯")ElseMsgBo*"要查询的**不存在，请重新输入!",vbOKOnly,"信息提示"Te*t1="Te*t1.SetFocusEndIfEndSubPrivateSubmand2_Click()UnLoadMeEnd2．列表框应用程序要求从文本框中输入课程名称，然后按“添加〞按钮，将该课程名程添加到列表框中；中选择列表框中*一项后，按“删除〞按钮，则从列表框中删除该项；中选择列表框中*一项后，按“修改〞按钮，把列表框中选取的项送往文本框且“修改〞按钮变为“修改确认〞。在文本框的内容修改好后，按“修改确认〞按钮，再把文本框中修改后的信息送到列表框且“修改确认〞按钮变为“修改〞。程序运行结果如图3所示。List1mand3List1mand3mand2mand1Te*t1图3程序如下，请补充完整。PrivateSubForm_Load()List1.AddItem"VisualBasic程序设计"List1.AddItem"SQLSERVER数据库应用"List1.AddItem"信息管理系统"List1.AddItem"ERP原理与应用"List1.AddItem"网络实用技术根底"List1.AddItem"系统开发规*与文档编写"List1.AddItem"信息系统测试"EndSubPrivateSubmand1_Click()IfTe*t1.Te*t<>"Then[1]Te*t1.Te*t'将文本框中的内容加到列表框中Te*t1.Te*t="[2]MsgBo*"请在文本框中输入信息！"EndIfEndSubPrivateSubmand2_Click()[3]List1.ListInde*'删除选定的工程EndSubPrivateSubmand3_Click()Ifmand3.Caption=[4]ThenTe*t1.Te*t=[5]Te*t1.SetFocusmand1.Enabled=Falsemand2.Enabled=Falsemand3.Caption="修改确认"ElseList1.List(List1.ListInde*)=Te*t1.Te*tmand1.Enabled=Truemand2.Enabled=TrueTe*t1.Te*t="mand3.Caption="修改"EndIfEndSub五、编写程序题编写一工资调整程序。假设根本工资大于等于2000元，增加工资20%，假设小于1800元大于1300元，则增加工资15%；假设小于1300元则增加工资10%。要求在文本框Te*t1中输入*职工的根本工资，单击“计算〞按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。图42．请根据以下描述编写购物优惠程序。*商场为了加速促成商品流通，采用购物打折的优惠方法，每位顾客一次购物〔1〕在200元以上者，按九五折优惠；〔2〕在400元以上者，按九折优惠；〔3〕800元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Te*t1中输入购物商品总金额，单击命令按钮，在Te*t2中输出优惠价。程序运行结果如图5所示。图5答案：一、单项选择题1.C2.B3.B4.D5.A8.B9.C10.C11.B12.D13.B14.A15.C16.C17.C18.D19.C20.D21．B22．C23．C24．D25.C26.D27.A28.A二、填空题1．.vbp2．10003．64．85．06．Timer7．Picture1.Picture=LoadPrcture("pictureflower.jpg")8．abcdef9．实时错误逻辑错误10．本地数据库远程数据库11.数据库