VisualBasic程序设计补休课复习资料概要

VisualBasic程序设计补停课复习资料纲要VisualBasic程序设计补停课复习资料纲要VisualBasic程序设计补停课复习资料纲要VisualBasic程序设计补停课复习资料一、单项选择题1．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。A．单项选择按纽B．图片框C．通用对话框D．文本框2．与传统的程序设计语言对照，VisualBasic最突出的特点是（）A．结构化程序设计B．程序开发环境C．事件驱动编程体系D．程序调试技术3．将调试经过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能够运行的主要原因是（）。A．缺少.frm窗体文件B．运行的机器上无VB系统C．该可执行文件有病毒D．以上原因都不对4．启动VB后，就意味着要建立一个新（）。A．文件B．窗体C．程序D．工程5．在VB环境中，标准类模块文件的扩展名是（）。A．.vbpB．.frmC．.basD．.frx6．VisualBasic6.0集成开发环境有三种工作模式，以下不属于三种工作模式之一的是（）。A．设计模式B．执行模式C．中断模式D．编写代码模式7．以下4项中合法的变量名是（）。A．45xyzB．SingleC．x-yzD．x_yz8．表达式64/2-2^3*9/3Mod8\3（）A．0B．32C．20D．49.要在窗体的标题内显示“myfrm”,使用的语句是（）A．Form1.Print"myfrm"B．Form.Print"myfrm"C．Form.caption="myfrm"D．Form1.caption="myfrm"10．无论何种控件，共同拥有的属性是（）A．TextB．Name1C．CaptionD．ForeColor11．依照变量的作用域可将变量划分为（）A．公有、私有、系统B．全局变量、模块级变量、过程级变量C．动向、常数、静态D．Public、Private、Protected12．确定一个控件在窗体上地址的属性是（）A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left13．要退出DoLoop循环，可使用的语句是（）语句。A．ExitB．ExitForC．ExitDoD．EndDo14．表达式8+10Mod2^2+3的值是（）A、4B、11C、12D、1315.以下关于变量的说法不正确的选项是（）。A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量B．局部变量的作用域仅限于声明它的过程C．静态局部变量是在过程中用Static语句声明的D．局部变量在声明它的过程执行达成后就被释放了16．以下表达中错误的选项是（）。A．一个工程中只能有一个SubMain过程B．窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体C．窗体的Hide方法和Unload方法的作用完满相同．若工程文件中有多个窗体，能够依照需要指定一个窗体为启动窗体17．要绘制多种形状的图形，需要设置Shape控件的（）属性A．BorderstyleB．ShapeC．FillStyleD．Style18．VB程序中平时不会产生错误提示的是（）。A．编译错误B．实时错误C．运行时错误D．逻辑错误19．当Winsock控件处于关闭状态时，其State属性的值是（）A．0B．1C．2D．620．以下正确的赋值语句是（）。A．x+y=50B．y=*r*rC．y=x+50D．3y=x221．使图像框Image控件中的图像自动适应控件的大小应（）。A．将控件的Stretche属性设为TrueB．将控件的Stretche属性设为FalseC．将控件的AutoSize属性设为TrueD．将控件的AutoSize属性设为False22．目录列表框的Path属性的作用是（）．显示当前驱动器或指定驱动器上的路径B．显示当前驱动器或指定驱动器上的某目录下的文件名C．显示根目录下的文件名D．只显示当前路径下的文件23．以下数据对象模型中采用OLEDB接见数据库的是（）。A．DAOB．ADOC．RDOD．RDO和ADO24．使用ADO数据模型时，使Recordset和Connection对象建立连接的属性是（）。A．CommandTypeB．ActiveConnectionC．OpenD．Execute25．若是准备读文件，打开序次言件”的正”确语句是（）A．open"text.dat"ForwrireAs#1B．open"text.dat"ForBinaryAs#1C．open"text.dat"ForInputAs#1D．open"text.dat"ForRandomAs#1二、填空题1．用Line方法画直线后,当前坐标在。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可第一选中该控件或语句，尔后按键。3．应用程序打包后，其包文件的后缀为。4．若是要每隔10s产生一个Timer事件，则Interval属性应设置为。5．每个应用程序都有开始执行的入口，在VB中将这种窗体称为。6．控件数组的名字由属性指定，而数组中的每个元素由属性决定。7．数学关系15≤x<45表示成正确的VB表达式为。8．以窗体Form1的中心为圆心，画一个半径为300的圆的语句是。9．假设ADOrs为一个Recordset对象，那么从Table1表中获得所有记录的语句是10．在VB中，将Foxpro称为，Access称为，SQLServer称为。11．设某个程序中要用到一个二维数组，要求数组名为A，种类为字符串种类，第一维3下标从1到4，第二维下标从-1到4，则相应的数组声明语句为。12．若窗体Form1左上角坐标为（0，500），右下角的坐标为（800，-200）。则X轴的正向向，Y轴的正向向。13．全局变量在整个应用程序中有效，一般在模块代码编写器的顶部用语句声明。14．列表框中项目的序号是从开始的。15．Winsock控件主要用来编制或协议的通话程序。16．Vb应用程序与数据库进行通信的主要体系称为。17．Image控件的Stretch属性设置为时，图像框可自动改变大小以适应其中的图形。18．在整个程序运行时，用Static声明的局部变量是静态的，其值能够在该过程所在的模块运行时期，而用Dim声明的变量只幸亏才存在。三、阅读程序题阅读以下程序并写出程序运行结果1．PrivateSubForm_Click()StaticSumAsIntegerForI=1To5Sum=Sum+INextIPrintSumEndSub写出程序运行时单击窗体后，Form1上的输出结果。2．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+5ExitForElsek=k+1EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，c,k的值分别是：43.PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei<9i=i+2s=s+iLoopText1.Text=sEndSub文件框Text1的输出结果是：4.PrivateSubCommand1_Click()DimXAsInteger,YAsIntegerX=0:Y=1Fori=1To3Forj=1ToiY=Y*jNextjX=X+YNextiPrintXEndSub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。5.FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=6Fori=1To3PrintF(a)NextiEndSub5写出程序运行时，单击命令按钮在窗体上的输出结果。6.PrivateSubForm_Click()DimA(1To4)AsStringDimcAsIntegerDimjAsIntegerA(1)="2"A(2)="4"A(3)="6"A(3)="8"c=1Forj=1To4c=c+Val(A(j))NextjPrintcEndSub写出程序运行时单击窗体后，窗体Form1上的结果：四、完满程序题1．列表框应用程序。要求从文本框中输入姓名，尔后按“增加”按钮，把姓名增加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“更正”按钮，把列表框中采用的项送往文本框且“更正”按钮变为“更正确认”。在文本框的内容更正好后，按“更正确认”按钮，再把文本框中更正后的信息送到列表框且“更正确认”按钮变为“更正”。程序运行结果如图1所示。Text1Command1Command2List1Command3图1程序以下，请补充完满。PrivateSubForm_Load()6List1.AddItem"李敏"List1.AddItem"张华"List1.AddItem"吕晓烨"List1.AddItem"赵巍"List1.AddItem"袁莉"List1.AddItem"王津"List1.AddItem"何小渴"List1.AddItem"崔宁"List1.AddItem"何月"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then[1]Text1.Text=""ElseMsgBox"请在文本框中输入信息！"EndIfEndSubPrivateSubCommand2_Click()[2]EndSubPrivateSubCommand3_Click()IfCommand3.Caption="更正"ThenText1.Text=[3]Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption=[4]Else[5]Command1.Enabled=TrueCommand2.Enabled=TrueText1.Text=[6]Command3.Caption="更正"EndIfEndSub2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果以以下列图所示。7程序以下，请补充完满。PrivateSubForm_Load()[1]File1.Pattern="*.bmp;*.gif;*.jpg"EndSubPrivateSubDrive1_change()Dir1.Path=[2][3]EndSubPrivateSubDir1_Change()[4]Text1.Text=[5]EndSubPrivateSubFile1_click()Picture1.[6]=LoadPicture(File1.Path+"\"+File1.FileName)Text1.Text=[7]EndSub3．已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来储藏学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中增加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，第一盘问学号可否重复，若是不重复则向students表中增加学生记录。其运行界面如图2所示。8图2程序以下，请补充完满。'声明对象变量ADOcn，用于创办与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load()'连接SQLServer数据库DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"IfADOcnIsNothingThenSetADOcn=[2][3]strDBEndIfEndSubPrivateSubCommand1_Click()'增加学生记录DimstrSQLAsStringDimADOrsAs[4][5]“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“IfNotADOrs.EOFThenMsgBox“你输入的学号已存在，不能够新增加！”ElseStrSQL=”InsertIntostudents学(号,姓名,,籍贯,性别)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘[6]MsgBox“增加成功，请连续！”EndIfPrivateSubCommand2_Click()UnloadMe9EndSub五、编写程序题1.编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“除去”按钮，除去文本框中所有的数据。程序运行界面如以下列图所示。Text1Text3Text4Text2Command1Command22．编写一个摄氏温度与华氏温度之间变换的程序，程序运行界面以以下列图所示：图1要使用变换的公式是：F=9/5*C+32其中F为华氏温度，C为摄氏温度。103.设计一个计算程序。该程序用户界面以以下列图所示。要求程序运行后，用户选中单项选择按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单项选择按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。答案一、单项选择题15．D23.B二、填空题1．直线终点2．F13．.cab4．100005．启动窗体6．NameIndex7.15<=xANDx<458．Circle(ScaleWidth/2,ScaleHeight/2),3009．ADOrsOpen”Select*FromTable1”10．外面数据库当地数据库远程数据库11．DimA(1To4,-1To4)AsString12．右上13.Public14．0TCP/IPUDP数据库引擎18.素来存在过程执行时期11三、阅读程序题1.152．743．294．155．1012146．15四、完满程序题1."更正确认""2.Drive1.Drive="D:\"PictureFileName3.学生[2]NewConnection12ADOcn.Open[4]NewRecordsetADOrs.ActiveConnection=ADOcnADOrs.ExecutestrSQL五、编程题1．PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"最少要输出单价！"ExitSubEndIfIfText2.Text=""ThenText2.Text=1IfText3.Text=""ThenText3.Text=1EndSub2.PrivateSubCommand1_Click()IfText1.Text<>""ThenText2.Text=9/5*Text1.Text+32EndIfEndSubPrivateSubCommand2_Click()IfText2.Text<>""ThenText1.Text=(Text2.Text-32)*5/9EndIfEndSub3.PrivateSubCommand1_Click()UnloadMeEndSubPrivateSubOption1_Click()Text1.Text=30+6EndSubPrivateSubOption2_Click()Text1.Text=30-613EndSubPrivateSubOption3_Click()Text1.Text=30*6EndSubPrivateSubOption4_Click()Text1.Text=30/6EndSubVisualBasic编程模拟试题（补修）一、填空题40分(每空2分)1．VisualBasic开发应用程序的步骤_______、__________、__________。2．菜单分为_________菜单和_________菜单，菜单总与____________相关连，设计菜单需要在____________中设计。3．对象的方法用于当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为。比方对窗体Form1使用Show方法，应写成。4．VisualBasic的控件平时分为三各种类，即、、和。其中，不能够从工具箱中删除。5．若A=20，B=80，C=70，D=30，则表达式A+B>160Or(B*C>200AndNotD>60)的值是。7．Timer控件的属性决定该控件可否对时间的推移做响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。8．在VisualBasic的变换函数中将数值变换为字符串的函数是；将数字字符串变换为数值的函数是；．要除去组合框Combo1中的所有内容，能够使用的语句是。10．使控件获得焦点的方法是。11．菜单控件只包括一个____________事件。二、写出程序的运行结果：（30分，每题5分）1、x=15:y=1514IfX<YThenA=15A=-15PrintA2、A=85IfA>60ThenI=1ElseIfA>70ThenI=2ElseIfA>80ThenI=3ElseIfA>90ThenI=4EndIfPrint"I=";I3、I=0ForG=10To15Step3I=I+1NextGPrintI4．N=0J=1DoUntilN>3N=N+1J=J+N*(N+1)LoopPrintN;J155．N=0ForI=1To4ForJ=5To1Step-1N=N+1NextJ,IPrintN;J;I6．SubForm_Click（）A=10:b=20:c=30:d=40PrintA;Spc(5);b;Spc(7);cPrintA;Spc(8);b;Space$(5);cPrintc;Spc(3);"+";Spc(3);d;PrintSpc(3);"=";Spc(3);c+dEndSub三、编程题20分创办一个登录界面，由两个标签（Label1、Labe12）和两个文本框（txtName、txtPassword）组成。其中，口令文本框（txtPassword）的Pa