Basic程序设计形成性考核3

VisualBasic程序设计形成性考核3班级学号姓名成绩一、单项选择题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,ChinaB．List1.AddItem1,ChinaC．List1.AddItemChina,0D．List1.AddItemChina,119．要绘制多种形状的图形，需要设置Shape控件的（）属性。A、StyleB、BorderstyleC、FillStyleD、Shape20．下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（）。A．Picture1=pic1.jpgB．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．opentext.datForwrireAs#1B．opentext.datForBinaryAs#1C．opentext.datForInputAs#1D．opentext.datForRandomAs#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(请输入一个正整数=))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=[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()Unload