电大《VB程序设计》期末考试试题及答案

1、VisualBasic程序设计试题一、单项选择题（每小题2分，共30分.与传统的程序设计语宵相比，VisualBasic最突出的特点是（CA.结构化程序设计B.程序开发环境C.事件驱动的编程机制D程序调试技术.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（D）A设计模式B中断模式c.执行模式D编写代码模式.下列关于窗体的说法不正确的是（B）。A.窗体的标题由Caption属性确定B.窗体的Name属性Caption属性相同C.窗体的背景图片由其Picture属性设成D通过设置Icon属性可使窗体获得最小化时的图标.工程文件的后缀是（B）。A.frmB.vbpc.ba

2、sD.cls.要在窗体的标题内显示myfrm,使用的语句是（D）。A.Form1.PrintmyfrmB.Form.PrintmyfrmC.Form.caption=myfrmD.Form1.caption=myfrm.在设计动画时，用时钟控件来控制动画速度的属性是（B）。A.EnabledB.IntervalC.TimerD.Move.关于语句行，下列说法正确的是（D）。A一行只能写一条语句B.长度不能超过255个学符C.每行的首学符必须大写D条语句可以分多行书写.假定已在窗体上画了多个控件，井有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（A）。A.单击窗体上没有控

3、件的地方B.单击任一个控件C不执转任何操作D.双击窗体的标题栏.下列关于变量的说法不正确的是（D）。A.局部变量是指那要是在过程中用Dim语句或Static语句声明的变量B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量在声明它的过程孰行完毕后就被释放了.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（C）。A.ExecuteB.OpenC.ActiveConnectionD.CommandType.DimA（1To6,6）AsString定义的数组包含的元素个数是（C）。A.36B.49C.42D.50.V

4、B程序中逐语句调试的按键是（B）。A.F1键B.F8键C.F9键D.Ctrl+F9键.不属于VB数据库引擎的是（C）。A.ODBCB.Jet引擎C.BDED.OLEDB.一旦数据到达，将首先触发Winsock控件的（D）。A.DataGet事件B.ConnectonRequestC.DataSend事件D.DataArrival事件.VB程序中通常不会产生错误提示的（C）。A.编译错误B.实时错误C.逻辑错误D.运行时错误二、填空题每小霆2分，共20分.控件数组的名字由Name属性指定，而数组中的每个元素由Index属性决定。.全局变量在整个应用程序中有效，一般在标准模块中使理Public语句

5、声明。.在VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For循环;若要求先到新循环进行的条件，可使用While循环戒Do循环。.要使标签框的大小随Caption属住做自动调擦，应将AutoSize属姓设置为True。.表达式14/2-23*7MOD6的值是5.Winsock控件主要用来编制TCP/IP或UDP协议的通话程序。.若窗体Forml左上角坐栋为（0,600）,右下角的坐标为（800,-400）0照X轴的向向左，Y轴的正向上.列条框按件中最后一项的序号等于ListCount属性减1.VB中，Access数据库属于垄地数据库。（说明是哪种数据库

6、类.VB应用程序与数据库进行通信的主要机制称为数据库引擎三、阅读程序题共25分阅读下列程序并写程序运行结果。.(6分)PrivateSubForm_ClickODimxasintegerStaticyAsIntegerX=x十3y=x十yForml.Print.x=;X,”=;yEndSub程序运行后三次单击窗体，写出Forml上的输出结果：x=3y=3x=3y=6x=3y=927.(6分SubChange(ByValxAsInteger,ByValyAslnteger)DimtAsIntegerT=xX=yy=tPrintx,yEndSubPrivateSubForm_ClickODimaA

7、sInteger,bAsIntegera5:b=10Changea,bPrinta,bEndSub写出程序运行时单击窗体后，Form1上的输出结果。10551028.(6分PrivateSubForm_ClickODimIAsInteger,kAsInteger,cAsIntegerFori=1To7IfIMod2=0ThenElsec=c+4EndIfNextiPrintk,cEndSub写出程序运行时单击窗体后，窗体Form1上的结果。916.(7分PrivateSubForm_ClickODimA(1To3)AsStrng1DimcAsIntegerDirnjAsIntegerA(1)=

8、“20”A(2)=“40”A(3)=60c=2Forj=1To3C=c十Val(A(j)NextjPrintcEndSub写出程序运行时单击窗体后，窗体Forml上的结果Combo2. ClearstrSQL = strSQL十 Combo2.122西完善程序题共10分.假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。则在课程Text2Text3现在要求利用VB编写一个数据库记录增加程序，程序的运行界前如图2所示，基本逻辑是：在“学号”中选择学号，Text1中自动显示姓名，在号”中选择课程号，则在中

9、自动显示课程名称，在中输入成绩，然后点击确认按钮，若数据库中不存在该记录，则将该记录添加到数据库中，否则，如果数据库中已经存在该学号、该课程的成绩，则程序应提示用户该记录巳经存在，不能继续增加“。当点击返回按钮(Command2)时关闭本窗体。DoWhileNotADOrs.EOFCombo2.AddltemTrim(ADOrs.Fields(堞程号)ADOrs.MoveNextLoopADOrs.CloseTextl.Text=Text2.Text=Text3.Text=0EndSubPrivateSubCommand2_ClickOUnloadMeEndSubPrivateSubCombo

10、l_ClickODimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnADOrs.Openselect姓名from学生情况进where学号=+Combo1.Text+”IfNotADOrs.EOFThenText1.text=ADOrs。姓名)Text十，十Str(Val(Text3.Text)十)”ADOcn.ExecutestrSQLMsgBox巳成功添如新纪录”,vbCritical+vbOKOnlyEndSub五、编写程序题共15分i.请根据下列描述编写购物优惠程序。某商场为了如速提成商品流通，采用购物打折的优惠办法，每位顾客一次购物元以上

11、者，按九折优惠元以上者，按八折优惠元以上者按七折优惠。(1)在 700 ;(3)1000 ;(4)2000 在窗体上添加商个文本框和一个命令按ADOrs. Open select 课程名图1峰物Oc/F打r钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图3所示。图2增加新记录窗体程序代码如下, 请补充完整。If Not ADOrs.EOF Then - 1f1Text2. Text =:ADOrs(课程前HT港JGK鼻理-End it - -End Sub，用=十combo2. iext+PrivateSubForm_LoadODimADOrs

12、AsNewRecordsetADOrs.ActiveConnecton=ADOcnADOrs.OpenSelect学号From学生情况表OrderBy学号Combol.ClearDoWhile-NotADOrs.EOFCombol.AddltemTrim(ADOrs.Fields(学号)ADOrs.MoveNextLoopADOrs.CloseADOrs.OpenSelect课程号From课程情况表OrderBy课程号”esPrivateSubCommandl_ClickOstrSQLAsString:DimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnstrSQL=Select*from学生成绩表strSQL=strSQL十Where学号=十Combo1.Text十”strSQL=strSQL十And课程号=十Combo2.Text十”ADOrs.OpenstrSQLIfNotADOrs.EOFThenMsgBox”该记隶己经存在，不能继续增如”,vbCritical+vbOKOnlyExittSubEndIfstrSQL=InsertInto学生或绩表(学号，课程号，成绩