VB期末考试题库及答案
试卷方案：201105 Visual Basic 期末考试方案
一、单项选择_共50题（选：20题*1’=20分）
第1题
以下有关对象属性的说法中，错误的是___________.
A. 工具箱中的控件并不是VB 中所有的控件
B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件
C. 对象的Name 属性在运行时不能改变
D. 对象的所有属性都可以在属性窗口中设置
第2题
数学表达式 ||27sin 3
y x e x +++
的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y)
B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)
C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y)
D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)
第3题
下列有关对象的叙述中,正确的是______
A. 对象由属性，事件和方法构成
B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置
C. 对象的事件一定就是由VB 预先设置好的人工干预的动作
D. 对象的方法是对象响应某个事件后执行的一段程序代码
第4题
表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___.
A. 1
B. -1
C. –2
D. –3
第5题
下列关于菜单的说法中,错误的是__________.
A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件
B. 菜单项不可以响应DblClick 事件
C. VB6.0允许创建超过四级的子菜单
D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题
以下关于数组的说法中,错误的是__________.
A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界
B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型
C. Erase 语句的功能只是对固定大小的数组进行初始化
D. Lbound 函数返回值是指定数组某一维的下界
第7题
设a=3,b=2,c=1,运行print a>b>c 的结果是____________.
A. True
B. False
C. 1
D. 出错
第8题
A. 使用不带关键字Preserve 的ReDim 语句可以重新定义数组的维数
B. 使用不带关键字Preserve 的ReDim 语句可以改变数组各维的上、下界
C. 使用不带关键字Preserve 的ReDim 语句可以改变数组的数据类型
D. 使用不带关键字Preserve 的ReDim 语句可以对数组中的所有元素进行初始化
第9题
在列表框List1中有若干列表项,可以删除选定列表项的语句是__________.
A. List1.text=""
B. List1.List(List1.ListIndex)=""
C. List1.Clear
D. List1.RemoveItem List1.ListIndex
第10题
数学表达式 |cos sin |)
2(sin ln 2352x x x x e x -+-π对应的VB 表达式是__________.
A. (e^(2*π*x-5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))
B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))
C. (Exp(2*π*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))
D. e^(2*3.14159*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))
第11题
以下有关数组参数的说明中，正确的是______
A. 在过程中也可用Dim 语句对形参数组进行说明
B. 动态数组作为实参时，可用ReDim 语句在过程中改变对应形参数组的维界
C. 调用过程时，数组名不能作为实参
D. 数组可以按地址传递也可以按植传递
第12题
下列有关过程的说法中,错误的是_____________.
A. 在Sub 或 Function 过程内部不能再定义其它Sub 或 Function 过程
B. 对于使用ByRef 说明的形参,在过程调用时形参和实参只能按传址方式结合
C. 递归过程既可以是递归Function 过程,也可以是递归Sub 过程
D. 可以像调用Sub 过程一样使用Call 语句调用Function 过程
第13题
要将焦点设置在某个控件上,以下四个选项中正确的是______.
A. 只能使用鼠标直接点击控件
B. 只能使用Tab 键将焦点移到该控件
C. 只能在程序中调用该控件的SetFocus 方法
D. A 、B 、C 三选项中涉及的方法均可使用
第14题
以下Case 语句中,能正确描述Y 的绝对值大于6的是______.
A. Case Abs(Y)>6
B. Case -6 To 6
C. Case Not(-6 To 6)
D. Case Is<-6,Is>6
第15题
以下关于变量作用域的叙述中,正确的是____________.
B. 模块级变量只能用Dim 语句声明
C. 凡是在窗体模块或标准模块的通用声明段用Public 语句声明的变量都是全局变量
D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量
第16题
以下关于数值常量的说法中,错误的是______
A. 八进制数的表示方法是在数字前面加&O
B. 十六进制数的表示方法是在数字前面加&H
C. 在浮点运算中使用D 来分隔尾数和指数时，系统将把该数值作为单精度型数处理
D. 32768是合法的数值常量
第17题
数学表达式 y x e x ++
30sin 3对应的VB 表达式是___________.
A. Abs(e^x+Sin(30)^3)∕Sqr(x+y))
B. Abs(Exp(x)+Sin(30)^3)∕(Sqr(x+y))
C. Abs(e^x+Sin(30*3.14159∕180)^3)∕(Sqr(x+y))
D. Abs(Exp(x)+Sin(30*3.14159∕180)^3)∕Sqr(x+y))
第18题
下面的4个表达式中,有关_________个能够对Single 类型变量x(正数)的第3位小数正确地进行四舍五入计算.
Format(x,″#.00″) Int(100*(x+0.005))/100 CInt(100*(x+0.005)/100
Fix(100*(x+0.005))/100
A. 1个
B. 2个
C. 3个
D. 4个
第19题
执行以下语句时,会出现错误提示的是__________.
A. Print"2b3 " +12.5
B. Print"12.5"+ 12
C.Print"12.5" & 12.5
D.Print"2e3"+12
第20题
以下Case 语句含有错误的是___________.
A. Case 0 To 10
B. Case Is>10
C. Case Is>10 And Is<50
D. Case 3,5,Is>10 第21题
下列语句中,正确的是__________
A. Textl.SetFocus
B. Forml.Clear
C. Labell.SetFocus
D. Listl.Cls
第22题
下列选项中,所包含的所有表达式能够将两位整数x 的个位数与十位数对调(如将78转换为87)的是_______________.
①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. ①②
B. ②③
C. ②④
D. ①③④
第23题
以下关于子过程或函数的定义中,正确的是______
A. Sub f1(n As String*1 )
B. Sub f1(n As Integer)As Integer
第24题
下列有关控件数组的说法中,错误的是______.
A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组
B. 控件数组中的所有控件不得具有各自不同的属性设置值
C. 控件数组中的所有控件共享同一个事件过程
D. 控件数组中每个元素的下标由控件的Index属性指定
第25题
以下对数组参数的说明中,错误的是___________ .
A. 在过程中可以用Dim语句对形参数组进行声明
B. 形参数组只能按地址传递
C. 实参为动态数组时，可用ReDim语句改变对应形参数组的维界
D. 只需把要传递的数组名作为实参，即可调用过程
第26题
要向文件datal.txt添加数据,正确的文件打开命令是_____________.
A. Open"datal.txt"For Output As #1
B. Open"datal.txt"For Input As #1
C. Open"datal.txt"For Append As #5
D. Open"datal.txt" For Write As #5
第27题
下面有关数组处理的叙述中，正确的是__________.
A. 在过程中使用ReDim语句可以改变动态数组数据的类型
B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组
C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数
D. 不可以用Public语句在窗体模块的通用处说明一个全局数组
第28题
下面的表达式中,运算结果为True的是__________.
A. "abcrd" <="ABCRD"
B. Int(134.69) <=CInt(134.69)
C. 3>2>1
D. Mid("Visual",1,4)=Right("lausiV",4)
第29题
设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其________属性置为True,再将ScrollBar属性设置为3.
A. MultiLine
B. AutoSize
C. Alignment
D. RightToLeft
第30题
下面有关数组的说法中,正确的是______
A. 数组的维下界不可以是负数
B. 模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突
C. 模块通用声明处有Option Base 1，模块中有Dim A(0 To 5),则A数组第一维维下界为0
D. 模块通用声明处有Option Base 1，模块中有DimA(0 To 5),则A数组第一维维下界为1
第31题
下面有关数组的叙述中,不正确的是______.
① 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量
② 数组作为形式参数时,传递的是每个数组元素的值
④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值
A. ②③
B. ①③④
C. ①②③④
D. ③④
第32题
下列关于对象SetFocus与GotFocus的描述中,正确的是_____
A. SetFocus是事件,GotFocus是方法
B. Setfocus和Gotfocus都是事件
C. Setfocus和GotFocus都是方法
D. SetFocus是方法,GotFocus是事件
第33题
创建一个名为"文件"的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入
_________.
A. 文件($F)
B. 文件(&F)
C. 文件(#F)
D. 文件(%F)
第34题
在下列属性中,属于CommandButton控件、ListBox控件共有的是______.
A. Caption、Text
B. Visible、Font
C. Caption、Visible
D. List、Visible 第35题
下列能够正确表示条件"X≤Y A. X≤Y B. X<=Y And Y C. X≤Y OR Y D. X<=Y 第36题 以下关于Function过程的说法中,错误的是___________. A. Function过程名可以有一个或多个返回值 B. 在Function过程内部不得再定义Function过程 C. Function过程中可以包含多个Exit Function语句 D. 可以像调用Sub过程一样调用Function过程 第37题 下面的关系表达式中,运算结果为True的是______. A. CInt(1.5)=Int(1.5) B. Fix(1.5)=Int(1.5) C. Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5) 第38题 已知X A. Sgn(X-Y)+Sgn(A-B)=-1 B. Sgn(X-Y)+Sgn(A-B)=-2 C. Sgn(Y-X)+Sgn(A-B)=2 D. Sgn(Y-X)+Sgn(A-B)=0 第39题 执行__________语句时,会出现出错提示信息. A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2 D. Print "14"+32 第40题 数学表达式 y x e y x + ++ +π2log 30 sin 对应的Visual Basic表达式是______. A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B. (Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y)) C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y)) 第41题 在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________. A. Form2.Unload B. Unload Form2 C. Form2.End D. Form2.Hide 第42题 Print 方法可在______上输出数据. ①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A. ①③⑥ B. ②③⑤ C. ①②⑤ D. ③④⑥ 第43题 若要使逻辑表达式x>y Xor y A. x=3、y=3、z=4 B. x=2、y=1、z=2 C. x=1、y=3、z=2 D. x=2、y=2、z=2 第44题 下列____________是合法的变量名. A. abs B. –al C. cdc d D. Abe_10 第45题 下列______是正确的VB 常量. A. D-6 B. E-6 C. 5D D. 5E-6 第46题 若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun.调用函数Fun 的过程中定义了I 、J 和K 三个Integer 型变量,则下列语句中不能正确调用函数Fun 的语句是 ___________. A. Fun 3.14,J B. Call Fun(I,365) C. Fun(I),(J) D. K=Fun("24","35") 第47题 若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开. ①TextBox ②PictureBox ③ Image ④ Frame A. ①或② B. ②或③ C. ②或④ D. ③或④ 第48题 以下关于文件的叙述中，错误的是__________。 A. 用Output 模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中 C. 若以Output 、Append 、Random 、Binary 方式打开一个不存在的文件，系统会出错 D. 顺序文件或随机文件都可以用二进制访问模式打开 第49题 窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click 事件过程,需要将该按钮的_________属性设置为True. A. Enabled B. Default C. Cancel D. Visible 第50题 数学表达式 5)ln (29cos 5++-y e x x 对应的VB 表达式是______ B. (x^5-Cos(29))/(Sqr(Exp(x)+Log(y))+5) C. (x^5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5) D. (x^5-Cos(29*3.14159/180))/(Sqr(e^x+Log(y))+5 二、填空_共20题（选：15空*2’=30分）——阅读理解：填写程序的输出结果 第1题 运行下列程序，单击Command1, 在窗体上显示的第一行内容是______【1】____, 第二行的内容是_____【2】____, 第三行的内容是_____【3】______。 Option Explicit Private Sub Command1_Click() Dim s As String s="Basic" Call trans(s) End Sub Private Sub trans(s As String) Dim 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 第2题 执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。 Option Explicit Private Sub Command1＿Click() 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 Loop End Sub 第3题 执行下面的程序，单击Command1,窗体上显示的第一行是______【1】_____，第二行是______【2】____,第 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End Sub Private 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 第4题 运行下面的程序，单击Command1,在窗体上显示的变量a的值为____【1】______，变量b的值为_____【2】____,变量c的值为_____【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+y End Function 第5题 执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有【1】个元素；数组元素A(2)的值【2】，A(4)的值是【3】。 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 Next i For i=1 To n Print A(i); Next i Print End Sub 第6题 运行下面程序，单击Command1，在窗体上显示的变量A的值为___【1】____,变量B的值为____【2】______。Option Explicit Dim a As Integer Private Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, b End Sub Private Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + a End Function 第7题 执行下面的程序，单击Commandl，则窗体上第一行显示的是【1】，第二行显示的是【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 Private 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 执行下面程序，单击Command1，窗体上显示的第一行是__【1】___，第二行是___【2】___，第四行是___【3】_______，最后一行是___【4】_____. Option Explicit Private Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print n End Sub Private 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 If End Sub 第9题 运行下列程序，单击Command1，在窗体上显示的第一行内容是【1】 ,第二行的内容是【2】 ,第三行的内容是【3】。（"A"的ASCII码是65，"Z"是90） Option Explicit Private 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 Next i End Sub Private Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = s End Function 执行下面的程序，单击Command1，输出的变量i的值是【1】，变量j的值是【2】，变量k的值是【3】。 Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim 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 第11题 运行下面程序，如果连续三次单击命令按钮之后，Ａ数组共有___【1】___个元素；数组元素A(2)的值是__【2】____,A(5)的值是__【3】______. 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 For i = 1 To n Print a(i); Next i Print End Sub 第12题 执行下面的程序，单击Command1,在窗体界面上显示的第一行是【1】，第二行是【2】，第三行是【3】，第四行是【4】。 Option Explicit Dim a As Integer,b As Integer,i As Integer i=1218 a=i\100 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 As Integer) As Integer Dim d As Integer If x 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 Loop End Function 第13题 执行以下程序，单击Command1，则在Picturel上显示的第一行是【1】，第二行是【2】，第三行是【3】。 Option Explicit Private Sub Command1_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)<>0 Then i=i-1 Else 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 i End Sub 第14题 执行下列程序，单击Command1，在窗体上显示的第一行内容是＿＿【1】＿＿，第二行的内容是＿＿【2】＿＿，第三行的内容是＿【3】＿＿＿。 Option Explicit Private Sub Command1_Click Dim n As Integer ,i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i,n) Print i,n Next i End Sub Private 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+n End Sub 第15题 执行下列的程序，单击Command1，在窗体上显示的变量b的值为＿＿【1】＿＿，变量c的值为＿＿＿【2】＿，变量z的值为＿＿【3】＿＿。 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 第16题 执行下面程序，单击Command1,窗体上显示的第一行是____【1】____,第二行是_____【2】____,第四行是__【3】______. 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 第17题 执行下面程序，单击Command1，窗体上显示的第一行是＿＿【1】＿＿，第二行是＿＿【2】＿＿，第三行是＿【3】＿＿＿。 Option Explicit Option Base 1 Private 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(i,j);" "; k=k+3 Next j Print Next i End Sub 第18题 执行下面程序，单击Command1,则数组元素a(1,2)的数值是____【1】_____,a(3,3)的数值是____【2】______,图片框中最后一行显示的是____【3】_____. Option Explicit Private Sub Command1_Click() Dim a(4,4) as Integer, i as Integer, j as Integer Dim k As Integer, num as Integer num=0 For k=1 To 4 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 第19题 执行下面程序，单击Command1，则图片框中显示的第一行是___【1】___，显示的第二行是_____【2】___，最后一行显示的是___【3】_____. 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.Print a(i, j); Next j Picture1.Print Next i End Sub 第20题 执行下面程序，单击Command1，则窗体上显示的第一行是【1】，第二行是【2】，第三行是【3】。 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") x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub 三、程序填空_共16题（选：10空*2’=20分）——完形填空：把题目中空的程序代码行补齐第1题 '本程序的功能是把由４个"."分隔的十进制数表示的IP地址转换为由32位二进制数组成 '的IP地址。例如十进制表示的IP地址为202.119.191.1,其中每个十进制数对应一个8位'的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。'过程Tiqu用于提取十进制IP地址中每个用"."分隔的十进制数； '过程Convert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim str1 As String, str2 As String Dim a(4) As Integer, i As Integer str1 = Text1.Text Call Tiqu(str1, a) For i = 1 To 4 If a(i) < 0 Or a(i) > 255 Then MsgBox("IP地址错误！") Exit Sub Else '**********SPACE********** 【?】 End If Next i Text2.Text = str2 End Sub Private Sub Tiqu(st As String, a() As Integer) Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integer n = Len(st): k = 0: s = "" For i = 1 To n '**********SPACE********** 【?】 If d = "." Then k = k + 1 a(k) = Val(s) '**********SPACE********** 【?】 Else s = s & d End If a(4) = s End Sub Private Function convert(ByVal n As Integer) As String Dim b As Integer, i As Integer, s As String Do While n > 0 b = n Mod 2 n = n \ 2 '**********SPACE********** 【?】 Loop For i = 1 To 8 - Len(s) s = "0" & s Next i '**********SPACE********** 【?】 End Function 第2题 '下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。 '具体做法是：变量Left指向要被处理的数（从第2个元素开始）， 'Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同， '就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1； '否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。'Right的值即为不同的数的个数。程序界面参见下图所示。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A() As Integer, N As Integer, I As Integer Dim OP As Integer N = InputBox("请输入数据个数", , 10) ReDim A(N) Randomize For I = 1 To N A(I) = Int(Rnd * 10) + 1 Text1 = Text1 & A(I) & " " Next I Call statistic(A, OP) Text2 = "有 " & OP & " 个不同的数: " For I = 1 To OP Text2 = Text2 & A(I) & " " Next I End Sub Private Sub statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer '**********SPACE********** Right=【?】 Do While Left <= Right '**********SPACE********** K= 【?】 For I = K To 1 Step -1 If A(Left) = A(I) Then Exit For Next I '**********SPACE********** If 【?】 Then Left = Left + 1 Else A(Left) = A(Right) '**********SPACE********** 【?】 End If Loop End Sub 第3题 '下面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示。Option Explicit Private Sub Command1_Click() Dim p() As Integer,i As Integer,n As Integer Dim st As String,k As Integer Randomize k =InputBox("元素个数；",,20) ReDim p(k) Do n =Int(Rnd*90)+10 '**********SPACE********** If 【?】 Then i =i+1 p(i) =n End If '**********SPACE********** Loop Until【?】 For i =1 To UBound(p) st =st & Str(p(i)) If i Mod 10 =0 Then st =st & vbCrLf Next i Text1 =st End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer Prime =True For i =2 To Sqr(n) If n Mod i =0 Then 【?】 Exit For End If Next i End Function 第4题 '用以下公式求f(x) 的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。 '程序界面和公式参考图片所示： Option Explicit Private Sub Command1_Click() Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = Text1 '**********SPACE********** If 【?】Then MsgBox ("x必须在-1～1之间") Exit Sub End If fx = a1 * x - a2 * x * x t = (-1) * x * x Do a = 1 / (a1 + a2) t = (-1) * t * x '**********SPACE********** fx = 【?】 a1 = a2 '**********SPACE********** 【?】 Loop Until Abs(a * t) < 0.0000001 Text2 = fx End Sub 第5题 '下面程序的功能是：首先生成一个由小到大已排好 序的整数数组，再输入一个数据， '单击"插入"按钮会自动把这个数据插人到原数组 适当的位置，并保持数组的有序性。 '程序界面参见下图。 Dim a( ) As Integer Private Sub Form_Activate() '生成有序数组 Dim i As Integer ReDim a(10) For i=1 To 10 a(i)=(i-1)*10+1 Text1=Text1 & Str(a(i)) Next i Text2.SetFocus End Sub Private Sub Command1_Click() Dim n As Integer,i As Integer n=Text2 For i=1 To UBound(a) '**********SPACE********** If 【?】Then Exit For '确定插入的位置 Next i '**********SPACE********** 【?】 For i=1 To UBound(a) Text3=Text3 & Str(a(i)) Next i End Sub Private Sub inst(P() As Integer,n As Integer,k As Integer) '数组元素移位并实现插入 Dim i As Integer '**********SPACE********** 【?】 For i=UBound(P)-1 To k Step -1 '**********SPACE********** 【?】 Next i P(k)=n End Sub 第6题 '下面程序的功能是：将输入的2位16进制数的每一位转换为一个4位的二进制数， '再组合成为一个8位的二进制数。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim h As String, h1 As String * 1,h2 As String * 1 h=Text1 h1=Left(h,1): h2=Right(h,1) Text2=h2b(h1) & h2b(h2) End Sub Private Function h2b(p As String) As String Dim st As String, i As Integer 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/3b16892052.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容, 大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10) 九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。（√） 2、Print_Text 是一个不合法的变量名。（×） 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√） 4、设置字体大小应使用Font属性（×） 5、Sub过程可以实现嵌套调用（√） 6、IIF函数中的三个参数都不能省略。（√） 7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√） 8、当终值小于初值时，步长为负数。（√） 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（√） 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1．Print Format（123，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为 A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误 VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。 2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b 20**-20**学年VB期末考试试题A 一、填空题 1、VB程序设计的主要特点 是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13 VB期末考试试题及答案 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 VB 期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A 属性、控件和方法 B 属性、事件和方法 C 窗体、控件和过程 D 控件、过程和模块 2.所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3.下列叙述中错误的是（ A ） A工程文件扩展名是 .vbgB 标准模块文件的扩展名是 .basC窗体模块的扩展 名是 .frmD 类模块的扩展名是 .cls 4.当要编写一个新的 Visual Basic程序时，所做的第一件事是（ A ）A xx 一个工程 B 编写代码 C 设置属性 D 添加 Active X控件 5.下面控件中，没有caption 属性的是（ B ） A框架B组合框 C 命令按钮 D 复选按钮 6.在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（B）A MultiLine B PasswordChar C Text D selText 7.若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8.下列关于过程叙述不正确的是（ D ） A过程的传值调用是将实参的具体值传值传递给形参 B过程的传址调用是将实参在内存的地址传递给形参 C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D无论过程传值调用还是传地址调用，参数传递都是双向的 9.某人创建 1 个工程，其中的窗体名为Form1，之后又添加了 1 个名为Form2 的窗体，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作 是（ C ）A 在 Form1 的 Load 事件过程中加入语句Load Form2 B 在 Form2 的 Load 事件过程中加入语句Form2.Show C在“过程属性”对话框中把“启动对象”设置为 Form2 D在 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex属性设置为 2 10.以下关于文件的叙述中，正确的是（ B ） A 以 Output 方式打开一个不存在的文件时，系统将显示出错信息 B 以Append 方式打开的文件，既可以进行读操作，也可以进行写操作 C 在随机文件在，每个记录的长度是固定的 D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相 同的 11.设 a=6，b=8，c=10则函数 IIf(a VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 1 、菜单控件只包括一个事件，即C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B 、Load C 、Click D 、KeyDown 2、滚动条控件（如图所示）的Max 属性所设置的是A 。 A 、滚动框处于最右位置时，一个滚动条位置的Value 属性最大设置值 B 、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D 、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B 、Name C、Text D、Label 6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B 、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click（） Print "VB"; Print "Hello! "; Print "VB" 大学 VB 考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B 、程序开发环境 C、事件驱动编程机制 D 、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、 "12334" B 、 123 C、 12334 D 、 157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B 、窗体文件和工程文件 C、窗体文件和标准模块文件 D 、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、 ="VisualBasic窗体" B、 ="VisualBasic窗体" C、 ="VisualBasic窗体" D、 ="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm ） B、只装入工程文件（.vbp ） C、分别装入工程文件和标准模块文件（.bas ） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B 、不相同C、两可 D 、都不对 7、下面正确的赋值语句是（C）。 A、 x+y=30 B 、y=π*r*r C 、y=x+30 D、 3y=x 8、 VisualBasic集成环境的主窗口中不包括（C）。 A、标题栏 B 、菜单栏 C 、状态栏 D 、工具栏 9、以下叙述中错误的是(C) 。 A、 Visual Basic是事件驱动型可视化编程工具 B、 Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic 工具箱中的所有控件都具有宽度（Width ）和高度（ Height ）属性 ( 计时器 ) D、 Visual Basic中控件的某些属性只能在运行时设置 10、要使 Print方法在Form_Load事件中起作用，要对窗体的(C) 属性进行设置。 A、 Backcolor B、ForeColor C、 AutoRedraw D、 BackStyle 11、若要使命令按钮不可操作，要对(A) 属性进行设制。 A、 Enabled B、 Visible C、 BackColor D 、 Caption 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k 大学vb课程题库全集 vb单选、操作部分 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID(\执行后，a变量中的值是（C）。 A、\ B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示\窗体\的语句是（C）。 A、https://www.wendangku.net/doc/3b16892052.html,=\窗体\B、Form1.Title=\窗体\C、Form1.Caption=\窗体\D、Form1.Text=\窗体\ 5、为了装入一个Visual Basic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、Visual Basic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题VB期末考试试题及答案
大学VB考试题库
vb期末考试试题
大一VB期末考试试卷及答案
九江学院VB期末考试题目及详细答案
大学VB期末考试试题
vb期末考试试题
【期末复习】计算机VB期末考试试题及答案
VB期末考试试题及答案 (1)
VB期末考试试题及答案
VB期末考试试题
VB期末考试试卷及答案.doc
大学VB期末考试试题
大学VB考试卷试题库题集.doc
VB期末试卷(A卷带答案)
大学vb课程题库全集
VB期末考试题库及答案