Basic程序设计期末复习二.doc

Visual Basic程序设计期末复习二一、单项选择题1刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A单选按纽 B图片框 C通用对话框 D文本框2与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术3将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件 B运行的机器上无VB系统C该可执行文件有病毒 D以上原因都不对 4启动VB后，就意味着要建立一个新（ ）。A文件 B窗体C程序 D工程5在VB环境中，标准类模块文件的扩展名是（ ）。A.vbp B.frm C.bas D .frx6Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B执行模式C中断模式 D编写代码模式7下列4项中合法的变量名是（ ）。A45 xyz BSingleCx-yz Dx_yz8表达式64 / 2 - 2 3 * 9 / 3 Mod 8 3（）A0 B32C20 D49. 要在窗体的标题内显示“myfrm”,使用的语句是（ ）AForm1.Printmyfrm BForm.Printmyfrm CForm.caption=myfrm DForm1.caption=myfrm10无论何种控件，共同具有的属性是（）AText BNameCCaption DForeColor11按照变量的作用域可将变量划分为（ ） A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常数、静态 DPublic、 Private、 Protected12确定一个控件在窗体上位置的属性是（ ）AWidth或Height BWidth和Height CTop或Left DTop和Left13要退出DoLoop循环，可使用的语句是（ ）语句。 AExit BExit For CExit Do D End Do14表达式8+10 Mod 22+3的值是（ ）A、4 B、11 C、12 D、1315.下列关于变量的说法不正确的是（ ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了16以下叙述中错误的是（ ）。A一个工程中只能有一个Sub Main过程 B窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体C窗体的Hide方法和Unload方法的作用完全相同 D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体17要绘制多种形状的图形，需要设置Shape控件的（ ）属性ABorderstyle B ShapeCFillStyle DStyle18VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误C运行时错误D逻辑错误19当Winsock控件处于关闭状态时，其State属性的值是（ ）A0 B 1C2 D620下列正确的赋值语句是（ ）。Ax+y=50 By=p*r*r Cy=x+50 D3y=x21使图像框Image控件中的图像自动适应控件的大小应（）。A将控件的 Stretche属性设为True B将控件的 Stretche属性设为FalseC将控件的 AutoSize属性设为True D 将控件的 AutoSize属性设为False 22目录列表框的Path属性的作用是（ ）A显示当前驱动器或指定驱动器上的路径 B显示当前驱动器或指定驱动器上的某目录下的文件名C显示根目录下的文件名D只显示当前路径下的文件23下列数据对象模型中采用OLE DB访问数据库的是（）。ADAOBADOCRDODRDO和ADO24使用ADO数据模型时，使Recordset和 Connection对象建立连接的属性是（）。ACommandType BActiveConnection COpen DExecute25如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）Aopentext.dat For wrire As # 1 Bopentext.dat For Binary As # 1 Copentext.dat For Input As # 1Dopentext.dat For Random As # 1二、填空题1用Line方法画直线后,当前坐标在 。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。3应用程序打包后，其包文件的后缀为 。4如果要每隔10s产生一个Timer事件，则Interval属性应设置为 。 5每个应用程序都有开始执行的入口，在VB中将这种窗体称为 。6控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。7数学关系15x 4 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，c,k的值分别是：3 .Private Sub Command1_Click()Dim s As DoubleDim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub文件框Text1的输出结果是：4.Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 0: Y = 1 For i = 1 To 3 For j = 1 To i Y = Y * j Next j X = X + Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。5.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。6.Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = 2 A(2) = 4 A(3) = 6 A(3) = 8 c = 1 For j = 1 To 4 c = c + Val(A(j) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果： 四、完善程序题1列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem 李敏 List1.AddItem 张华 List1.AddItem 吕晓烨 List1.AddItem 赵巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 List1.AddItem 崔宁 List1.AddItem 何月End SubPrivate Sub Command1_Click() If Text1.Text Then 1 Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() 2 End Sub Private Sub Command3_Click() If Command3.Caption = 修改Then Text1.Text = 3 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 4 Else 5 Command1.Enabled = True Command2.Enabled = True Text1.Text = 6 Command3.Caption = 修改 End IfEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。程序如下，请补充完整。Private Sub Form_Load() 1 File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change() Dir1.Path = 2 3 = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 4 Text1.Text = 5 End SubPrivate Sub File1_click() Picture1. 6 = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = 7 End Sub3已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。图2程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()连接SQL Server数据库Dim strDB As StringstrDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn =2 3 strDB End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As 4 5 ADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not ADOrs.EOF Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”6 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub五、编写程序题1.编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如下图所示。Text3Text1Text4Text2Command1Command22编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面如下图所示： 图1 要使用转换的公式是：F=9/5*C+32 其中F为华氏温度，C为摄氏温度。 3.设计一个计算程序。该程序用户界面如下图所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。答 案一、单项选择题 1.C 2.C 3.B 4.D 5.C 6.D 7.D 8.B 9.D 10.B 11.B 12.D 13.C 14.D 15D 16.C 17.B 18.D 19.A 20.C 21.A22.A 23. B 24.B 25.C 二、填空题1直线终点2F13.cab4100005启动窗体6Name Index 7. 15=x AND x458Circle(ScaleWidth/2,ScaleHeight/2),3009ADOrs Open”Select * From Table1”10外部数据库 本地数据库 远程数据库11Dim A(1To 4,-1To 4) As String12右 上13. Public140 15. TCP/IP UDP 16.数据库引擎17.False18. 一直存在 过程执行期间三、阅读程序题1. 152 7 43 294 155101214615四、完善程序题1.1List1.AddItem Text1.Text2List1.RemoveItem List1.ListIndex 3 List1.Text 4 修改确认5List1.List(List1.ListIndex) = Text1.Text6 2.1 Drive1.Drive =D:2 Drive1.Drive3 Text1.Text4 File1.Path = Dir1.Path5 Dir1.Path6 Picture7 FileName3.1学生2New Connection3 ADOcn.Open4New Recordset5 ADOrs.ActiveConnection=ADOcn6 ADOrs.Execute str SQL五、编程题 1 Private Su