VisualBasic程序设计试题及答案2

《VisualBasic程序设计》模拟试题及答案（二）一、单项选择题（每小题2分，共30分）1．后缀为．bas的文件表示VB的()。A．类模块文件B．窗体文件C．工程文件D．标准类模块文件2．无论何种控件，共同具有的属性是()。A．Text属性B．Caption属性C．Name属性D．Autosize属性3．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是()。A.Text.MytextB.Mytext.TextC.Mytext.(Text)D.Mytext*Text4．在设计动画时，用时钟控件来控制动画速度的属性是()。A．EnabledB.IntervalC．TimerD．Move5．要在窗体上显示“欢迎您！”，使用的语句是()．A．Form．caption-”欢迎您！”B．Forml．caption-“欢迎您！”C．Forml.print”欢迎您！”D．Form．print“欢迎您！”6．关于语句行，下列说法正确的是()。A．一行只能写一条语句B．长度不能超过255个字符C．每行的酋字符必须大写D．一条语句可以分多行书写7．下列正确的赋值语句是()。A．x+y=20B．y=x+20C．3x=yD.s=π*r*r8．如果希望以模态方式显示窗体Forml，下列正确的语句是()。A.Forml.ShowB.Forml.Show0C．Forml.ShowlD．以下都不正确9．对于定时器(Timer)控件，设置其定时是否开启的属性是()。A．IndexB．TagC．EnabledD．Leftl0．多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把(指定为启动窗体。A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的窗体D．命名为Frml的窗体11.DimlAsInteger．则运行时变量I的初始值是()。A．0B．1C．-1D．空值12．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是(A．ExecuteB．OpenC.ActiveConnectionD.CommandType13.下列关于变量的说法不正确的是()。A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量R．局部变量的作用域仅限于声明它的过程C．静态局部变量是在过程中用Staric语句声明的D．局部变量在声明它的过程执行完毕后就被释放了14.下列数据对象模型中采用OLEDB访问数据库的是()。A．DAOB．ADOC.RDOD．RDO和ADO15．为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picturel中，所使用的语句为()．A.Picturel.Text=LoadPicture(”d:\pic\a.jpg”)B.Picturel.Picture=LoadPicture(d:＼pic\a.jpg)C.Picturel.Picture=LoadPicture(d:\pic\a.jpg)D.Picturel.Picture=Load(”dl＼pic\a.jpg”)二、填空题（每小题2分，共20分）16.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按________键．17．表达式8+13Mod2*4+3的值是________．18.全局变量在整个应用程序中有效，一般在标准模块中使用________，语句声明。19．若窗体Forml左上角坐标为(0，600)，右下角的坐标为（800．-200）。则X轴的正向向________，Y轴的正向向________。20．将图片框的AutoSize属性设置成________时．可使图片框根据图片调整大小。21．Winsock控件主要用来编制基于________或________协议的网络应用程序。22.VB中．Access敷据库属于________．（说明是哪种数据库类型）23．VB应用程序与数据库进行通信的主要机制称为________．24．设某个程序中要用到一个二维散组，要求数组名为A．类型为字符串类型，第一维下标从l到3，第二维下标从-1到2．则相应的数组声明语句为________．25．列表框控件中最后一项的序号等于ListCount属性减________．三、阅读程序题（共25分）阅读下列程序并写出程序运行结果．26．(6分)PrivateSubCommand1_Click()DimSumlAsInteger,Sum2AsIntegerSuml=O：Sum2=2Fori=1T02Forj=1ToiSum2=Sum2*jNextjSuml=Suml+Sum2NextiPrintSumlEndSub写出程序运行时单击Commandl按纽后，Forml上的输出结果．27．（6分）PrivaieSubCommandl_Click()DoWhilex50x=(x+1)*(x+2)n=n+lLoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub写出程序：运行时单击Commandl按纽后．textl和text2上的输出结果。28．（6分）PrivateSubForm_Click()a=3：b=4PrintA=；a；B=;bCallmult(a)PrintA=;a；B=;bEndSubPrivateSubmult(x)x=3+xb=5+bEndSub写出程序运行后，单击窗体时的输出结果．29.（7分）PrivaleSubCommandI_CLick()StaticbAsIntegerDimlAsIntegerI=1Dob=b+lI=I+lLoopWhileI=4Textl.Text=bText2.Text=IEndSub写出程序运行时两次单击Commandl按纽后，文本框Text1、Text2上的输出结果．四、完善程序题（共10分）30．假设在C盘根目录中存在一个名为“学生．MDB的Access数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图2所示，基本逻辑是：分别在Textl、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Commandl)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Textl上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。程序如下，请补充完整．PrivateSubForm_Load()[1]Provider=Microsoft.Jet.OLEDB.4.0；Dataource=学生.mdb；PersistSecurityInfo=FalseEndSubPrivateSubCommandl_Click()DimstrSQLAsString[2][3]=ADOcnDimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnstrSQL=Select*from学生基本情况Where学号='+Textl+'ADOrs.Open[4]lfNotADOrs．EOFThenMsgBox学号已经存在，请重新输入！，vbOKOnly，信息提示ElseTextl.SetFocusstrSQL=InsertInto学生基本情况（学号，姓名，籍贯）”srrSQL=strSQL+Values（'+Textl+'，'+Text2+','+Text3+'）[5]ExecutestrSQLMsgBox添加成功！,vbOKOnly,信息提示EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub五、编写程序题（共15分）31.编写简单的工资计算程序，要求在Textl、Text2、Text3中分别输入基本工资、奖金、扣款，单击“计算”按钮(Commandl)后，首先计算。应发工资”(Text4)，然后根据“应发工资”计算个人所得税(Text5)．最后计算出实发工资(Text6)．(1)应发工资=基本工资+奖金-扣款(2)个人所得税的计算规则假设为：①当应发工资在1000元以内部分（含1000元）．不扣所得税，②当应发工资大干1000，但小于等于4000元时，超过1000元的部分按15%计算所得税。③当应发工资大于4000．按20%扣税，程序运行结果如图3所示。《VisualBasic程序设计》（二）试题答案及评分标准一、单项选择题（每小题2分，共30分）1．D2．C3．B4．B5．C6．D7．B8．C9．C10．B11.A12.C13.D14．B15．B二、填空题（每小题2分，共20分）16．F117．1618．Public19．右上20．True21．TCP/IPUDP22．本地数据库23．数据库引擎24．DimA(lTO3,-1TO2)AsString25．1三、阅读程序置l共25分）26.（6分）627.（6分）318228,（6分）A=3B=4A=6B=429．（7分）105205.四.完善程序题(共10分)30.[1]ADOcn.Open[2]DimADOrsAsNewRecordsei[3]ADOrs,ActiveConnection[4]strsoL[5]ADOcn.五.编写程序题(共15分)PrivateSubCommandl_Click()Text4=Val(Text1)+Val(Text2)-Val(Text3)IfVal(Text4)=1000ThenText5=0ElselfVal(Text4)1000AndVal(Text4)=4000ThenText5=(Val(Text4)-1000)*0.15ElseText5=Val(Text4)*0.2EndlfText6=Val(Text4)-Val(Text5)EndSubPrivateSubCommand2_Click()UnloadMeEndSub