Basic程序设计期末综合练习题二.docx

Basic程序设计期末综合练习题二.docx

《Basic程序设计期末综合练习题二.docx》由会员分享，可在线阅读，更多相关《Basic程序设计期末综合练习题二.docx（17页珍藏版）》请在冰豆网上搜索。

Basic程序设计期末综合练习题二程序设计期末综合练习题二VisualBasic程序设计期末综合练习题二一、单项选择题1在下列有关VisualBasic的叙述中，错误的是（）。

A采用了事件驱动的编程机制B是面向对象的编程语言C是可视化的程序设计语言D是面向过程的程序设计语言2应用程序打包后，其包文件的后缀为（）。

A.exeB.txtC.cabD.ocx3在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（）。

A列表框B通用对话框C驱动器列表框D图片框4设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（）。

AForm1_Click（）B.Form1_DbClick（）CForm_Click（）DForm_DbClick（）5对于定时器（Timer）控件,设置其定时是否开启的属性是（）。

AIndexBTagCEnabledDInterval6在VisualBasic中，工程文件的扩展名为（）。

A.frmB.vbpC.clsD.bas7有程序代码如下：

Text1.Text=欢迎走进VB世界！

则Text1，Text，和欢迎走进VB世界！

分别代表（）。

A对象，值，属性B对象，属性，值C对象，方法，属性D属性，对象，值8以下叙述中正确的是（）。

A窗体的Name属性指定窗体的名称，用来标识一个窗体B窗体的Name属性的值是显示在窗体标题栏中的文本C可以在运行期间改变对象的Name属性的值D对象的Name属性值可以为空9.VB提供了结构化程序设计的三种基本结构是（）。

A选择结构、过程结构、顺序结构B选择结构、循环结构、顺序结构C过程结构、转向结构、递归结构D递归结构、选择结构、循环结构10在VB中，下列变量名不合法的是（）。

Atake_1BtakeCtake_1_2Dtake-111下列说法中正确的是（）。

为了保存一个VisuaBasic应用程序，应当A只保存窗体文件B只保存工程文件C分别保存工程文件和标准模块文件D分别保存工程文件、窗体文件和标准模块文件12确定一个控件在窗体上的位置的属性是（）。

AWidth或HeightBWidth和HeightCTop和LeftDTop或Left13确定一个窗体或控件的大小的属性是（）AWidth或HeightBWidth和HeightCTop或LeftDTop和Left14当一个工程含有多个窗体时，其中的启动窗体是（）。

A第一个添加的窗体B最后一个添加的窗体C包含控件最多的窗体D在“工程属性”对话框中指定的窗体15在一个语句行内写多条语句时，语句之间应该用（）分隔。

A逗号B冒号C顿号D分号16要设置命令按钮的背景图形，必须设置的两个属性是（）。

AStyle和PictureBStyle和IconCCaption和PictureDValue和Icon17目录列表框的Path属性的作用是（）。

A显示当前驱动器或指定驱动器上的某目录下的文件名B只显示当前路径下的文件C显示根目录下的文件名D显示当前驱动器或指定驱动器上的路径18将数据China项添加到列表框（List1）中成为第一项应使用的语句是（）。

AList1.AddItem0,ChinaBList1.AddItem1,ChinaCList1.AddItemChina,0DList1.AddItemChina,119要绘制多种形状的图形，需要设置Shape控件的（）属性。

A、StyleB、BorderstyleC、FillStyleD、Shape20下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（）。

APicture1=pic1.jpgBPicture1=LoadPicture（pic1.jpg）CPicture1.Picture=LoadPicture（pic1.jpg）DPicture1.Picture=LoadPicture（pic1）21如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。

APublicSubBPrivateSubCPublicFunctionDPrivateFunction22不属于VB数据库引擎的是（）。

AODBCBBDECJet引擎DOLEDB23.在VB应用程序中，进行断点设置的按键是（）。

ACtrl+F9键BF9键CCtrl+F8键DF8键24如果准备读文件，打开顺序文件”text.dat”的正确语句是（）。

Aopentext.datForwrireAs#1Bopentext.datForBinaryAs#1Copentext.datForInputAs#1Dopentext.datForRandomAs#125使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。

AOpenBExecuteCCommandTypeDActiveConnection26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。

AOpenBExecuteCCommandTypeDActiveConnection27在VB中，一旦数据到达，将首先触发Winsock控件的（）。

ADataArrival事件BConnectionRequest事件CDataSend事件DGetGet事件28Winsock控件的LocalPort属性的作用是（）A仅返回所用断口B仅设置所用端口C返回或设置所用端口D返回或设置IP地址二、填空题1每个应用程序必须有一个惟一的文件。

2窗体文件和类模块文件的扩展名分别是和。

3表达式6+152*2Mod2的值是。

4表达式172-23*5MOD6的值是。

5计时器控件响应的事件是。

6在VisualBasic中，变量的默认类型是。

7为了在运行时把当前路径下的图形文件show.jpg装入图片框P1，所使用的语句为。

8设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从0到2，第二维下标从1到3，则相应数组声明语句为。

9用DimA（-2to3）语句声明二维数组后，数组A的元素共有个。

10.VB中参数传递的机制有两种，一种是参数，另一种是参数。

11.控件数组的名字由属性指定，而数组中的每个元素由属性决定。

12若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向，Y轴的正向向。

13窗体、图片框或图像框中的图形通过对象属性。

14在VB中，将Foxpro称为外部数据库，Access称为，SQLServer称为。

15vb应用程序与数据库进行通信的主要机制称为。

16全局变量必须在模块中定义，所使用的关键字为。

17全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。

18Winsock控件主要用来编制或协议的网络应用程序。

三、阅读程序题（共25分）阅读下列程序并写出程序运行结果1PrivateSubCommand1_Click（）DimxAsIntegerStaticsAsIntegerx=Val（InputBox（请输入一个正整数=）Ifx5Thens=s*xElses=s+xEndIfText1.Text=s=&Str（s）EndSub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。

2.PrivateSubForm_Click（）StaticaAsIntegerDimbAsIntegera=a+3b=b+4Text1=aText2=bEndSub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。

3.PrivateSubForm_Click（）DimA（1To3）AsStringDimcAsInteger,jAsIntegerA

（1）=2A

（2）=4A（3）=6c=2Forj=1To3c=c+Val（A（j）NextjPrintcEndSub写出程序运行时单击窗体后，Form1上的输出结果。

4.PrivateSubForm_Click（）n=0Fori=1To2Forj=2To4IfjMod20Thenn=n+1EndIfn=n+2NextjNextiPrintnEndSub写出程序运行时单击窗体后，窗体Form1上的输出结果。

5.PrivateSubCommand1_Click（）DimaAsInteger,bAsIntegera=2:

b=3Fori=1To3Forj=1Toib=b+jNextja=a+bNextiPrintaEndSub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。

6.PrivateSubForm_Click（）DimA（1To4）AsStringDimcAsIntegerDimjAsIntegerA

（1）=4A

（2）=6A（3）=8A（4）=10c=1Forj=1To4c=c+Val（A（j）NextjPrintcEndSub写出程序运行时单击窗体后，窗体Form1上的结果。

7.SubChange（ByValxAsInteger,ByValyAsInteger）DimtAsIntegert=xx=yy=tPrintx,yEndSubPrivateSubForm_Click（）DimaAsInteger,bAsIntegera=10:

b=20Changea,bPrinta,bEndSub写出程序运行时单击窗体后，Form1上的输出结果。

8.FunctionF（nAsInteger）AsLongDimiAsInteger,TempAsLongTemp=1Fori=1TonTemp=Temp*iNextiF=TempEndFunctionPrivateSubForm_Click（）DimkAsInteger,njAsIntegerk=5nj=F（k）Printk;！

=;njEndSub写出程序运行时，单击窗体Form1上的输出结果。

四、完善程序题（共10分）1已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。

请编写一个简单的应用程序，向students表中添加学生记录。

程序的基本逻辑是：

当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。

其运行界面如图1所示。

图1程序如下，请补充完整。

声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load（）连接SQLServer数据库DimstrDBAsStringstrDB=Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=1IfADOcnIsNothingThen23EndIfEndSubPrivateSubCommand1_Click（）增加学生记录DimstrSQLAsStringDimADOrsAs45=ADOcnADOrs.Open“Select学号FromStudentsWhere学号=”+”“+Text1+”“6ThenMsgBox“你输入的学号已存在，不能新增加！

”ElseStrSQL=”InsertIntostudents（学号,姓名,籍贯,性别）StrSQL=strSQL+Values（”+”“+text1+”,“+text2+”,“+text3+”,“+text4+”）”ADOrs.Execute7MsgBox“添加成功，请继续！

”EndIfPrivateSubCommand2_Click（）UnloadMeEndSub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。

要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。

程序运行结果如图2所示。

图2程序如下，请补充完整。

PrivateSubForm_Load（）Drive1.Drive=12=*.bmp;*.gif;*.jpgEndSubPrivateSubDrive1_change（）3=Drive1.DriveText1.Text=Drive1.DriveEndSubPrivateSubDir1_Change（）4Text1.Text=Dir1.PathEndSubPrivateSubFile1_click（）Picture1.5=LoadPicture（File1.Path+File1.FileName）FileName=File1.Path+File1.FileNameText1.Text=6EndSub五、编写程序题1.按下述规定，编写一征收所得税程序。

（1）收入在1000元以内，不纳税；

（2）收入超过1000元以上的部分，纳税20%（3）当收入达到5000元或超过时，5000元以上的部分，纳税22%。

程序运行界面如图3所示：

图3答案一、单项选择题1.D2.C3.B4.C5.C6.B7.B8.A9.B10.D11.D12.C13.B14.D15.B16.A17.D18.C19.D20.C21B22B23B24C25.D26.D27.A28.C二、填空题（每小题2分，共20分）1.vbp2.frm.cls37445Timer6Variant或变体型7P1.Picture=LoadPrcture（show.jpg）8DimA（0To2,1To3）AsInteger9610引用参数传递（或按址传递）按值传递11NameIndex12.右上13Picture14.本地数据库、远程数据库15.数据库引擎16.标准Public17.整个应用程序Public18.CP/IPUDP三、阅读程序题1.s=6s=11s=442.3464943.144.1452662973020203085！

=120四、完善程序题11学生2SetADOcn=NewConnection3ADOcn.OpenstrDB4NewRecordset5ADOrs.ActiveConnection6IfNotADOrs.EOF7strSQL21E:

2File1.Pattern3Dir1.Path4File1.Path=Dir1.Path5Picture6FileName五、编写程序题参考答案：

PrivateSubCommand1_Click（）DimxAsInteger,taxAsSinglex=Val（Text1.Text）Ifx=1000Thentax=0ElseIfx=5000Thentax=（x-1000）*0.2Elsetax=（x-5000）*0.22+4000*0.2EndIfLabel3.Caption=taxEndSubPrivateSubCommand2_Click（）UnloadMeEndSub