全国计算机二级VB复习资料.doc

VB复习1、VB的特点、运行环境、对象、属性、方法、事件各概念，尤其是方法和事件的区分。熟悉VB的IDE，VB开发应用程序的一般步骤。特点：GUI（集成开发环境）、OLE（对象的连接和嵌入）、OOP（面向对象）；运行环境：Windows（VB5.0以上在32位操作系统）方法：对象可以执行的动作或行为；（主动性）事件：使某个对象进入活动状态的一种操作或动作。（被动性）例题：1、VB的使用目的是（ ）。A. 开发Windows应用程序B.图象处理C.制作WAV文件D.文字处理2、一个对象可以执行的动作和可被对象识别的动作分别称为（ ）。A.方法、事件B.事件、方法C.方法、属性D.事件、属性3、一只白色的足球被踢进球门，则白色、足球、踢、进球门是（ ）。A. 属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、方法、事件D.对象、属性、事件、方法2、熟练应用窗体、控件。掌握窗体的常用方法(Hide、Show、Print、Cls、Refresh、Move)、属性和事件(Load、Activate、Click)。Load事件、Unload事件、End语句常用控件：CommandButton(Default、Cancel、Enabled、Style、DisabledPicture、DownPicture)、Label(AutoSize)、TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注：Multiline=True)、OptionButton(Value)、ListBox(属性：listlistcountlistindexselected、方法：AddItem、RemoveItem、Clear)、ComboBox（P27）、HscrollBar、VscrollBar（min、Max、Value）、PictureBox(print方法)、Timer(运行时不可见、只有Timer事件、Interval)方法、属性、事件的掌握。容器控件：Form、Picture、Frame特殊控件：菜单的使用（只响应Click事件）1、以下窗体名中哪些是非法的窗体名（ ）。对象名命名规则：以字母或汉字开头，后面可以是字母、数字、下划线、汉字。（变量名类似）A_aformB3frmCf_1Dfrm 5Ef_1*2、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为（ ）。A. myfrm_clickB.form1_clickC.form_clickD.me_click3、执行下面语句：print “5*20” 的结果是（ ）。A“5*20”B出现错误信息C5*20D1004、下列语句代码哪一些可正常执行（正常执行是指系统不给出出错提示）；A、Print 32765 + 3B、Print 5 + 7 = 14C、Print 256 / 128D、Print 14 + 12 E、Print 14 & 12 5、以下使用方法的代码中，正确的是（ ）。A、Label1.SetfocusB、Form1.ClearC、Text1.SetFocusD、Combo1.Cls6、在程序中可以通过复选框和单选按钮的（ ）属性值来判断他们的当前状态。A. Caption B.ValueC.CheckedD.Selected7、将复选框的Value属性设为2,其效果与把它的Enabled属性设为False有何异同？若把一个控件的Visible属性设为False,意味着什么？8、当用户单击命令按钮时，（ ）属性可以使得命令按钮对激发事件无效。A. NameB.Enabled C.DefaultD.Cancel9、在文本框Text1和Text2中分别输入35与48，变量S与X分别为字符型与整型，以下赋值语句的执行结果是什么？s = Text1.Text + Text2.Textx = Text1.Text + Text2.Texts = Text1.Text & Text2.Textx = Text1.Text & Text2.Texts = Val(Text1.Text) + Text2.Textx = Val(Text1.Text) + Text2.Texts = Val(Text1.Text) & Text2.Textx = Val(Text1.Text) & Text2.Text6、错误类型：语法、运行、逻辑；调试工具：“本地”、“监视”、“立即”窗口的功能？1、下列错误中，哪个在输入代码时系统能够提示（ ）。A. 语法错误B.编译错误C.运行错误D.逻辑错误3、1 过程与模块 窗体事件过程 事件过程 控件事件过程过程 Sub子过程 通用过程 Function函数过程 Property属性过程 窗体模块 .frm模块标准模块 .bas类模块 .cls1、下列模块中哪个是一个工程必须具备的（ ）。A. 窗体模块B.标准模块C.类模块D.用户自定义模块2 语言基础一、 书写规范：间隔符号、续行符号 _、注释符号二、 数据：数据类型、关键字、存储单位、初值。Integer2Long4Single4 数值型 Double8 0 Byte1 Currency8 逻辑型 Boolean2 false数据类型 字符型 String10+- 空串 日期型 Date8 对象型 Object4 变体型 Variant =16 空值 用户自定义型 Type数值常量 &O (8) &H(16)字符常量 命名规则 局部 Dim/Static常量 逻辑常量 变量 作用域 窗体/模块 Dim/Private日期常量 #月/日/年# 全局（共有）Public符号常量： Const关键字 说明语句Dim a As Single例如：1、在窗体或标准模块的通用声明处可以用_语句定义变量。A. Dim、RedimB. Dim、StaticC. Dim、Private、PublicD. Dim、Private、Static注意：在窗体和类模块中，不能将定长字符串、符号常量、数组用Public来定义。隐式说明的六个符号：%、&、！、#、$例：m1&=5*x%3+x% mod y% 和 m1&=5*x%3+x% mod y%的正确性Option Explicit 语句功能：强制变量的声明例题：1、下列字符串中（ ）是合法变量A.char_1,student,no,a1234B.exp,123a,x*yC.xy,xyD.end,lbcx三、 运算符与表达式算术 -(负号)*、/Mod+、-& 例如：84*-2+1关系逻辑 NotAndOrXor 注意：代数表达式与VB表达式的转换。 例如：ex+y+|x+y| 2+1四、 VB公共函数 算术：Sqr、Log、Exp、Abs、Rnd、Sin、Cos 字符：Len、left、Right、Mid、Ucase、Lcase、Ltrim、Rtrim、Trim、Instr、String、Space 转换：Str、Val、Chr、Asc、Int、Cint 日期：Date、Time、Now、Year、Month、Day、Week、Day例如：1、设s1,s2均为字符串变量，s1=”Visual Basic”,s2=”b”,则下面关系表达式中结果为True的是（ ）。A.Mid(s1,8,1)s2B.Len(s1)2*Instr(s1,”l”)C.Chr(66) & Right(s1,4)=”Basic”D.Instr(Left(s1,6),”a”)+60Asc(Ucase(s2)2、求出下列表达式的运算结果；A.Mid(visual basic, 1, 12) = Right(Programming language visual basic, 12)B. ABCRG = abcdeC. Int(134.69) = CInt(134.69)D. 78.9 / 32.77 -4.98E. Str(32.345) = CStr(32.345)3、VB只有求自然对数的函数Log(x)，如果计算式中需要使用常用对数或以2为底的对数，应如何处理？（使用换底公式）-4、算法概述算法特征：确定、可行、有穷、输入、输出If e1 then A1Elseif e2 thenA2Else AnEnd if算法结构：顺序、分支、循环 分支结构1、If e then A If e then等价于Ae1e2-A1A2End IfeASelect Case e Case c1 具体值 1，2-A1 数据区间 8 To 10 Case c2 表达式 Is20A2 Case ElseA3End select2、例如：1、if 语句： Private Sub Form_Click()Dim x As Integer, y As IntegerDim z As Singlex = 0.2y = 1If (x = 1) Then z = Log(x)ElseIf x = 0 And x = 0 Then z = 2 * x - yElse z = Exp(x + y)End IfPrint z= + Str(z)End Sub结果： z=-12、Select Case语句Private Sub Form_Click()Dim ch As String, i As Integerch = cSelect Case ch Case A, a i = 1 Case B, b i = 2 Case C, c i = 3 Case D, d i = 4Case Else i = 5End SelectPrint 运行结果 + Ucase(ch) + Str(i)End Sub结果：运行结果C3 循环结构1、For-Next (循环次数的计算)特例：Private Sub Form_Click()For i = i To 10n = n + 1i = i + 1Next iPrint nPrint iEnd SubPrivate Sub Form_Click()For i = 10 To 1 Step -2 i = i + 1 k = k + 1NextPrint iPrint kEnd SubPrivate Sub Form_Click()n = -3For m = 6 To 1 Step n m = m + 1 n = n - m k = k + 1Next mPrint kPrint nEnd SubPrivate Sub Form_Click()n = 1For m = 6 To n Step -3m = m + 1n = n - mk = k + 1Next mPrint kPrint nEnd SubPrivate Sub Form_Click()For i = 1 To 3n = i - 1For j = 1 To 3n = n + 1If n 3 ThenPrint n Mod 3;ElsePrint n;End IfNext jPrintNext iEnd Sub例如：有循环:for I=n1 to n2 step n3 下列哪些语句会影响循环次数（ ）A n1=n1+IB n3=2*n3C n2=n2+n3D I=I+n32、Do-Loop (While,Until)例如：运行下面的程序，单击窗体后在窗体上的内容是（ ）；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是（ ）Private Sub Form_Click()Dim a As Integer, b As Integera = 0: b = 0Do While a = 10 Then Exit For Next i Print i, p, nEnd Sub五、 InputBox函数MsgBox函数 （注意参数含义及顺序）x=InputBox(_,_,_)写出显示下图信息框的MsgBox函数5、数组1、数组的上、下界：Ubound()、Lbound() 2、数组的大小的计算、数组的结构：（二维数组：以列存放） 3、Erase语句：重新初始化静态数组的元素、或释放动态数组的存储空间。 4、For Each Next结构语句 5、用Array函数给数组赋值（只能给Variant类型的变量赋值） 6、控件数组（load/Unload Object(Index)） 动态数组 （Redim语句）数组分类： 固定大小数组Option Base语句功能Private Sub Form_Click()Dim a() As IntegerDim i As IntegerFor i = 1 To 3 ReDim a(i) ReDim Preserve a(i) a(i) = iNext iFor i = 1 To 3 Print a(i);Next iEnd SubPreserve语句功能 例如：n数组重点算法：n一数组，求其中最大和最小；n对一数组排序（选择法、冒泡法、直接排序法）n在一数组中查找指定的数（顺序、二分查找）;n删除一数组中重复的数2、在窗体模块的通用声明处用下面的语句声明变量、数组、正确语句有（ ）个。A.Public a(5) as integerB.Public n as integerC.Public st as string*10D.Private b() as integer3、下列语句中的（ ）语句可以用来正确地声明一个动态数组。A.Private A(n) as integerB.Dim A() as integerC.Dim A(,) as integerD.Dim a(1 to n)4、下列关于数组的说法中正确的是（ ）。A.在过程中，不能用private语句定义数组B.利用Redim语句重新定维时，不得改变已经说明过的数组的数据类型。C.数组重新定维后，原有的数据元素内容将不予保留5、过程的形参为数组时，以下定义语句中正确的是（ ）。A.private sub sort(a() as integer)B.private sub sort(a(10) as integer)C.private sub sort(a(,) as integer)D.private sub sort(byval a() as integer)6、某过程的说明语句中，正确的数组说明语句是_。Const N As Integer=4 :Dim L As IntegerDim x(L) As IntegerDim A(K) As IntegerConst K As Integer=3Dim B(N) As Integer Dim Y(2000 To 2008) As IntegerA. B.C.D.（它们的区别、如何调用、参数的传递）8、过程与函数子过程函 数注意：F按值传递参数形参和实参的类型不一定要统一，VB自动进行数据的转换。例如：Private Sub Form_Click() Dim a As String : a = 2 Call sub1(a) Print aEnd SubPrivate Sub sub1(ByVal b As Integer) b = b + 1 : Print bEnd SubF按地址传递参数当实参是变量时：如果形参规定了类型，则实参必须跟形参保持一致如果形参没有规定类型，则VB按要求进行数据类型转换当实参是常量或表达式时：VB自动用“按值传递”的方式进行处理，如果数据类型不统一，VB自动进行数据转换 例如：1、在应用程序中用“Private function Fun(X as integer,Y as single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均为Integer型，能正确引用函数Fun的是（ ）A.Fun(I,J) B.Call Fun(I,3.56) C.Fun(3.14,234) D.Fun(245,231.5)2.程序中的不同过程之间，不能通过_进行数据传递。全局变量窗体或模块级变量形参与实参结合 静态变量A. B. C.D.二级考试必考题型：(课后习题)传值传地址Static变量同名变量递归过程例如：1、以下有关变量作用域的说法中，错误的是（ ）A. 只有在标准模块中用public语句说明的变量才是全局变量B. 在过程中不能使用public语句说明全局变量C. 在标准模块的通用声明处可用private语句说明模块级变量D. 在窗体的通用声明处可用private语句说明窗体级变量2一个名为frm1的窗体，在窗体通用声明处和过程sub1中分别定义：public k as integer、dim k as integer如何在sub1中访问全局变量k( )A.frm1.kB.form.k C.form1.kD.k例：阅读程序，给出输出结果：(1)字符串处理（数组参数）Option Base 1Private Sub Form_Click() Dim st As String, char As String Dim data() As String, i As Integer, j As Integer st = 10281018123811181038 For i = 1 To Len(st) If Mid(st, i, 1) 8 Then char = char & Mid(st, i, 1) Else j = j + 1 ReDim Preserve data(j) data(j) = char char = End If Next i Call conver(data, char) Print charEnd SubPrivate Sub conver(a() As String, ch As String)Dim i As Integer, j As IntegerDim n As Integer, dec As Integer For i = 1 To UBound(a) n = Len(a(i) For j = 1 To n dec = dec + Val(Mid(a(i), j, 1) * 8 (n - j) Next j ch = ch & Chr(dec) dec = 0 Next iEnd Sub(2)static变量Private Sub Command1_Click() Dim n As Integer, i As Integer n = 2 For i = 9 To 1 Step -1 Call sub2(i, n) Print i, n Next iEnd SubPrivate Sub sub2(x As Integer, y As Integer) Static n As Integer Dim i As Integer For i = 3 To 1 Step -1 n = n + x x = x - 1 Next i y = y + nEnd Sub(3) 递归Private Sub Command1_Click() Dim a As Integer a = 2 Call sub1(a)End SubPrivate Sub sub1(x As Integer) x = x * 2 + 1 If x 10 Then Call sub1(x) End If x = x * 2 + 1 Print xEnd Sub(4)递归Private Sub test(x As Integer) Dim i As Integer If x 0 Then Call test(x - 1) For i = 1 To x Print x; Next i Print End IfEnd SubPrivate Sub Form_Click() test 3End Sub（5）同名变量Dim y As IntegerPrivate Sub Form_Click()Dim x As Integer,y as integerx=1 : y=1Print x1=;x, y1=;yTestPrint x4=;x, y4=;y End SubPrivate Sub Test()Dim x As IntegerPrint x2=;x, y2=;yx=2 : y=3 Print x3=;x,y3=;yEnd Sub特例：1、运行程序在窗体显示的结果是：Private Sub Form_Click()Dim a As Integer, b As Integera = 3: b = 4Call sub1(a, a) Print a, bCall sub1(b, b)Print a, bEnd SubPrivate Sub sub1(x As Integer, y As Integer)x = x + 2y = x + yEnd Sub2、运行程序单击窗体，在窗体上显示的内容是：16 20Private Sub Form_Click()Dim n As Integer, m As Integern = 1: m = 2Print n + m + f(n, m) ； 优先执行f函数，n,m变化后再运算 “+”n = 2: m = 1Print f(n, m) + f(m, n) n,m第一次变化后，第二次以变化后的值再调用End SubPrivate Function f(n As Integer, m As Integer)n = n + mm = m + 3f = n + mEnd Function3、执行下面的程序，在窗体上显示的输出结果是_；如果将A语句改成：Call sub1(b+1,a)，则在窗体上显示的输出结果是_。Private Sub Form_Click() Dim a As Integer, b As Integer a = 1: b = 2 Call sub1(a, b) A Print a, bEnd SubPrivate Sub sub1(x As Integer, ByVal y As Integer) x = x + y y = x + yEnd Sub7、文件管理控件文件处理 顺序文件和随机文件的打开（open）语句，EOF函数，读写语句。do while not eof(1)do until eof(1)print #1,write #1,input #1,a,b,cline input #1,sinput(#1,100)get #1,aput #1,”af”打开方式：顺序文件Open 文件路径+文件名（包括文件后缀） For Output As #1-511Open 文件路径+文件名（包括文件后缀） For Append As #1-511Open 文件路径+文件名（包括文件后缀）For Input As #1-511随机文件：Open 文件路径+文件名（包括文件后缀）For Random As #1-511二进制文件：Open 文件路径+文件名（包括文件后缀）For Binary As #1-511Open语句打开文件的注意：1如果以Output、Append、Random、Binary模式打开一个不存在的文件时，VB自动创建一个相应文件；2在Input Random Binary模式下，可以用不同的文件号打开同一文件，但Output Append方式不可以；3所有当前使用的文件号必须是唯一的；4如果以Output模式打开一个已存在的文件，即使没有进行写操作原来数据也将被覆盖。Close语句注意：（Reset）1直接使用 Close语句（缺省文件号），则所有用Open语句打开的活动文件都被关闭；2当程序结束时，所有打开的文件自动被关闭。Lock和Unlock语句注意：1对于二进制文件，Lock和Unlock的是字节范围；2对于随机文件，Lock和Unlock的是记录范围；3对于顺序文件，Lock和Unlock的是整个文件，即使指明范围也不起作用；4缺省情况下Lock和Unlock的范围是整个文件；5Lock和Unlock总是成对使用。特别注意：在关闭文件或结束程序之前，必须用Unlock语句对先前锁定的文件解锁，否则会产生难以预料的错误。1要对顺序文件进行写操作，下列打开文件语句中正确的是（ ）。Open file1.txt for output as #1Open file1.txt for input as #1Open file1.txt for