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

1、A 设计模式C.中断模式4如果对象的名称为正确格式是 。A Text.MytextC Mytext.(Text)B Mytext*TextD Mytext.TextVisualBasic®序设计期末综合练习题一、单项选择题1.VisualBasic是一种面向对象的可视化编程语言，采取了的编程机制。A.从主程序开场执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2在VisualBasic中，窗体文件的扩展名为。A.vbpB.frmC .clsD.bas3.VisualBasic6.0集成开发环境有三种工作模式，以下不属于三种工作模式之一的是。B.编写代码模式D执行模式Mytext，

2、而且对象有一个属性Text，那么在代码中引用该属性的5以下关于变量的说法不正确的选项是A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6关于对象的属性不正确的选项是。A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C可通过程序代码设置属性的值D对象的所有属性值均可在设计时设计7在设计阶段，双击窗体上的某个控件时，翻开的窗体是。A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8要在窗体的标题内显示“myfrm,

3、使用的语句是。AForm.caption="myfrm"BForm1.caption="myfrmCForm1.Print"myfrm"DForm.Print"myfrm"9在VB中，以下变量名不合法的是。Afile_1BfileCfile-1Dfile_1_210 在设计动画时，用时钟控件来控制动画速度的属性是。B MoveD TimerAEnabledCInterval11 .要从ForNext循环中退出循环，应使用语句。AExitBExitForCContinueDStopLoop12 .文本框ScrollBars属性

4、设置了非零值，却没有效果，原因是。A.文本框中没有内容B.文本框的Locked属性为TrueC.文本框的MultiLine属性为TrueD.文本框的MultiLine属性为False13要利用公用对话框控件来显示“翻开文件对话框，需要调用控件的方法。AShowPrinterBShowOpenCShowSaveDShowColor14以下赋值语句正确的选项是。Ax=y+zBy+z=xC-y=xD4=x+y15确定一个控件在窗体上位置的属性是。AWidth和HeightBWidth或HeightCTop和LeftDTop或Left16 VB程序中设置断点的按键是。AF5键BF6键C. F9键D.F

5、10键17 如果希望以模态方式显示窗体Form1，以下正确的语句是。AForm1.Show0BForm1.ShowCForm1.Show1D以下都不正确18 用语句DimA(-2To3)AsInteger所定义的数组的元素的个数是。A3B4C5D619 如果创立了命令按钮的控件数组，那么Click事件的参数是。ACaptionBTagCIndexD没有参数20 要向图片框Picture1中加载“d:hainanzhiwu.bmp图像文件，应使用语句。AP1.Picture=LoadPicture(d:hainanzhiwu.bmp)BP1.Picture=LoadPicture("d

6、:hainanzhiwu.bmp")CPicture1.Picture="d:hainanzhiwu.bmp"DPicture1.Picture=LoadPicture("d:hainanzhiwu.bmp")21 如果要在窗体代码编辑器的通用局部定义私有Sub过程，那么正确的语句是。A Public SubB Private SubCPublicFunctionDPrivateFunction22 在代码编辑器中，如果一条语句太长，无法在一行内写下不包括注释，要折行书写，可以在行末使用续行字符，表示下一行是当前行的继续。A直接回车B一个下划字

7、符_C.一个空格加一个下划字符_'D.一个空格加一个连字符(-)23 .以下表达不正确的选项是。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译B.注释语句可以放在代码中的任何位置C.注释语句不能放在代码中的任何位置D. 代码中参加注释语句的目的是提高程序的可读性24 VB程序中通常不会产生错误提示的是。A编译错误B实时错误C.运行时错误D.逻辑错误25 ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是B.ConnectionD.FieldA.mandC.Recordset26 .使用ADO模型时，建立Recor

8、dset和Connection对象的连接的属性是A ExecuteC Open27要发送数据，通常使用A. SendData方法C Accept 方法8 mandTypeDActiveConnectionWinsock控件的。BListen方法DGetDate方法28以下只能用程序代码设置，不能通过属性窗口设置的属性是。ADrive属性BPattern属性CVisible属性DIndex属性二、填空题1 每个应用程序必须有一个惟一的文件。2 .欲设置定时器的时间间隔为1秒，那么属性Interval的值为。3表达式5+212*3Mod2的值是。4 .表达式5+9Mod2A3+2的值是。5列表框中

9、工程的序号是从开场的。5 计时器控件响应的事件是。7 为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为。8 执行赋值语句a="abc"+"def"，变量a的值是。9 .VB中的程序错误类型主要有编译错误、等三种。10 .在VB中，将Foxpro称为外部数据库，Access称为，SQLServer称为。11 数据库应用程序属于一种非常典型的前后台软件构造，而前后台之间进展通信的主要机制称为。12 假设窗体Form1左上角坐标为0，600，右下角的坐标为800，-200。那么X轴的正向向，Y轴的正

10、向向。13 .用DimA(3,3)语句声明二维数组后，数组A的元素共有个。14 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从0到3，那么相应的数组声明语句为。15 .果不适先确定变量的数据类型，那么可以把它声明为变量。16 .tretch属性设置为时，图像框可自动改变大小以适应其中的图形。17 .insock1.Listen语句的含义是。三、阅读程序题阅读以下程序并写出程序运行结果1PrivateSubForm_Click()StaticaAsStringDimbAsStringa=a+"A"b=b+"B&qu

11、ot;Text1=aText2=bEndSub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。2PrivateSubForm_Click()StaticSumAsIntegerFori=1To4Sum=Sum+iNextiPrintSumEndSub写出程序运行时点击窗体两次后，变量3PrivateSubmand1_Click()DimA(1To5)AsIntegerDimxAsIntegerFori=1To5A(i)=iNexti1 =1DoWhilex<7A(i)=A(i)+xx=x+3i=i+1LoopText1.Text=A(1)Text2.Text=A(

12、3)EndSub写出程序运行时单击窗体后，Sum 的值。Form1 上的输出结果。4PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=2c=3Forj=1To5Ifj>3Thenc=c+5ExitForElsek=k+5EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，Form1上的输出结果。5PrivateSubmand1_Click()DimXAsInteger,YAsIntegerX=1:Y=1Fori=1To4Forj=1ToiY=Y+jNextjX=X+YNextiPrintXEndSu

13、b写出程序运行时单击命令按钮后，窗体Form1上的输出结果。6PrivateSubmand1_Click()DimA(1To5)AsIntegerDimbAsIntegerForb=1To5A(b)=bNextbText1.Text=A(b-2)EndSub写出程序运行时单击mand1后，文件框Text1中的输出结果。7FunctionF(aAsInteger,bAsInteger)AsIntegerF=a+bEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=4:b=5z=F(a,b)PrintzEndS

14、ub写出程序运行时单击窗体后，Forml上的输出结果。8FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubmand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)NextiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。四、完善程序题1.假设用Access创立了一个名为“学生.MDB”的数据库，并在其中创立了一X名为“学生根本情况的数据表，表中存放了学生的根本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序

15、的运行界面如图2所示，根本逻辑是：首先文本框（Textl）中输入希望查询的学生学号，然后点击“查询''按钮（mandl）,如果数据库中存在该学号，那么分别在Text2、Text3、Text4中显示学号、XX、籍贯信息，否那么提示用户“记录不存在''并使Textl获得焦点，要求用户重新输入。当点击退出按钮（mand2）时关闭本窗体。图1用Access创立的学生根本情况数据表图2查询程序运行界面程序如下，请补充完整。PrivateADOAsConnectionPrivateSubForm_Load()学生.MDB"12EndSubPrivateSubman

16、d1_Click()DimstrSQLAsStringDimADOrsAs3RecordsetADOrs.ActiveConnection=4strSQL="Select*From学生根本情况Where学号="+"'"+Textl+"'"5IfNotADOrs.EOFThenText2=ADOrs.Fields("学号")Text3=ADOrs.Fields("XX")Text4=ADOrs.Fields("籍贯")Else请重新输入!", vbOK

17、Only,"信息提示"MsgBox"要查询的学号不存在,Textl=""Textl.SetFocusEndIfEndSubPrivateSubmand2_Click()UnLoadMeEnd2.列表框应用程序要求从文本框中输入课程名称，然后按“添加''按钮，将该课程名程添加到列表框中；中选择列表框中某一项后，按“删除''按钮，那么从列表框中删除该项；中选择列表框中某一项后，按“修改按钮，把列表框中选取的项送往文本框且“修改''按钮变为“修改确认'。在文本框的内容修改好后，按“修改确认按钮，

18、再把文本框中修改后的信息送到列表框且“修改确认按钮变为“修改。程序运行结果如图3所示。ListlTextlmandlmand2mand3图3程序如下，请补充完整。PrivateSubForm_Load()Listl.AddItem"VisualBasic程序设计"Listl.AddItem"SQLSERVER数据库应用"List1.AddItem”信息管理系统"List1.AddItem"ERP原理与应用"List1.AddItem"网络实用技术根底"List1.AddItem”系统开发规X与文档编写&q

19、uot;List1.AddItem”信息系统测试"EndSubPrivateSubmand1_Click()IfText1.Text<>""Then1 Text1.Text'将文本框中的内容加到列表框中Text1.Text=""2MsgBox"请在文本框中输入信息！"EndIfEndSubPrivateSubmand2_Click()3Listl.ListIndex'删除选定的工程EndSubPrivateSubmand3_Click()Ifmand3.Caption=4ThenTextl.Tex

20、t=_5Text1.SetFocusmand1.Enabled=Falsemand2.Enabled=Falsemand3.Caption="修改确认"ElseList1.List(List1.ListIndex)=Text1.Textmand1.Enabled=Truemand2.Enabled=TrueText1.Text=""mand3.Caption="修改"EndIfEndSub五、编写程序题编写一工资调整程序。假设根本工资大于等于2000元，增加工资20%,假设小于1800元大于1300元，那么增加工资15%;假设小于13

21、00元那么增加工资10%。要求在文本框Text1中输入某职工的根本工资，单击“计算''按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。图42.请根据以下描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠方法，每位顾客一次购物们在200元以上者，按九五折优惠；2在400元以上者，按九折优惠；3800元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图5所示。图5答案：一、单项选择题1 .C2.B3.B4.D5.A6.D7.C8.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. Picturel.Picture=