vb等级考试主要知识点.docx

1、vb等级考试主要知识点VB 主要知识点【1】VB概述熟悉VB的特点、运行环境、对象、属性、方法、事件各概念，尤其是方法和事件的区分。熟悉VB的IDE，VB开发应用程序的一般步骤。特点：GUI（集成开发环境）、OLE（对象的连接和嵌入）、OOP（面向对象）；运行环境：Windows（VB5.0以上在32位操作系统）方法：对象可以执行的动作或行为；（主动性）事件：使某个对象进入活动状态的一种操作或动作。（被动性）例题：1、VB的使用目的是（ ）。A. 开发Windows应用程序B. 图象处理C. 制作WAV文件D. 文字处理2、一个对象可以执行的动作和可被对象识别的动作分别称为（ ）。A.方法、事

2、件 B.事件、方法C.方法、属性 D.事件、属性3、一只白色的足球被踢进球门，则白色、足球、踢、进球门是（ ）。A. 属性、对象、方法、事件B. 属性、对象、事件、方法C. 对象、属性、方法、事件对象、属性、事件、方法【2】对象熟练应用窗体、控件。掌握窗体的常用方法(Hide、Show、Print、Cls、Refresh、Move)、属性和事件(Load、Activate、Click)。 Load事件、Unload事件、End语句常用控件： CommandButton(Default、Cancel、Enabled、Style、DisabledPicture、DownPicture) Label

3、(AutoSize) TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注：Multiline=True) OptionButton(Value) ListBox(属性：listlistcountlistindexselected、方法：AddItem、RemoveItem、Clear) ComboBox（与ListBox类似） HscrollBar、VscrollBar（min、Max、Value） PictureBox(print方法、LoadPicture函数) Timer(运行时不可见、只能Timer事件、Inte

4、rval)方法、属性、事件的掌握。 容器控件：Form、Picture、Frame 特殊控件：菜单的使用（只响应Click事件）例题：1、以下窗体名中哪些是非法的窗体名（ ）。 对象名命名规则：以字母或汉字开头，后面可以是字母、数字、下划线、汉字。（变量名类似）A_aform B3frm Cf_1 Dfrm 5 Ef_1*2、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为（ ）。A. myfrm_click B.form1_clickC.form_click D.me_click3、执行下面语句：print “5*20” 的结果是（ ）。A“5*20” B出现错误信息C5

5、*20 D1004、下列语句代码哪一些可正常执行（正常执行是指系统不给出出错提示）； A.Print 32765 + 3 B.Print 5 + 7 = 14C.Print 256 / 128 D.Print 14 + 12 E、Print 14 & 125、以下使用方法的代码中，正确的是（ ）。A.Label1.Setfocus B.Form1.ClearC.Text1.SetFocus D.Combo1.Cls6、在程序中可以通过复选框和单选按钮的（ ）属性值来判断他们的当前状态。A. Caption B.ValueC.Checked D.Selected7、将复选框的Value属性设为2

6、,其效果与把它的Enabled属性设为False有何异同？若把一个控件的Visible属性设为False,意味着什么？8、当用户单击命令按钮时，（ ）属性可以使得命令按钮对激发事件无效。A. Name B.EnabledC.Default D.Cancel9、在文本框Text1和Text2中分别输入35与48，变量S与X分别为字符型与整型，以下赋值语句的执行结果是什么？s = Text1.Text + Text2.Textx = Text1.Text + Text2.Texts = Text1.Text & Text2.Textx = Text1.Text & Text2.Texts = Va

7、l(Text1.Text) + Text2.Textx = Val(Text1.Text) + Text2.Texts = Val(Text1.Text) & Text2.Textx = Val(Text1.Text) & Text2.Text【3】VB语言基础1 过程与模块 窗体事件过程 事件过程 控件事件过程过程 Sub子过程 通用过程 Function函数过程Property属性过程 窗体模块 .frm 模块 标准模块 .bas 类模块 .cls 例题：1、下列模块中哪个是一个工程必须具备的（ ）。 A. 窗体模块 B.标准模块C.类模块 D.用户自定义模块2 语言基础一、 书写规范：间

8、隔符号、续行符号 _、注释符号二、 Integer 2Long 4Single 4 数值型 Double 8 0 Byte 1 Currency 8 逻辑型 Boolean 2 false数据类型 字符型 String 10+- 空串 日期型 Date 8 对象型 Object 4 变体型 Variant =16 空值 用户自定义型 Type数据：数据类型、关键字、存储单位、初值。数值常量 &O (8) &H(16)字符常量 命名规则 局部 Dim/Static常量 逻辑常量 变量 作用域 窗体/模块 Dim/Private日期常量 #月/日/年# 全局（共有）Public符号常量： Cons

9、t关键字 说明语句 Dim a As Single数值常量 &O (8) &H(16)例题：1、在窗体或标准模块的通用声明处可以用_语句定义变量。A. Dim、Redim B. Dim、StaticC. Dim、Private、Public D. Dim、Private、Static注意： 在窗体和类模块中，不能将定长字符串、符号常量、数组用Public来定义。 Option Explicit 语句功能：强制变量的声明 变量隐式说明的六个符号：%、&、！、#、$例：m1&=5*x%3+x% mod y% 和 m1&=5*x%3+x% mod y%的正确性例题：1、下列字符串中（ ）是合法变量A

10、.char_1,student,no,a1234 B.exp,123a,x*yC.xy,xy D.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（Spc） 转换：Str、Val、Chr、Asc、Int、Ci

11、nt 日期：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 bas

12、ic, 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】算法概述算法特征：确定、可行、有穷、输入、输出算法结构：顺序、分支、循环1 分支结构1、If e then A If e then等价于 AEnd If2、If e then A else B If e then等价于 A Else BIf e1 then A1ElseIf

13、 e2 thenA2Else AnEnd ifEnd If 3、Select Case e Case c1 具体值 1，2-A1 数据区间 8 To 10 Case c2 表达式 Is20A2 Case ElseA3End select4、例题：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)E

14、nd IfPrint z= + Str(z)End Sub2、Select Case语句Private Sub Form_Click()Dim ch As String, i As Integerch = InputBox(输入)Select 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 运行结果 + ch + Str(i)End Sub2 循环结构1、For-Next (循环次数的计算)For v=e1 to e2 setp e3 -

15、exit for -next vFor 循环的几个特例：例如：有循环: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

16、 Next i Print i, p, nEnd SubInputBox函数MsgBox函数 （注意参数含义及顺序）x=InputBox(_,_,_)写出显示下图信息框的MsgBox函数【5】数组1、数组的上、下界：Ubound()、Lbound()2、数组的大小的计算、数组的结构：（二维数组：以列存放）3、Erase语句：重新初始化静态数组的元素、或释放动态数组的存储空间。4、For Each Next结构语句5、用Array函数给数组赋值（只能给Variant类型的变量赋值）6、控件数组（load/Unload Object(Index)） 动态数组 （Redim语句）数组分类： 静态数组

17、 Option Base语句功能Preserve语句功能 例如：数组重点算法：求数组中最大和最小的元素值；对一维数组排序（选择法、冒泡法、直接排序法）在数组中查找指定的数（顺序、二分查找）移动数组中元素例题：1、在窗体模块的通用声明处用下面的语句声明变量、数组、正确语句有（ ）个。A.Public a(5) as integer B.Public n as integerC.Public st as string*10 D.Private b() as integer2、下列语句中的（ ）语句可以用来正确地声明一个动态数组。A.Private A(n) as integer B.Dim A()

18、 as integerC.Dim A(,) as integer D.Dim a(1 to n)3、下列关于数组的说法中正确的是（ ）。A.在过程中，不能用private语句定义数组B.利用Redim语句重新定维时，不得改变已经说明过的数组的数据类型。C.数组重新定维后，原有的数据元素内容将不予保留4、过程的形参为数组时，以下定义语句中正确的是（ ）。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

19、(byval a() as integer)5、某过程的说明语句中，正确的数组说明语句是（ ）。 Const N As Integer=4 Dim L As Integer Dim x(L) As Integer Dim A(K) As Integer Const K As Integer=3 Dim B(N) As Integer4 Dim Y(2000 To 2008) As IntegerA. B. C. D.【6】程序调试错误类型：语法、运行、逻辑；调试工具：“本地”、“监视”、“立即”窗口的功能？例题：1、下列错误中，哪个在输入代码时系统能够提示（ ）。A. 语法错误 B.编译错误C

20、.运行错误 D.逻辑错误【7】过程与函数子过程函 数注意：按值传递参数形参和实参的类型不一定要统一，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 Sub按地址传递参数当实参是变量时：如果形参规定了类型，则实参必须跟形参保持一致如果形参没有规定类型，则VB按要求进行数据类型转换当实参是常量或表达式时：VB自动用“按值传递”的方式进行处理，如果数据类型不

21、统一，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、以下有关

22、变量作用域的说法中，错误的是（ ）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.kC. form1.kD. k二、阅读程序，给出输出结果(1)字符串处理（数组参数）Option Base 1Pri

23、vate 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)

24、 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 Command

25、1_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 A

26、s 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() te

27、st 3End Sub（5）同名变量Dim y As IntegerPrivate Sub Form_Click() Dim x As Integer, y As Integer x = 1: y = 1 Print x1=; x, y1=; y Test Print x4=; x, y4=; yEnd SubPrivate Sub Test() Dim x As Integer Print x2=; x, y2=; y x = 2: y = 3 Print x3=; x, y3=; yEnd Sub三、特例1、运行程序在窗体显示的结果是：Private Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4 Call sub1(a, a) Print a, b Call sub1(b, b) Print a, bEnd SubPrivate Sub sub1(x As Integer, y As Integer) x = x + 2 y = x + yEnd Sub2、运行程序单击窗体，在窗体上显示的内容是：16 20Private