计算机等级考试二级VB考点及习题.docx

1、计算机等级考试二级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

2、.方法、属性 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)、Te

3、xtBox(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

4、、Frame 特殊控件：菜单的使用(只响应Click事件)1、以下窗体名中哪些是非法的窗体名( )。对象名命名规则：以字母或汉字开头，后面可以是字母、数字、下划线、汉字。(变量名类似)A._aform B.3frm C.f_1 D.frm 5 E.f_1*2、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为( )。A. myfrm_click B.form1_clickC.form_click D.me_click3、执行下面语句：print “5*20” 的结果是( )。A.“5*20” B.出现错误信息 C.5*20 D.1004、下列语句代码哪一些可正常执行(正常执行

5、是指系统不给出出错提示);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.Value C.Checked D.Selected7、将复选框的Value属性设为2,其效果与把它的Enabled属性设为False有何异同?

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

7、x = Val(Text1.Text) + Text2.Texts = Val(Text1.Text) & Text2.Textx = Val(Text1.Text) & Text2.Text3、1、下列模块中哪个是一个工程必须具备的( )。A. 窗体模块 B.标准模块 C.类模块 D.用户自定义模块2 语言基础一、 书写规范：间隔符号、续行符号 _、注释符号二、 数据：数据类型、关键字、存储单位、初值。数值常量 &O (8) &H(16)字符常量 命名规则 局部 Dim/Static常量 逻辑常量 变量 作用域 窗体/模块 Dim/Private日期常量 #月/日/年# 全局(共有)Publ

8、ic例如：1、在窗体或标准模块的通用声明处可以用_语句定义变量。A. Dim、Redim B. Dim、StaticC. Dim、Private、Public D. 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,a1234 B.exp,123a,x*yC.xy,xy

9、 D.end,lbcx四、 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)s2 B.Len(s1)2*Instr(s1,”l”)C.Chr(66

10、) & 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 = abcde C. Int(134.69) = CInt(134.69)D. 78.9 / 32.77 -4.98E. Str(32.345) = CStr(32.345)3、VB只有求自然对数的函数Log(x)，如果计算式中需要使用常用对数或以2为底的对数，应如何处理?(使用换

11、底公式)例如：1、if 语句：Private Sub Form_Click()Dim x As Integer, y As IntegerDim z As Singlex = 0.2y = 1If (x = 1) Thenz = Log(x)ElseIf x = 0 And x = 0 Thenz = 2 * x - yElsez = 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 C

12、ase chCase A, ai = 1Case B, bi = 2Case C, ci = 3Case D, di = 4Case Elsei = 5End SelectPrint 运行结果 + Ucase(ch) + Str(i)End Sub结果：运行结果C3 循环结构1、For-Next (循环次数的计算)特例：例如：有循环:for I=n1 to n2 step n3 下列哪些语句会影响循环次数( )A. n1=n1+IB. n3=2*n3C. n2=n2+n3D. I=I+n32、Do-Loop (While,Until)例如：运行下面的程序，单击窗体后在窗体上的内容是( );若将

13、程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是( )Private Sub Form_Click()Dim a As Integer, b As Integera = 0: b = 0Do While a = 10 Then Exit ForNext iPrint i, p, nEnd Sub一、 InputBox函数MsgBox函数 (注意参数含义及顺序)x=InputBox(_,_,_)写出显示下图信息框的MsgBox函数5、数组1、数组的上、下界：Ubound()、Lbound() 2、数组的大小的计算、数组的结构：(二维数组：以列存放) 3、Erase语

14、句：重新初始化静态数组的元素、或释放动态数组的存储空间。 4、For Each Next结构语句 5、用Array函数给数组赋值(只能给Variant类型的变量赋值) 6、控件数组(load/Unload Object(Index)动态数组 (Redim语句)数组分类：固定大小数组 Option Base语句功能Preserve语句功能例如：n数组重点算法：n一数组，求其中最大和最小;n对一数组排序(选择法、冒泡法、直接排序法)n在一数组中查找指定的数(顺序、二分查找);n删除一数组中重复的数2、在窗体模块的通用声明处用下面的语句声明变量、数组、正确语句有( )个。A.Public a(5)

15、as integer B.Public n as integerC.Public st as string*10 D.Private b() as integer3、下列语句中的( )语句可以用来正确地声明一个动态数组。A.Private A(n) as integer B.Dim A() as integerC.Dim A(,) as integer D.Dim a(1 to n)4、下列关于数组的说法中正确的是( )。A.在过程中，不能用private语句定义数组B.利用Redim语句重新定维时，不得改变已经说明过的数组的数据类型。C.数组重新定维后，原有的数据元素内容将不予保留5、过程的

16、形参为数组时，以下定义语句中正确的是( )。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 Integer Dim x(L) As Integer Dim A(K) As IntegerConst K As Integer=3 Dim B(N)

17、As Integer Dim Y(2000 To 2008) As IntegerA. B. C. D.7、文件管理控件文件处理 顺序文件和随机文件的打开(open)语句，EOF函数，读写语句。do while not eof(1) do until eof(1)print #1, write #1,input #1,a,b,c line input #1,s input(#1,100)get #1,a put #1,”af”打开方式：顺序文件Open 文件路径+文件名(包括文件后缀) For Output As #1-511Open 文件路径+文件名(包括文件后缀) For Append A

18、s #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.如果以

19、Output模式打开一个已存在的文件，即使没有进行写操作原来数据也将被覆盖。Close语句注意：(Reset)1.直接使用 Close语句(缺省文件号)，则所有用Open语句打开的活动文件都被关闭;2.当程序结束时，所有打开的文件自动被关闭。Lock和Unlock语句注意：1.对于二进制文件，Lock和Unlock的是字节范围;2.对于随机文件，Lock和Unlock的是记录范围;3.对于顺序文件，Lock和Unlock的是整个文件，即使指明范围也不起作用;4.缺省情况下Lock和Unlock的范围是整个文件;5.Lock和Unlock总是成对使用。特别注意：在关闭文件或结束程序之前，必须用U

20、nlock语句对先前锁定的文件解锁，否则会产生难以预料的错误。1.要对顺序文件进行写操作，下列打开文件语句中正确的是( )。Open file1.txt for output as #1Open file1.txt for input as #1Open file1.txt for Random as #1Open file1.txt for binary as #12.在VB中文件访问的类型有( )。A.顺序、随机、二进制 B.顺序、随机、字符A. 顺序、十六进制、随机 D.顺序、记录、字符例如：将文件Data1中的无序数据和Data2中的有序数据插入到Data3中，要求：Data3中的数据

21、必须也是排好序。请填写空白处以实现该题功能。Private Sub Form_Click()Dim a() As Integer, b() As IntegerDim k As Integer, i As IntegerOpen e:data1.txt For Input As #2Open e:data2.txt For Input As #3Do While Not EOF(2)k = k + 1ReDim Preserve a(k)Input #2, a(k)Loop_k=0_Do While Not EOF(3)k = k + 1ReDim Preserve b(k)Input #3,

22、 b(k)LoopCall insert(a, b)Open e:data3.txt For Output As #4_k=ubound(b)_For i = 1 To kPrint #4, b(i)Next iCloseEnd SubPrivate Sub insert(a() As Integer, b() As Integer)Dim m As Integer, i As IntegerDim n As Integer, j As Integerm = UBound(a): n = UBound(b)_redim preserve b(m+n)_i = 0Do While i = 1 A

23、nd a(i) b(j)If a(i) b(j) Then_b(j+1)=b(j)_j = j - 1ElseExit DoEnd IfLoop_b(j+1)=a(i)_n = n + 1LoopEnd Sub注意：F按值传递参数形参和实参的类型不一定要统一，VB自动进行数据的转换。例如：Private Sub Form_Click()Dim a As String : a = 2Call sub1(a)Print aEnd SubPrivate Sub sub1(ByVal b As Integer)b = b + 1 : Print bEnd SubF按地址传递参数当实参是变量时：如果形参

24、规定了类型，则实参必须跟形参保持一致如果形参没有规定类型，则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.程序中的不同过程之间，不能通过_进行数据传递。全局变量 窗体

25、或模块级变量 形参与实参结合 静态变量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

26、( )A.frm1.k B.form.k C.form1.k D.k例：阅读程序，给出输出结果：(1)字符串处理(数组参数)Option Base 1Private Sub Form_Click()Dim st As String, char As StringDim data() As String, i As Integer, j As Integerst = 10281018123811181038For i = 1 To Len(st)If Mid(st, i, 1) 8 Thenchar = char & Mid(st, i, 1)Elsej = j + 1ReDim Preserve data(j)data(j) = charchar = End IfNext iCall 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 IntegerFor i = 1 To UBound(a)n = Len(a(i)For j = 1 To ndec = dec + Val(Mid(a(i), j, 1) * 8 (n - j)