VisualBasic程序设计期末综合练习题(2005年12月)

1VisualBasic程序设计期末综合练习题（2005年12月）一、单项选择题1．工程文件的扩展名是（）A．.frmB．.vbpC．.basD．.fix2．要在窗体Form1内显示“新年快乐”，使用的语句是（）A．Form.caption=新年快乐B．Form1.caption=C．Form.print新年快乐D．Form1.print新年快乐3．语句Text1.Text=VisualBasic,分别代表（）A．对象、值、属性B．对象、方法、属性C．对象、属性、值D．属性对象、值4．若要将窗体从内存中卸载，应使用的方法是（）。A．ShowB．UnloadC．LoadD．Hide5．在VB中，下列各项合法的变量名是（）。A．IntegerB．ab-cC．56abcD．a_bc6．表达式10＋10Mod2^3+3的值是A．7B．9C．15D．107．下列正确的赋值语句是（）。A．m=m-1B．m+1=mC．3m=n+xD．-m=n+18．Winsock控件的LocalPort属性的作用是（）A．仅返回所用端口B．返回或设置所用端口C．仅设置所用端口D．返回或设置IP地址9．Winsock控件的LocalIP属性的作用是（）A．返回本地计算机的名称B．返回或者设置所用的端口C．返回远程机器的IP地址D．返回本地计算机的IP地址10．DimA(5,5)AsInteger定义的数组包含的元素个数是（）2A．25B．36C．30D．动态变化11．要清除List列表框控件中的所有项目，可采用的方法是（）A．ClearB．EraseC．ClickD．Delete12．如果希望以模态方式显示窗体Form1，下列正确的语句是（）A．Form1.Show0B．Form1.ShowC．Form1.Show1D．以下都不正确13．如果准备向随机文件中写入数据，正确的语句是（）A．Print#1,recB．Write#1,recC．Put#1,,recD．Get#1,rec14．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（）关键字在过程中定义局部变量。A．DimB．PublicC．PrivateD．Static15．在过程定义中用()表示形参的传值。A．VarB．ByDefC．ByValD．Value16．将数据项“China”添加到列表框（List1）中成为地一项，应使用的语句是（）A．List1.AddItemChina,0B．List1.AddItemChina,1C．List1.AddItemChina,D．List1.AddItem1,China17．引用列表框（List1）最后一个数据项应使用的语句是（）A．List1.List(List1.ListCount)B．List1.List(List1.ListCount－1)C．List1.List(ListCount)D．List1.List(ListCount－1)18．可用来改变坐标度量单位的是（）A．Drawstyle属性B．DrawWidth属性C．Scale方法D．ScaleMode属性19．要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮，通过设置可达到此要求的属性是（）A．MaxButtonB．MinButton3C．WidthD．BorderStyle20．数学关系8≤y28表示成正确的VB表达式为（）A、8=y28B、8=yAND28C、8=yANDy28D、8=yORy2821．以下能判断是否到达文件尾的函数是（）A、BOFB、DOCC、LOFD、EOF22．6．为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1中，所使用的语句为（）。A．Picture1.Text=LoadPicture(d:\pic\a.jpg)B．Picture1.Picture=LoadPicture(d:\pic\a.jpg)C．Picture1.Picture=LoadPicture(d:\pic\a.jpg)D．Picture1.Picture=Load(d:\pic\a.jpg)23．MsgBox函数的返回值的类型是（）A．整型B．字符串C．逻辑型D．日期型24．当Winsock控件处于关闭状态时，其State属性的值是（）A．1B．0C．2D．-125.要以读方式打开D盘的一个顺序文件Stu.dat，应使用的语句是（）A．OpenStu.datForOutputAs#1B．OpenD:\Stu.datForInputAs#1C．OpenD:\Stu.datForOutputAs#1D．OpenStu.datForInputAs#126.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）A．Visible=False或Enabled=FalseB．Interval=0或Visible=FalseC．Interval=0或Enabled=FalseD．Interval=0且Enabled=False27.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（）。A、AutosizeB、StretchC、AutoRedrawD、Appearance28.以下叙述中正确的是（）。4A、窗体的Name属性指定窗体的名称，用来标识一个窗体B、窗体的Name属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的Name属性的值D、对象的Name属性的值可以为空29.以下叙述中错误的是（）。A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其它窗体调用C、在设计VisualBasic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件D、全局变量必须在标准模块中定义30.在VisualBasic中，变量的默认类型是（）。A、IntegerB、DoubleC、VariantD、Currency31.用Line方法画直线后,当前坐标在（）。A、（0，0）B、直线起点C、直线终点D、容器的中心32.执行指令“Line(1200,1200)-Step(1000,500),B”后，CurrentX=()A、2200B、1200C、200D、170033．要退出Do…Loop循环，可使用的语句是（）。A、ExitB、ExitForC、EndDoD、ExitDo二、填空题1.VisualBasic6.0集成开发环境有三种工作模式，当应用程序处于中断模式时，这时不可以。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按键。3.以写方式打开D盘中的Text.dat文件，正确的语句是4.数学表达式030sin5写成等价的VisualBasic表达式为。5.将图片框的AutoSize属性设置成时，可使图片框根据图片调整大小。6.Winsock控件的LocalIP属性，可以返回，LocalHostName属性，可以返回。7．若窗体Form1左上角坐标为(-400,2500)，右下角坐标为(400,-250)，则X轴的正向向，Y轴的正向向。8.ADO模型中一般可通过对象的Execute方法执行增加、删除、修改SQL语句。9．使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。510．在VB中，将数据库分为，外部数据库和。11．假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是12．VB提供了结构化程序设计的三种基本结构，这三种基本结构是、、。13．如果要每隔15s产生一个Timer事件，则Interval属性应设置为。14．VB中的程序错误类型主要有编译错误、等三种。15．函数返回系统的时间。16．以窗体Form1的中心为圆心，画一个半径为800的圆的语句是。17．控件数组的名字由属性指定，而数组中的每个元素由属性决定。18．在VB的DAO、RDO、ADO三种数据对象的模型中，采用Jet引擎和ODBC两种方式访问数据库的是，采用ODBC访问数据库的是，主要采用OLEDB访问数据库的是。19．按文件的存取方式。可将文件分为、、。20．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置，其单位为。三、阅读程序题阅读下列程序并写出程序运行结果1．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To5Ifj3Thenc=c+4ExitForElsek=k+1EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，c,k的值分别是：2．PrivateSubForm_Click()DimxAsIntegerStaticyAsIntegerx=x+26y=y+3Form1.Printx=;x,y=;yEndSubEndSub写出程序运行时连续单击三次窗体后，Form1上的输出结果。3．PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei9i=i+2s=s+iLoopText1.Text=sEndSub文件框Text1的输出结果是：4.PrivateSubForm_Click()DimIasinteger,jasintegerDimcasintegerc=0Fori=1To3Forj=1to3c=c+1NextjNextIPrintcEndSub写出程序运行时单击窗体后，c的输出结果：5.FunctionF(aAsInteger)b=0Staticcb=b+1c=c+27F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。6.PrivateSubCommand1_Click()DimA(1To5)AsIntegerDimxAsIntegerFori=1To5A(i)=iNextii=1DoWhilex3A(i)=A(i)+xx=x+1i=i+1LoopText1.Text=A(1)Text2.Text=A(2)EndSub7.SubChange(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tPrintx,yEndSubPrivateSubForm_Click()DimaAsInteger,bAsInteger8a=10:b=20Changea,bPrinta,bEndSub写出程序运行时单击窗体后，Form1上的输出结果。四、完善程序题1．列表框应用程序。要求在文本框Text1中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；按“统计”按钮，在文本框Text2中输出课程数量总数；按“结束”按纽，退出应用程序。程序运行结果如图1所示。图1程序如下，请补充完整。PrivateSubForm_Load()List1.AddItem计算机应用基础List1.AddItem程序设计基础List1.AddItem软件技术基础List1.AddItemVisualBasic程序设计List1.AddItemSQLSERVER数据库应用List1.AddItem计算机专业英语List1.AddItemDelphi程序设计EndSubPrivateSubCommand1_Click()IfText1.TextThen[1]Text1.Text=[2]ElseMsgBox请在文本框中输入信息！[3]9EndSubPrivateSubCommand2_Click()List1.RemoveItem[4]E