VB程序设计期末复习题

标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 化工作室编码[XX968T-XX89628-XJ668-XT689N]VB程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 期末复习题《VisualBasic程序设计》期末复习题一、单项选择题1．VisualBasic是一种面向对象的可视化编程语言，采取了（）的编程机制。A．按过程顺序执行B．从主程序开始执行C．事件驱动D．按模块顺序执行2．与传统的设计语言相比，VisualBasic最突出的特点是（）A．程序开发环境B．结构化程序设计C．程序调试技术D．事件驱动的编程机制3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。A．缺少.frm窗体文件B．该可执行文件有病毒C．运行的机器上无VB系统D．以上原因都不对4.VisualBasic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。A．设计模式B．编写代码模式C．执行模式D．中断模式5．后缀为.bas的文件 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示（　　）。A．工程文件B．窗体文件C．窗体二进制数据文件D．标准类模块文件6．工程文件的扩展名是（）。A．.vbpB．.frmC．.basD．.frx7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。A．时钟控件B．图像框C．框架D．通用对话框8.以下叙述中错误的是（）。A．一个工程中可以包含多个窗体文件B．在设计VisualBasic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用　D．全局变量必须在标准模块中定义9．要在窗体Form1内显示“欢迎您！”，使用的语句是（）A．Form.caption="欢迎您!"B．Form1.caption="欢迎您!"C．Form.print"欢迎您!"D．Form1.print"欢迎您!"10．决定标签内显示内容的属性是（）A．NameB．TextC．CaptionD．Alignment11．要设置命令按钮的背景图形，必须设置的两个属性是（）A．Caption和PictureB．Style和PictureC．Style和IconD．Value和Icon12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．List1.AddItem"China"B．List1.AddItem"1,China"C．List1.AddItem"China",0D．List1.AddItem"China",113．在VB中，下列各项合法的变量名是（）。A．IntegerB．ab-cC．2abcD．a_bc14．在VB中，下列合法的变量名是（）A．4EFB．integerC．E-FD．E_F15．如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。A．PasswordCharB．CaptionC．TextD．Locked16．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。A．MaxButtonB．BorderSyleC．WidthD．MinButton17．下列控件中不能响应Click事件的是（）。A．TextBoxB．TimerC．LabelD．ListBox18．有程序代码如下：Text1.Text="欢迎学习VB程序设计"则Text1，Text，和"欢迎学习VB程序设计"分别代表（）。A．对象，值，属性B．对象，属性，值C．对象，方法，属性D．属性，对象，值19．设a=”VisualBasic”，下面使b=”Basic”的语句是（　　）。A．b=left(a,8,12)B．b=mid(a,8,5)C．b=right(a,5,5)D．b=left(a,8,5)20．确定一个控件在窗体上位置的属性是（）A．Top或LeftB．Top和LeftC．Width或HeightD．Width和Height21．执行Form1.Scale(0,10)-(10,-10)语句后，Form1窗体坐标系x轴和y轴的正方向是（）。A．向右和向上B．向左和向下C．向右和向下D．向左和向上22．如果希望以模态方式显示窗体Form1，下列正确的语句是（）A．Form1.Show0B．Form1.Show1C．Form1.ShowD．以下都不正确23．改变驱动器列表框的Drive属性值，将激活（　　）事件。A．KeyDownB．KeyUpC．ScollD．Change24．多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。A．不包含任何控件的窗体B．命名为Frm1的窗体C．包含控件最多的窗体D．设计时的第一个窗体25．DimA(1To4,0To3)定义的数组包含的元素的个数是（）。A．12B．16C．15D．动态变化26．如果创建了命令按纽控件数组，则Click事件的参数是（）。A．CaptionB．IndexC．TagD．没有参数27．如果准备向随机文件中写入数据，正确的语句是（）A．Write#1,recB．Print#1,recC．Get#1,recD．Put#1,rec28.要以读方式打开D盘的一个顺序文件Test.doc，应使用的语句是（）A．Open"Test.doc"ForOutputAs#1B．Open"D:\Test.doc"ForInputAs#1C．Open"D:\Test.doc"ForOutputAs#1D．Open"Test.doc"ForInputAs#129．.以下属性只能用程序代码设置，不能通过属性窗口设置的是（）。A．Index属性B．Pattern属性C．Visible属性D．Drive属性30．以下有关VisualBasic语言描述中错误的是（）。A．语句是一行一句，以回车键结束B．用“,”分隔一行中的多个语句C．不区分大小写D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行31．不属于VB数据库引擎的是（　　）A．ODBCB．Jet引擎C．OLEDBD．BDE　32.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。A．OpenB．ExecuteC．CommandTypeD．ActiveConnection33．用来从数据库表中删除记录的SQL命令是（）。A．whereB．selectC．updateD．delete34．VB程序中通常不会产生错误提示的是（　　）。A．编译错误　　　　　　B．逻辑错误C．运行时错误　　　　　D．实时错误35．在VB程序中逐语句调试的键是（　　）。A．F8键　　　　　　　　　B．F9键C．CtrlF8键　　　　　　　　　D．CtrlF9键36．当Winsock控件处于侦听状态时，其State属性的值是（　　）A．0B．1C．2D．337．要发送数据，通常使用Winsock控件的（　　）A．ListenB．AcceptC．SendDataD．GetData38.下列叙述不正确的是（）。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译B.注释语句不能放在代码中的任何位置C.注释语句可以放在代码中的任何位置D.代码中加入注释语句的目的是提高程序的可读性39．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（）。A．CommandB．ConnectionC．RecordsetD．Field40．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（）。A.CommandB.ConnectionC.RecordsetD.Field二、填空题1.每个应用程序必须有一个唯一的文件，至少有一个文件。2．表达式13\2-2^3*5MOD6的值是。3．如果要每隔3s产生一个Timer事件，则Interval属性应设置为。4．VB中的程序错误类型主要有实时错误、、三种。5.控件数组的名字由属性指定，而数组中的每个元素由属性决定。6．用DimA(4,4)语句声明二维数组后，数组A的元素共有个。7．设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到2，第二维下标从0到4，则相应数组声明语句为。8．某个程序中要用到一个二维数组，要求数组名为C，类型为整型，第一维下标从-1到3，第二维下标从0到4，则相应数组声明语句为。9．过程级变量是指在声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用或声明的变量，在全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。10．在VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用ForNext循环循环；若要求先判断循环进行的条件，可使用循环。11．为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句为。12.将图片框的AutoSize属性设置成时，可使图片框根据图片调整大小。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整除。表示该条件的逻辑表达式是。22．若窗体的左上角坐标为（-250，250），右下角坐标为（300，0），则X轴的正向向，Y轴的正向向。23．在VB中，将Access称为，SQLServer称为，Foxpro称为。24．数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要机制称为。25．常用的VB网络编程控件主要有、和三种。26．通常可以将文本框控件的属性设置为False，以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的属性设置为False。27．VB应用程序可分为单窗体、多窗体和。28．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向，Y轴的正向向。29．数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为。30．VB中将数据库分为本地数据库、和三种类型。三、阅读程序题阅读下列程序并写出程序运行结果1．PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+2y=y+3Form1.Print"x=";x,"y=";yEndSub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2．PrivateSubCommand1_Click()x=0DoWhilex<60x=(x+3)*(x+4)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub写出程序运行后，文件框Text3的结果。3.PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)="8"A(3)="12"c=1Forj=1To3c=c+Val(A(j))NextjPrintcEndSub写出程序运行时单击窗体后，窗体Form1上的结果。4.PublicSubchange1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubchange2(xAsInteger,yAsInteger)DimtAsIntegert=xx=yy=tEndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=22:b=33change1a,bForm1.Print"A1=";a,"B1=";ba=22:b=33change2a,bForm1.Print"A2=";a,"B2=";bEndSub写出程序运行时，单击窗体Form1上的输出结果。5．PrivateSubForm_Click()DimiAsInteger,kAsIntegerk=1Fori=1To4Ifi>3Thenk=k+4ExitForElsek=k+3EndIfNextiPrinti,kEndSub写出程序运行时单击窗体后，Form1上的输出结果。6.PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=6i=2DoWhilei<7i=i+4s=s+iLoopText1.Text=sEndSub写出程序运行后，单击Command1按钮，文件框Text1的输出结果是：7.FunctionF(aAsInteger)Staticcb=b+3c=c+3F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=5Fori=1To4PrintF(a)NextiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。8．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=3c=4Forj=1To6Ifj>3Thenc=c+6ExitForElsek=k+2EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，c,k的值分别是：9.(6分)PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei<8i=i+2s=s+iLoopText1.Text=sEndSub文件框Text1的输出结果是10.(7分)Subtest(iAsInteger)i=i+4EndSubPrivateSubform_Click()DimxAsIntegerx=5Print"x=";xCalltest(x)Print"x=";xEndSub写出程序运行后，单击窗体时程序的运行结果。四、完善程序题1．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1图1程序如下，请补充完整。PrivateSubForm_Load()List1.AddItem"VisualBasic程序设计"List1.AddItem"SQLSERVER数据库应用"List1.AddItem"信息管理系统"List1.AddItem"ERP原理与应用"List1.AddItem"网络实用技术基础"List1.AddItem"系统开发 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 与文档编写"List1.AddItem"信息系统测试"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then[1]'将文本框中的内容加到列表框中Text1.Text=""[2]MsgBox"请在文本框中输入信息！"EndIfEndSubPrivateSubCommand2_Click()[3]'删除选定的项目EndSubPrivateSubCommand3_Click()IfCommand3.Caption=[4]ThenText1.Text=[5]Text1.SetFocusCommand1.Enabled=[6]Command2.Enabled=FalseCommand3.Caption=[7]ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption=[8]EndIfEndSub2．已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如下图所示。图1程序如下，请补充完整。'声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load()'连接SQLServer数据库DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"IfADOcnIsNothingThenSetADOcn=[2][3]EndIfEndSubPrivateSubCommand1_Click()'增加学生记录DimstrSQLAsStringDimADOrsAs[4]ADOrs.[5]=ADOcnADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“IfNot[6]ThenMsgBox“你输入的学号已存在，不能新增加！”ElseStrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOcn.Execute[7]MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub3．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图1用Access创建的学生基本情况数据表图2查询程序运行界面程序如下，请补充完整。PrivateADOcnAsConnectionPrivateSubForm_Load()[1][2]"EndSubPrivateSubCommand1_Click()DimstrSQLAsStringDimADOrsAs[3]RecordsetADOrs.ActiveConnection=ADOcnstrSQL="Select*From学生基本情况Where学号="+"'"+Text1+"'"[4]If[5]ADOrs.EOFThenText2=ADOrs.Fields("学号")Text3=ADOrs.Fields("姓名")Text4=ADOrs.Fields("籍贯")[6]MsgBox"要查询的学号不存在，请重新输入!",vbOKOnly,"信息提示"Text1=""[7]EndIfEndSubPrivateSubCommand2_Click()[8]End五、编写程序题1．编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。图22．请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图2所示。图23．请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在1200元以内，扣税3%；（2）收入在1200-4000元内，1000元以上部分扣税15%，（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。程序运行界面如图3所示。图3答案：一、单项选择题（每小题2分，共30分）1.C2.D3.C4.B5.D6.A7.D8.C9.D10.C11.B12.C13.D14.D15.A16.B17.B18.B19.B20.B21.A22.B23.D24.D25.B26.B27.D28.B29．D30．B31.D32.D33.D34.B35.A36.C37.C38．C39.B40.C二、填空题（每空1分，共15分）1．Vbpfrm2．23．30004．逻辑错误编译错误5．NameIndex6．257.DimR(-2To2,0To4)AsInteger8．DimC(-1To3,0To4)AsInteger9．过程内部DimPrivatePublic10．ForNext循环DoLoop循环11．P1.Picture=LoadPicture("flower.jpg")12．True13.UDPLocalIP14.TCP/IPUDP15．变体型(或Variant)16.open"D:\text.dat"ForOutputAs#117.018．abcdef19.整个应用程序Public20．引用参数传递（或按址传递）按值传递21.YMOD4=0AndYMOD100<>0ORYMOD400=022．右上23．本地数据库远程数据库外部数据库24．数据引擎25．WinsockInternetTransfeWebBrowser26．LockedTabStop27．MDI窗体28.右上39．数据库引擎30．外部数据库远程数据库三、阅读程序题1．x=2y=3x=2y=6x=2y=92.2423．254．A1=22B1=33A2=33B2=225.4146．227．111417208.1099．2910．x=5x=9四、完善程序题1．[1]List1.AddItemText1.Text[2]Else[3]List1.RemoveItemList1.ListIndex[4]"修改"[5]List1.Text[6]False[7]"修改确认"[8]"修改"2．[1]学生[2]NewConnection[3]ADOcn.OpenstrDB[4]NewRecordset[5]ActiveConnection[6]ADOrs.EOF[7]strSQL3．[1]SetADOcn=NewConnection[2]学生.MDB[3]New[4]ADOrs.OpenstrSQL[5]Not[6]Else[7]Text1.SetFocus[8]UnLoadMe五、编写程序题1．参考答案：PrivateSubCommand1_Click()DimxAsInteger,yAsSinglex=Val(Text1.Text)SelectCasexCaseIs>=800y=x*1.2CaseIs>=600y=x*1.15CaseElsey=x*1.1EndSelectLabel1.Caption=yEndSubPrivateSubCommand2_Click()UnloadMeEndSub2．参考答案：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<100Theny=xElseIfx<200Theny=9.5*xElseIfx<300Theny=0.9*xElseIfx<500Theny=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub3．参考答案：PrivateSubCommand1_Click()DimxAsInteger,taxAsSinglex=Val(Text1.Text)Ifx<1200Thentax=x*0.03ElseIfx<=4000Thentax=(x-1000)*0.15ElseIfx<=5000Thentax=(x-1000)*0.15+(x-4000)*0.05Elsetax=x*0.25EndIfEndIfEndIfText2.Text=taxEndSub