2023年Basic程序设计期末综合练习题二

VisualBasic程序设计期末综合练习题二一、单项选择题1．在下列有关VisualBasic的叙述中，错误的是（）。A．采用了事件驱动的编程机制B．是面向对象的编程语言C．是可视化的程序设计语言D是面向过程的程序设计语言．2．应用程序打包后，其包文献的后缀为（）。A．.exeB．.txtC．.cabD．.ocx3．在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（）。A．列表框B．通用对话框C．驱动器列表框D．图片框4．设窗体的名称为Form1，则在程序运营过程中，单击窗体时，被执行的事件过程的名称是（）。A．Form1_Click()B. Form1_DbClick() C．Form_Click()D．Form_DbClick() 5．对于定期器（Timer）控件,设立其定期是否启动的属性是（）。A．IndexB．TagC．EnabledD．Interval6．在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中，下列变量名不合法的是（）。A．take_1B．takeC．take_1_2D．take-111．下列说法中对的的是（）。为了保存一个VisuaBasic应用程序，应当A．只保存窗体文献B．只保存工程文献C．分别保存工程文献和标准模块文献D．分别保存工程文献、窗体文献和标准模块文献12．拟定一个控件在窗体上的位置的属性是（）。A．Width或HeightB．Width和HeightC．Top和LeftD．Top或Left13．拟定一个窗体或控件的大小的属性是（）A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left14．当一个工程具有多个窗体时，其中的启动窗体是（）。A．第一个添加的窗体B．最后一个添加的窗体C．包含控件最多的窗体D．在“工程属性”对话框中指定的窗体15．在一个语句行内写多条语句时，语句之间应当用（）分隔。A．逗号B．冒号C．顿号D．分号16．要设立命令按钮的背景图形，必须设立的两个属性是（）。A．Style和PictureB．Style和IconC．Caption和PictureD．Value和Icon17．目录列表框的Path属性的作用是（）。A．显示当前驱动器或指定驱动器上的某目录下的文献名B．只显示当前程径下的文献C．显示根目录下的文献名D．显示当前驱动器或指定驱动器上的途径18．将数据"China"项添加到列表框（List1）中成为第一项应使用的语句是（）。A．List1.AddItem0,"China"B．List1.AddItem1,"China"C．List1.AddItem"China",0D．List1.AddItem"China",119．要绘制多种形状的图形，需要设立Shape控件的（）属性。A、StyleB、BorderstyleC、FillStyleD、Shape20．下列可以把当前目录下的图形文献pic1.jpg装入图片框Picture1中的语句为（）。A．Picture1="pic1.jpg"B．Picture1=LoadPicture("pic1.jpg")C．Picture1.Picture=LoadPicture(("pic1.jpg")D．Picture1.Picture=LoadPicture(("pic1")21．假如要在窗体代码编辑器的”通用”部分定义私有Sub过程，则对的的语句是（）。A．PublicSubB．PrivateSubC．PublicFunctionD．PrivateFunction22．不属于VB数据库引擎的是（）。A．ODBCB．BDEC．Jet引擎D．OLEDB23.在VB应用程序中，进行断点设立的按键是（）。A．Ctrl+F9键B．F9键C．Ctrl+F8键D．F8键24．假如准备读文献，打开顺序文献”text.dat”的对的语句是（）。A．open"text.dat"ForwrireAs#1B．open"text.dat"ForBinaryAs#1C．open"text.dat"ForInputAs#1D．open"text.dat"ForRandomAs#125．使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。A．OpenB．ExecuteC．CommandTypeD．ActiveConnection26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（）。A．OpenB．ExecuteC．CommandTypeD．ActiveConnection27．在VB中，一旦数据到达，将一方面触发Winsock控件的（）。A．DataArrival事件B．ConnectionRequest事件C．DataSend事件D．GetGet事件28．Winsock控件的LocalPort属性的作用是（）A．仅返回所用断口B．仅设立所用端口C．返回或设立所用端口D．返回或设立IP地址二、填空题1．每个应用程序必须有一个惟一的文献。2．窗体文献和类模块文献的扩展名分别是和。3．表达式6+15\2*2Mod2的值是。4．表达式17\2-2^3*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称为。15．vb应用程序与数据库进行通信的重要机制称为。16．全局变量必须在模块中定义，所使用的关键字为。17．全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。18．Winsock控件重要用来编制或协议的网络应用程序。三、阅读程序题（共25分）阅读下列程序并写出程序运营结果1．PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("请输入一个正整数="))Ifx<5Thens=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)="2"A(2)="4"A(3)="6"c=2Forj=1To3c=c+Val(A(j))NextjPrintcEndSub写出程序运营时单击窗体后，Form1上的输出结果。4.PrivateSubForm_Click()n=0Fori=1To2Forj=2To4IfjMod2<>0Thenn=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)="4"A(2)="6"A(3)="8"A(4)="10"c=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=[1]"IfADOcnIsNothingThen[2][3]EndIfEndSubPrivateSubCommand1_Click()'增长学生记录DimstrSQLAsStringDimADOrsAs[4][5]=ADOcnADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“[6]ThenMsgBox“你输入的学号已存在，不能新增长！”ElseStrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOrs.Execute[7]MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub2．在窗体上建立一个驱动器列表框、目录列表框、文献列表框、图片框、文本框。规定程序运营后，驱动器列表框Drive1的默认驱动器设立为E盘，选择File1中所列的图片文献（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文献的途径显示在文本框中。程序运营结果如图2所示。图2程序如下，请补充完整。PrivateSubForm_Load()Drive1.Drive=[1][2]="*.bmp;*.gif;*.jpg"EndSubPrivateSubDrive1_change()[3]=Drive1.DriveText1.Text=Drive1.DriveEndSubPrivateSubDir1_Change()[4]Text1.Text=Dir1.PathEndSubPrivateSubFile1_click()Picture1.[5]=LoadPicture(File1.Path+"\"+File1.FileName)FileName=File1.Path+"\"+File1.FileNameText1.Text=[6]EndSub五、编写程序题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.C21．B22．B23．B24．C25.D26.D27.A28.C二、填空题（每小题2分，共20分