VB期末考试题库

1、试卷编号：587所属语言：Visual Basic试卷方案：201101VB期末考试方案试卷总分：420分共有题型：5种一、填空 共20题 第1题 题号:28运行下列程序，单击Command1, 在窗体上显示的第一行内容是_ icBa_【1】_, 第二行的内容是_ baicBa_【2】_, 第三行的内容是_【3】baba_。 Option Explicit Private Sub Command1_Click() Dim s As String s="Basic" Call trans(s) End Sub Private Sub trans(s As String) Di

2、m j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,"a") t=LCase(Right(s,j) s=Right(t,Len(s)-k) & Left(s,Len(t) k=k-1 Print s Loop Until k=0 End Sub答案：=(答案1)=icBa=(答案2)=baicBa=(答案3)=baba第2题 题号:18执行下面程序，单击Command1，则窗体上显示的第一行是【1】9 12，第三行是3 -3【2】，最后一行是0 -6【3】。Option ExplicitPriva

3、te Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub答案：=(答案1)=9 12=(答案2)=3 -3=(答案3)=0 -6第3题 题号:27执行下面的程序，单击Command1,窗体上显示的第一行是_2 3_【1】_，第二行是_5 8_【2】_,第四行是_34 55_【3】_。 Option Explicit Private Sub Command1_

4、Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End SubPrivate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Call sub1(a, b) End If End Sub答案：=(答案1)=2 3=(答案2)=5 8=(答案3)=34 55第4题 题号:26运行下面的程序，单击Command1,在窗体上显示的变量a的值为30_【1】_，

5、变量b的值为_30_【2】_,变量c的值为_15_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End Sub Private Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function答案：=(答

6、案1)=30=(答案2)=30=(答案3)=15第5题 题号:16执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有【6】个元素；数组元素A(2)的值是【5】，A(4)的值是【17】。 Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i Fo

7、r i=1 To n Print A(i); Next i Print End Sub答案：=(答案1)=6=(答案2)=5=(答案3)=17第6题 题号:32运行下面程序，单击Command1，在窗体上显示的变量A的值为_19_【1】_,变量B的值为_【2】_68_。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Int

8、eger, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function答案：=(答案1)=19=(答案2)=68第7题 题号:14执行下面的程序，单击Commandl，则窗体上第一行显示的是【8 -2】 ，第二行显示的是【6 -2】 。 Option Explicit Dim x As Integer Private Sub Command1_Click() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process(y) Print X,Y End Sub P

9、rivate Sub process(n As Integer) Dim y As Integer If n>0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub答案：=(答案1)=8 -2=(答案2)=6 -2第8题 题号:37执行下面程序，单击Command1，窗体上显示的第一行是_12345_【1】_，第二行是_123_【2】_，第四行是_【3】_ OVER_，最后一行是_【4】5_.Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = 5 Call t

10、est(n) Print nEnd SubPrivate Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n > 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print "OVER" End IfEnd Sub答案：=(答案1)=12345=(答案2)=123=(答案3)=OVER=(答案4)=5第9题 题号:38运行下列程序，单击Command1，在窗体上显示的第一行内容是【Y

11、6】,第二行的内容是Z9】,第三行的内容是【A10。（"A"的ASCII码是65，"Z"是90）Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = "B" For i = 3 To 1 Step -1 n = Asc(p) - i If n < 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st N

12、ext iEnd SubPrivate Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = sEnd Function答案：=(答案1)=Y6=(答案2)=Z9=(答案3)=A10第10题 题号:21执行下面的程序，单击Command1，输出的变量i的值是【10，变量j的值是【0变量k的值是【15 Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim

13、 k As Integer i=10 j=4 k=Funk(i,j) Print i,j,k End Sub Priate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+B B=B-2 If B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A,B) End If End Function答案：=(答案1)=10=(答案2)=0=(答案3)=15第11题 题号:31运行下面程序，如果连续三次单击命令按钮之后，数组共有_【6_个元素；数组元素A(2)的值是_5_,A(5)的值是_31_.O

14、ption ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n Print a(i); Next i PrintEnd Sub答案：=(答案1)=6=(答案2)=5=(答案3)=31第12题 题号:17执行下面的程序，单击Comm

15、and1,在窗体界面上显示的第一行是【12，第二行是【18第三行是【36 12 18 ，第四行是36 36 12 。 Option Explicit Private Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer i=1218 a=i100 b=i Mod 100 If b<>0 Then Print a Print b Print Lcd(a),(b);a;b Print Lcd(a,b);a;b End If End Sub Private Function Lcd(x As Integer,Y A

16、s Integer) As Integer Dim d As Integer If x<y then d=x:x=y:y=d End If d=x Do If x Mod y=0 Then Lcd=x Exit Do Else x=x+d End If LoopEnd Function答案：=(答案1)=12=(答案2)=18=(答案3)=36 12 18=(答案4)=36 36 12第13题 题号:13执行以下程序，单击Command1，则在Picturel上显示的第一行是【4 9 2第二行是3 5 7第三行是8 1 6 Option Explicit Private Sub Comm

17、and1_Click() Dim A(3,3) As Integer,i As Integer,j As Integer Dim k As Integer i=3:j=2:A(i,j)=1:k=1 Do Until k>9 k=k+1 If i+1>3 And j+1<=3 Then i=1:j=j+1 ElseIf i+1<=3 And j+1>3 Then i=i+1:j=1 Elself i+1>3 And j+1>3 Then i=i-1 ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>

18、0 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next iEnd Sub答案：=(答案1)=4 9 2=(答案2)=3 5 7=(答案3)=8 1 6第14题 题号:22执行下列程序，单击Command1，在窗体上显示的第一行内容是5 15第二行的内容是2 35，第三行的内容是-1 56。Option ExplicitPrivate Sub Command1_Click Dim n As Integ

19、er ,i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i,n) Print i,n Next i End SubPrivate Sub sub2(x As Integer,y As Integer) Static n As Integer Dim i As Integer For i =2 To 1 Step -1 n =n+x x =x-1 Next i y=y+nEnd Sub答案：=(答案1)=5 15=(答案2)=2 35=(答案3)=-1 56第15题 题号:20执行下列的程序，单击Command1，在窗体上显示的变量b的值为-1，变

20、量c的值为1，变量z的值为4。 Private Sub Command1_Click() Dim b As Integer,c As Integer,z As Integer b=2 c=1 z=fun(b,fun(b+1,c)+b-c+1 Print b,c,z End Sub Private Function fun(x As Integer,ByVal y As Integer) As Integer x=x-y y=x+y+2 fun=y-x End Function答案：=(答案1)=-1=(答案2)=1=(答案3)=4第16题 题号:25执行下面程序，单击Command1,窗体上显

21、示的第一行是_3 6,第二行是_4 7_,第四行是_5 8 11_. Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) Print a,b Next i Print a,b,i End Sub Private Sub sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub答案：=(答案

22、1)=3 6=(答案2)=4 7=(答案3)=5 8 11第17题 题号:19执行下面程序，单击Command1，窗体上显示的第一行是D H L，第二行是N R V，第三行是X B F。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integer k=1 For i=1 To 3 For j=1 To 3 sa(i,j)=Chr(Asc("A")+(k+i+j) Mod 26) Print sa(

23、i,j);" " k=k+3 Next j Print Next iEnd Sub答案：=(答案1)=D H L=(答案2)=N R V=(答案3)=X B F第18题 题号:23执行下面程序，单击Command1,则数组元素a(1,2)的数值是_2_,a(3,3)的数值是_7_,图片框中最后一行显示的是_16 15 14 13_. Option Explicit Private Sub Command1_Click() Dim a(4,4) as Integer, i as Integer, j as Integer Dim k As Integer, num as In

24、teger num=0 For k=1 To 4 For i=1 To k-1 num=num+1 a(i,k)=num next i For j=k To 1 Step -1 num=num+1 a(k,j)=num next j next k For i=1 To 4 For j=1 To 4 Picture1.Print Right(" " & a(i,j),3); Next j Picture1.Print Next i End Sub答案：=(答案1)=2=(答案2)=7=(答案3)=16 15 14 13第19题 题号:29执行下面程序，单击Comman

25、d1，则图片框中显示的第一行是_2 1 0，显示的第二行是_1 0 1_，最后一行显示的是_0 1 2_.Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step -1 If i >= j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step -1 Picture1.Pri

26、nt a(i, j); Next j Picture1.Print Next iEnd Sub答案：=(答案1)=2 1 0=(答案2)=1 0 1=(答案3)=0 1 2第20题 题号:12执行下面程序，单击Command1，则窗体上显示的第一行是DENN第二行是TUDD第三行是MSTT Option Explicit Private Sub Command1_Click() Dim a As String,i As Integer Dim x As String,z As String a="iamstudent" i=InStr(5,a,"d")

27、Do x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub答案：=(答案1)=DENN=(答案2)=TUDD=(答案3)=MSTT二、单项选择 共50题第1题 题号:44以下有关对象属性的说法中,错误的是_D_.A:A. 工具箱中的控件并不是VB中所有的控件B:B. 若将Frame的Enabled属性设置为False,则不能使用放置在Frame里面的控件C:C. 对象的Name属性在运行时不能改变D:D. 对象的所有属性都可以在属性窗口中设置答案：D第2题 题号:3数学表达式(如图所示

28、)的VB算术表达式为_B_ .A:A.Sin(27)+Sqr(x+Exp3)/(x+y)B:B.Sin(27*3.14159/180)+Sqr(x+Exp(3)/Abs(x+y)C:C.Sin(27*3.14159/180)+Sqr(x+e3)/Abs(x+y)D:D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)答案：B第3题 题号:17下列有关对象的叙述中,正确的是_A_A:A. 对象由属性,事件和方法构成B:B. 对象的所有属性既可以在属性窗口设置,又可以在程序运行时用赋值语句设置C:C. 对象的事件一定就是由VB预先设置好的人工干预的动作D:D. 对象的方法是

29、对象响应某个事件后执行的一段程序代码答案：A第4题 题号:46表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是D_.A:A. 1B:B.-1C:C. 2D:D. 3答案：D第5题 题号:32下列关于菜单的说法中,错误的是_C_.A:A.每一个菜单项就是一个对象,并且可设置自己的属性和事件B:B.菜单项不可以响应DblClick事件C:C.VB6.0允许创建超过四级的子菜单D:D.程序执行时,如果要求菜单项是灰色,不能被用户选择,则应设置菜单项的Enabled属性为False答案：C第6题 题号:42.以下关于

30、数组的说法中,错误的是_C_.A:A. 使用了Preserve 子句的Redim语句,只允许改变数组最后一维的上界B:B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型C:C. Erase语句的功能只是对固定大小的数组进行初始化D:D. Lbound函数返回值是指定数组某一维的下界答案：C第7题 题号:8设a=3,b=2,c=1,运行print a>b>c的结果是_B_.A:A.TrueB:B.FalseC:C.1D:D.出错答案：B第8题 题号:4以下说法不正确的是_C_.A:A.使用不带关键字Preserve的ReDim语句可以重新定义数组的维数B:B.

31、使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界C:C.使用不带关键字Preserve的ReDim语句可以改变数组的数据类型D:D.使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化答案：C第9题 题号:37在列表框List1中有若干列表项,可以删除选定列表项的语句是D_.A:A.List1.text=""B:B.List1.List(List1.ListIndex)=""D:D.List1.RemoveItem List1.ListIndex答案：D第10题 题号:41数学表达式（如图所示）对应的VB

32、表达式是_B_.A:A. (e(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2)B:B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)C:C. (Exp(2*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)D:D. e(2*3.14159*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sing(x)-Cos(x2)答案：B第11题 题号:14以下有关数组参数的说明中,正确的是_B_A:A. 在过程中也可用Dim语句对形参数组进行说明B:B. 动态

33、数组作为实参时,可用ReDim语句在过程中改变对应形参数组的维界C:C. 调用过程时,数组名不能作为实参D:D. 数组可以按地址传递也可以按植传递答案：B第12题 题号:43下列有关过程的说法中,错误的是_B_.A:A. 在Sub或 Function过程内部不能再定义其它Sub或 Function 过程B:B. 对于使用ByRef说明的形参,在过程调用时形参和实参只能按传址方式结合C:C. 递归过程既可以是递归Function过程,也可以是递归Sub过程D:D. 可以像调用Sub过程一样使用Call语句调用Function过程答案：B第13题 题号:49要将焦点设置在某个控件上,以下四个选项中

34、正确的是_D_.A:A. 只能使用鼠标直接点击控件B:B. 只能使用Tab键将焦点移到该控件C:C. 只能在程序中调用该控件的SetFocus方法D:D. A、B、C三选项中涉及的方法均可使用答案：D第14题 题号:55以下Case语句中,能正确描述Y的绝对值大于6的是_D_.A:A. Case Abs(Y)>6B:B. Case -6 To 6C:C. Case Not(-6 To 6)D:D. Case Is<-6,Is>6答案：D第15题 题号:45以下关于变量作用域的叙述中,正确的是_C_.A:A. 窗体中凡用Private声明的变量只能在某个指定的过程中使用B:B.

35、 模块级变量只能用Dim语句声明C:C. 凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量D:D. 当不同作用域的同名变量发生冲突时,优先访问局限性小的变量答案：C第16题 题号:16以下关于数值常量的说法中,错误的是_C_A:A. 八进制数的表示方法是在数字前面加&OB:B. 十六进制数的表示方法是在数字前面加&HC:C. 在浮点运算中使用D来分隔尾数和指数时,系统将把该数值作为单精度型数处理D:D. 32768是合法的数值常量答案：C第17题 题号:27数学表达式（如图所示）对应的VB表达式是_D_.A:A. Abs(ex+Sin(30)3)Sq

36、r(x+y)B:B. Abs(Exp(x)+Sin(30)3)(Sqr(x+y)C:C. Abs(ex+Sin(30*3.14159180)3)(Sqr(x+y)D:D. Abs(Exp(x)+Sin(30*3.14159180)3)Sqr(x+y)答案：D第18题 题号:29下面的4个表达式中,有关_C_个能够对Single类型变量x(正数)的第3位小数正确地进行四舍五入计算. Format(x,#.00) Int(100*(x+0.005)/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005)/100A:A. 1个B:B. 2个C:C. 3个D:D. 4

37、个答案：C第19题 题号:26执行以下语句时,会出现错误提示的是_A_.A:A.Print"2b3 " +12.5B:B. Print"12.5"+ 12C:C. Print"12.5" & 12.5D:D. Print"2e3"+12答案：A第20题 题号:34以下Case语句含有错误的是_C_.A:A. Case 0 To 10B:B. Case Is>10C:C. Case Is>10 And Is<50D:D. Case 3,5,Is>10答案：C第21题 题号:1下列语句中

38、,正确的是_A_A:A.Textl.SetFocus答案：A第22题 题号:9下列选项中,所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_D_. Val(Right(X,1)&Left(X,1) Val(Right(Str(X),1)&Left(Str(X),1) Val(Right(CStr(X),1)&Left(CStr(X),1) Val(Mid(X,2,1)+Mid(X,1,1)A:A.B:B.C:C.D:D.答案：D第23题 题号:15以下关于子过程或函数的定义中,正确的是D_A:A. Sub f1(n As String*1

39、 )B:B. Sub f1(n As Integer)As IntegerC:C. Function f1(f1 As Integer)As IntegerD:D. Function f1(ByVal n As Integer)答案：D第24题 题号:54下列有关控件数组的说法中,错误的是_.A:A. 控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组B:B. 控件数组中的所有控件不得具有各自不同的属性设置值C:C. 控件数组中的所有控件共享同一个事件过程D:D. 控件数组中每个元素的下标由控件的Index属性指定答案：B第25题 题号:7以下对数组参数的说明中,错

40、误的是_A_ .A:A.在过程中可以用Dim语句对形参数组进行声明B:B.形参数组只能按地址传递C:C.实参为动态数组时,可用ReDim语句改变对应形参数组的维界D:D.只需把要传递的数组名作为实参,即可调用过程答案：A第26题 题号:6要向文件datal.txt添加数据,正确的文件打开命令是C_.A:A.Open"datal.txt"For Output As #1B:B.Open"datal.txt"For Input As #1C:C.Open"datal.txt"For Append As #5D:D.Open"da

41、tal.txt" For Write As #5答案：C第27题 题号:31下面有关数组处理的叙述中,正确的是_D_.A:A.在过程中使用ReDim语句可以改变动态数组数据的类型B:B.在过程中,可以使用Dim 、Private和 Static语句来定义数组C:C.用ReDim语句重新定义动态数组时,可以改变数组的大小,但不能改变数组的维数D:D.不可以用Public语句在窗体模块的通用处说明一个全局数组答案：D第28题 题号:35下面的表达式中,运算结果为True的是_B_.A:A. "abcrd" <="ABCRD"B:B. Int(

42、134.69) <=CInt(134.69)C:C. 3>2>1D:D. Mid("Visual",1,4)=Right("lausiV",4)答案：B第29题 题号:36设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其A_属性置为True,再将ScrollBar属性设置为3.A:A. MultiLineB:B. AutoSizeC:C.AlignmentD:D.RightToLeft答案：A第30题 题号:23下面有关数组的说法中,正确的是_C_A:A. 数组的维下界不可以是负数B:B. 模块通用声明处有Option Base

43、 1,则模块中数组定义语句Dim A(0 To 5)会与之冲突C:C. 模块通用声明处有Option Base 1,模块中有Dim A(0 To 5),则A数组第一维维下界为0D:D. 模块通用声明处有Option Base 1,模块中有DimA(0 To 5),则A数组第一维维下界为1答案：C第31题 题号:53下面有关数组的叙述中,不正确的是_. 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 数组作为形式参数时,传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public 说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A:A. B

44、:B. C:C. D:D. 答案：A第32题 题号:11下列关于对象SetFocus与GotFocus的描述中,正确的是_D_A:A . SetFocus是事件,GotFocus是方法B:B . Setfocus和Gotfocus都是事件C:C . Setfocus和GotFocus都是方法D:D . SetFocus是方法,GotFocus是事件答案：D第33题 题号:2创建一个名为"文件"的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入_B_.A:A.文件($F)B:B.文件(&F)C:C.文件(#F)D:D.文件(%F)答案：B第34题 题号:50在下列属性中,属于CommandButton控件、ListBox控件共有的是_B_.A:A. Caption、TextB:B. Visible、FontC:C. Caption、VisibleD:D. List、Visible答案：B第35题 题号:22下列能够正确表示条件"XY<Z"的VB逻辑表达式是_B_A:A. XY<ZB:B. X<=Y And Y<