VB期末考试题库有答案
试卷方案：201105 Visual Basic 期末考试方案
题型：5种
1.单选题（20题*1=20分）
2.程序运行结果填空题（15空*2=30分）
3.完善程序填空题（10空*2=20分）
4.改错题（3错*4=12分）
5.编程题（共2题，1题为8分，另一题10分=18分）
一、单项选择 共50题
第1题 题号:44
以下有关对象属性的说法中，错误的是__D______.
A. 工具箱中的控件并不是VB 中所有的控件
B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件
C. 对象的Name 属性在运行时不能改变
D. 对象的所有属性都可以在属性窗口中设置
答案：D
第2题 题号:3
数学表达式 ||27sin 3
y x e x +++
的VB 算术表达式为__B_____ . 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)
答案：B
第3题 题号:17
下列有关对象的叙述中,正确的是______
A. 对象由属性，事件和方法构成
B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置
C. 对象的事件一定就是由VB 预先设置好的人工干预的动作
D. 对象的方法是对象响应某个事件后执行的一段程序代码
答案：A
第4题 题号:46
表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是_D__.
A. 1
B. -1
C. –2
D. –3
答案：D
第5题 题号:32
下列关于菜单的说法中,错误的是__________.
A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件
B. 菜单项不可以响应DblClick 事件
C. VB6.0允许创建超过四级的子菜单
D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 答案：C
第6题 题号:42
以下关于数组的说法中,错误的是____C______.
A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界
B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型
C. Erase 语句的功能只是对固定大小的数组进行初始化
D. Lbound 函数返回值是指定数组某一维的下界
答案：C
第7题 题号:8
设a=3,b=2,c=1,运行print a>b>c 的结果是____B________.
A. True
B. False
C. 1
D. 出错
答案：B
第8题 题号:4
以下说法不正确的是_______C_____.
A. 使用不带关键字Preserve 的ReDim 语句可以重新定义数组的维数
B. 使用不带关键字Preserve 的ReDim 语句可以改变数组各维的上、下界
C. 使用不带关键字Preserve 的ReDim 语句可以改变数组的数据类型
D. 使用不带关键字Preserve 的ReDim 语句可以对数组中的所有元素进行初始化
答案：C
第9题 题号:37
在列表框List1中有若干列表项,可以删除选定列表项的语句是___D_______.
A. List1.text=""
B. List1.List(List1.ListIndex)=""
C. list1.Clear
D. List1.RemoveItem List1.ListIndex
答案：D
第10题 题号:41
数学表达式 |cos sin |)
2(sin ln 2352x x x x e x -+-π对应的VB 表达式是__B________.
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(Sing(x)-Cos(x^2))
答案：B
第11题 题号:14
以下有关数组参数的说明中，正确的是___B___
A. 在过程中也可用Dim 语句对形参数组进行说明
B. 动态数组作为实参时，可用ReDim 语句在过程中改变对应形参数组的维界
C. 调用过程时，数组名不能作为实参
D. 数组可以按地址传递也可以按植传递
答案：B
第12题 题号:43
下列有关过程的说法中,错误的是________D_____.
A. 在Sub 或 Function 过程内部不能再定义其它Sub 或 Function 过程
B. 对于使用ByRef 说明的形参,在过程调用时形参和实参只能按传址方式结合
C. 递归过程既可以是递归Function 过程,也可以是递归Sub 过程
D. 可以像调用Sub 过程一样使用Call 语句调用Function 过程
答案：B
第13题 题号:49
要将焦点设置在某个控件上,以下四个选项中正确的是_D_____.
A. 只能使用鼠标直接点击控件
B. 只能使用Tab 键将焦点移到该控件
C. 只能在程序中调用该控件的SetFocus 方法
D. A 、B 、C 三选项中涉及的方法均可使用
答案：D
第14题 题号:55
以下Case 语句中,能正确描述Y 的绝对值大于6的是__D____.
A. Case Abs(Y)>6
B. Case -6 To 6
C. Case Not(-6 To 6)
D. Case Is<-6,Is>6
答案：D
第15题 题号:45
以下关于变量作用域的叙述中,正确的是_______C_____.
A. 窗体中凡用Private 声明的变量只能在某个指定的过程中使用
B. 模块级变量只能用Dim 语句声明
C. 凡是在窗体模块或标准模块的通用声明段用Public 语句声明的变量都是全局变量
D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量
答案：C
第16题 题号:16
以下关于数值常量的说法中,错误的是___C___
A. 八进制数的表示方法是在数字前面加&O
B. 十六进制数的表示方法是在数字前面加&H
C. 在浮点运算中使用D 来分隔尾数和指数时，系统将把该数值作为单/SHUANG 精度型数处理
D. 32768是合法的数值常量
答案：C
第17题 题号:27
数学表达式 y x e x ++
30sin 3对应的VB 表达式是_D__________.
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))
答案：D
下面的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))/100
A. 1个
B. 2个
C. 3个
D. 4个
答案：C
第19题题号:26
执行以下语句时,会出现错误提示的是__A_______.
A. Print"2b3 " +12.5
B. Print"12.5"+ 12
C.Print"12.5" & 12.5
D.Print"2e3"+12
答案：A
第20题题号:34
以下Case语句含有错误的是_____C______.
A. Case 0 To 10
B. Case Is>10
C. Case Is>10 And Is<50
D. Case 3,5,Is>10 答案：C
第21题题号:1
下列语句中,正确的是___A_______
A. Textl.SetFocus
B. Forml.Clear
C. Labell.SetFocus
D. Listl.Cls
答案：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. ①②
B. ②③
C. ②④
D. ①③④
答案：D
第23题题号:15
以下关于子过程或函数的定义中,正确的是______
A. Sub f1(n As String*1 )
B. Sub f1(n As Integer)As Integer
C. Function f1(f1 As Integer)As Integer
D. Function f1(ByVal n As Integer)
答案：D
第24题题号:54
下列有关控件数组的说法中,错误的是_B_____.
A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组
B. 控件数组中的所有控件不得具有各自不同的属性设置值
C. 控件数组中的所有控件共享同一个事件过程
D. 控件数组中每个元素的下标由控件的Index属性指定
答案：B
以下对数组参数的说明中,错误的是___________ .
A. 在过程中可以用Dim语句对形参数组进行声明
B. 形参数组只能按地址传递
C. 实参为动态数组时，可用ReDim语句改变对应形参数组的维界
D. 只需把要传递的数组名作为实参，即可调用过程
答案：A
第26题题号:6
要向文件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
答案：C
第27题题号:31
下面有关数组处理的叙述中，正确的是__D________.
A. 在过程中使用ReDim语句可以改变动态数组数据的类型
B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组
C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数
D. 不可以用Public语句在窗体模块的通用处说明一个全局数组
答案：D
第28题题号:35
下面的表达式中,运算结果为True的是___B_______.
A. "abcrd" <="ABCRD"
B. Int(134.69) <=CInt(134.69)
C. 3>2>1
D. Mid("Visual",1,4)=Right("lausiV",4)
答案：B
第29题题号:36
设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其___A_____属性置为True,再将ScrollBar属性设置为3.
A. MultiLine
B. AutoSize
C. Alignment
D. RightToLeft
答案：A
第30题题号:23
下面有关数组的说法中,正确的是___C___
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
答案：C
第31题题号:53
下面有关数组的叙述中,不正确的是___A___.
① 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量
② 数组作为形式参数时,传递的是每个数组元素的值
③ 在窗体模块的通用声明处可以用Public 说明一个全局数组
④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值
A. ②③
B. ①③④
C. ①②③④
D. ③④
答案：A
第32题题号:11
下列关于对象SetFocus与GotFocus的描述中,正确的是__D___
A. SetFocus是事件,GotFocus是方法
B. Setfocus和Gotfocus都是事件
C. Setfocus和GotFocus都是方法
D. SetFocus是方法,GotFocus是事件
答案：D
第33题题号:2
创建一个名为"文件"的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入___B______.
A. 文件($F)
B. 文件(&F)
C. 文件(#F)
D. 文件(%F)
答案：B
第34题题号:50
在下列属性中,属于CommandButton控件、ListBox控件共有的是_B_____.
A. Caption、Text
B. Visible、Font
C. Caption、Visible
D. List、Visible
答案：B
第35题题号:22
下列能够正确表示条件"X≤Y A. X≤Y B. X<=Y And Y C. X≤Y OR Y D. X<=Y 答案：B 第36题题号:33 以下关于Function过程的说法中,错误的是__A_________. A. Function过程名可以有一个或多个返回值 B. 在Function过程内部不得再定义Function过程 C. Function过程中可以包含多个Exit Function语句 D. 可以像调用Sub过程一样调用Function过程 答案：A 第37题题号:52 下面的关系表达式中,运算结果为True的是____B__. 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) 答案：B 第38题题号:21 已知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 答案：C 第39题题号:38 执行____B______语句时,会出现出错提示信息. A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2 D. Print "14"+32 答案：B 第40题题号:51 数学表达式 y x e y x + ++ +π2log 30 sin 对应的Visual Basic表达式是_D_____. 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)) D. (Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y)) 答案：D 第41题题号:48 在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是____B____. A. Form2.Unload B. Unload Form2 C. Form2.End D. Form2.Hide 答案：B 第42题题号:12 Print方法可在_A_____上输出数据. ①窗体②文本框③图片框④标签⑤列表框⑥立即窗口 A. ①③⑥ B. ②③⑤ C. ①②⑤ D. ③④⑥ 答案：A 第43题题号:47 若要使逻辑表达式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 答案：A 第44题题号:5 下列____D________是合法的变量名. A. abs B. –al C. cdc d D. Abe_10 答案：D 第45题题号:10 下列___D___是正确的VB常量. A. D-6 B. E-6 C. 5D D. 5E-6 答案：D 第46题题号:56 若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun.调用函数Fun 的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是____B_______. A. Fun 3.14,J B. Call Fun(I,365) C. Fun(I),(J) D. K=Fun("24","35") 答案：B 第47题题号:57 若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用_C_____控件做容器将它们分开. ①TextBox ②PictureBox ③ Image ④ Frame A. ①或② B. ②或③ C. ②或④ D. ③或④ 答案：C 第48题 题号:58 以下关于文件的叙述中，错误的是__________。 A. 用Output 模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中 C. 若以Output 、Append 、Random 、Binary 方式打开一个不存在的文件，系统会出错 D. 顺序文件或随机文件都可以用二进制访问模式打开 答案：C 第49题 题号:24 窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click 事件过程,需要将该按钮的_________属性设置为True. A. Enabled B. Default C. Cancel D. Visible 答案：B 第50题 题号:13 数学表达式 5)ln (29cos 5++-y e x x 对应的VB 表达式是_C_____ A. (x^5-Cos(29))/Sqr(e^x+In(y))+5 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 答案：C 二、填空 共20题 第1题 题号:28 运行下列程序，单击Command1, 在窗体上显示的第一行内容是______icBa____, 第二行的内容是 ____baicBa____, 第三行的内容是____baba______。 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 答案： =======(答案1)======= icBa =======(答案2)======= baicBa =======(答案3)======= baba 第2题题号:18 执行下面程序，单击Command1，则窗体上显示的第一行是＿9 12＿＿＿，第三行是＿＿3 -3＿＿，最后一行是＿＿0 -6＿＿。 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 答案： =======(答案1)======= 9 12 =======(答案2)======= 3 -3 =======(答案3)======= 0 -6 第3题题号:27 执行下面的程序，单击Command1,窗体上显示的第一行是_____2 3_____，第二行是_____5 8____,第四行是____34 55_____。 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 答案： =======(答案1)======= 2 3 =======(答案2)======= 5 8 =======(答案3)======= 34 55 第4题题号:26 运行下面的程序，单击Command1,在窗体上显示的变量a的值为___30_____，变量b的值为_____30____,变量c 的值为____15______。 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 答案： =======(答案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 For i=1 To n Print A(i); Next i Print End Sub 答案： =======(答案1)======= 6 =======(答案2)======= 5 =======(答案3)======= 17 第6题题号:32 运行下面程序，单击Command1，在窗体上显示的变量A的值为___19____,变量B的值为___68______。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 27 +19+19+ 3 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 答案： =======(答案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 Private Sub process(n As Integer) Dim y As Integer If n>0 Then x=x-n y=x 此时的Y是过程中的变量 Else x=x+n y=x+2 End If n=-n End Sub 答案： =======(答案1)======= 8 -2 =======(答案2)======= 6 -2 第8题题号:37 执行下面程序，单击Command1，窗体上显示的第一行是__12345___，第二行是___123___，第四行是___OVER_______，最后一行是__5_____. 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 =======(答案1)======= 12345 =======(答案2)======= 123 =======(答案3)======= OVER =======(答案4)======= 5 第9题题号:38 运行下列程序，单击Command1，在窗体上显示的第一行内容是Y6,第二行的内容是Z9,第三行的内容是A10。（"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 答案： =======(答案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 k As Integer 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)======= =======(答案3)======= 15 第11题题号:31 运行下面程序，如果连续三次单击命令按钮之后，Ａ数组共有__6___个元素；数组元素A(2)的值是5__,A(5)的值是_31______. 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 答案： =======(答案1)======= 6 =======(答案2)======= 5 =======(答案3)======= 31 第12题题号:17 执行下面的程序，单击Command1,在窗体界面上显示的第一行是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=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 答案： =======(答案1)======= 12 =======(答案2)======= 18 =======(答案3)======= 36 12 18 =======(答案4)======= 36 36 12 第13题题号: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 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 4 9 2 3 5 7 Next I 8 1 6 End Sub =======(答案1)======= 4 9 2 =======(答案2)======= 3 5 7 =======(答案3)======= 8 1 6 第14题题号:22 执行下列程序，单击Command1，在窗体上显示的第一行内容是＿＿5 15＿＿，第二行的内容是＿＿【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 答案： =======(答案1)======= 5 15 =======(答案2)======= 2 35 =======(答案3)======= -1 56 第15题题号:20 执行下列的程序，单击Command1，在窗体上显示的变量b的值为＿-1＿＿，变量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,窗体上显示的第一行是___3 6___,第二行是_____4 7____,第四行是__【3】____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 答案： =======(答案1)======= 3 6 =======(答案2)======= 4 7 =======(答案3)======= 5 8 11 第17题题号:19 执行下面程序，单击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 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G 隔三个， 隔一个 答案： =======(答案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 Integer 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 执行下面程序，单击Command1，则图片框中显示的第一行是___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.Print a(i, j); Next j Picture1.Print Next i End 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") 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 三、程序填空共16题 第1题题号:14（20XX年（春）笔试试卷-9） '本程序的功能是把由４个"."分隔的十进制数表示的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 二、选择题 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/d816080650.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 大一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) 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）。 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 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 。 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课程题库全集 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/d816080650.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、在设计阶段放置的控件 VB期末考试试题B卷 一、填空题 1.ＶＢ中若要产生一消息框，可用__（1）__函数来实现。 2．常量是指在程序运行过程中，其值不能改变（2）的量。 3．整数类型数据分别包括整型和（3）数据。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_(单击“运行”菜单下的启动4)__；二是_(5) 单击工具栏上的启动 按钮_；三是_(6) 按Ｆ5键。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过__ Setfocus (7)_方法来实现。 6．列表框（ListBox控件）显示项目列表(8) ，用户可从中选择一个或多个项目。 7．框架（Frame控件）可以用来(9) 对其它控件进行分组，以便于用户识别，主要用于为单选按钮分组。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_(10)_ 属性_。９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_取(&C) _(11)___，并且设置其__(12)__属性值为__（13）__。 10、在过程内用_（14）__声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 11、在模块文件中的声明部分用Global或__（15）__关键字声明的变量为全局变量。 12、在模块文件中的声明部分用__（16）__或__（17）__定义的变量为模块级变量。 13．计时器控件通过定期激活Timer事件，使得Timer控件（18）就执行一次Timer事件中的代码。 14．要获得滚动条的当前位置，可以访问通过（19）属性来实现。 15．关闭正在运行的VB窗口将自动触发的事件是（20）。 二、选择题 1．工程文件的扩展名是（ B ）。 A．vbg B.vbp C.vbw D.vbl 2.在以下窗体中没有采用的控件是（）。 A.文本框 B 垂直滚动条C．框架 D 命令 按钮 3．滚动条控件（如图所示）的Largechange属性所设置的是（）A．单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量 B．滚动条中滚动块的最大移动位置 C．滚动条中滚动块的最大移动范围 D．滚动条控件无该属性 4、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) 5、可获得当前系统日期的函数是（A） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) 6、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do 实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text 客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有内容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语法正确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1内显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm" C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val VB期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 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 大学V B考试题库 一、单项选择题 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/d816080650.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 B、将控件的TabStop属性设置为True 第一部分：客观题 一、单项选择题 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 页脚内容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 页脚内容2 V B期末考试试卷及答 案 文档编制序号：[KK8UY-LL9IO69-TTO6M3-MTOL89-FTT688] V B期末考试试卷及答案一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 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方式打开一个不存在的文件时，系统将显示出错信息 09vb模拟测试卷 满分：70分 姓名：________ 1、单项选择题(本题共计40分) 1、VisualBasic是用于开发________环境下的应用程序的工具。( ) A、DOS B、Windows C、DOS和Windows D、UNIX 2、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做____过程。( ) A、方法 B、事件 C、调动 D、编译 3、VisualBasic中的窗体文件的扩展名是____________。( ) A、.reg B、.frm C、.bas D、.vbp 4、一只白色的足球踢进球门，则白色、足球、踢、进球门是________。( ) A、属性、对象、方法、事件 B、属性、对象、事件、方法 C、对象、属性、方法、事件 D、对象、属性、事件、方法 5、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。( ) A、List1.AddItem“ABC”，List1.ListIndex B、List1.Text=“ABC” C、List1.List(List1.ListIndex)=“ABC” D、前三项均可 6、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。 ①Timer1.Interval ②List1.Cls ③Text1.Print ④List1.RemoveItem ⑤Vscroll1.Value ⑥Picture1.Print ( ) A、0 B、1 C、2 D、3 7、当对象失去焦点时，将会发生____________事件。( ) A、GetFocus B、LostFocus C、Focus D、SetFocus 8、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。( ) A、Name B、Enabled C、Caption D、Interval 9、在设计列表框时，若实现输入多行文字的目的，应使用____________键实现文本的换行。( ) A、Enter B、Alt+Enter C、Ctrl+Shift+Enter D、Ctrl+Enter 10、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。( ) A、Listl.Addltem "China",0 B、Listl.Addltem "China",1 C、Listl.Addltem 0,"China" D、Listl.Addltem 1,"China" 11、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。( ) A、-3，–4，–3 B、-4，–4，–3 C、-3，–4，–4 D、-4，–3，–3 12、假定变量Logic类型是Boolean，下面赋值语句________是正确的。( ) A、Logic = ‘True’ B、Logic = .True. C、Logic = # True # D、Logic = 3<4 13、下列语句中不能正常执行的是________。( ) A、print +32758+10 B、print 5+9=15 C、print "65"+12 D、print "65"&12 14、在窗体Form1上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name 属性为Command1），程序如下。执行后结果为___________。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_load()VB期末考试试题及答案
大学VB考试题库
大一VB期末考试试卷及答案
大学VB期末考试试题
【期末复习】计算机VB期末考试试题及答案
VB期末考试试题及答案
VB期末考试试卷及答案.doc
大学VB期末考试试题
大学VB考试卷试题库题集.doc
大学vb课程题库全集
VB期末考试试题 B卷
大学计算机VB程序设计考试题目
2020年国家开放大学电大《VB程序》形成性考核题库
VB期末考试考卷及答案
大学VB考试题库及答案
VB期末考试试题及答案 (1)
VB期末考试试卷及答案
南京工业大学vb期末题库3
- 大学_vb期末考试试题
- 【期末复习】计算机VB期末考试试题及答案
- VB期末考试考卷及答案
- 大学_VB期末考试试题2
- VB期末考试试题及答案分析
- VB期末考试试题
- VB期末考试试题及答案分析
- VB期末考试试卷及答案
- 大学_VB期末考试试题
- VB期末考试上机题编程答案
- VB期末考试试题及答案
- 大学VB期末考试试题
- 大一的vb期末考试题和答案
- 最新VB期末考试试题(A、B卷)
- VB期末考试试题及答案分析
- 大学_vb期末考试试题
- VB期末考试试卷及答案.doc
- VB期末考试试题及答案 (1)
- 计算机题库VB期末考试试题(A、B卷)
- VB期末考试题库2011-05
- 居家养老服务的五大标准详解
- 提高居家养老服务质量的六个关键点
- 养老服务的质量评估居家养老服务的标准与指标
- 居家养老服务的问题及对策
- 居家养老服务质量考核标准
- 居家养老服务中心服务质量保障22页
- 社区居家养老服务的问题及对策建议
- 居家养老服务质量评估方案
- 居家养老服务的问题及对策
- 居家养老质量保障措施
- 居家养老服务的五个流程步骤与质量标准
- 居家养老服务质量保障措施
- 老年人居家养老服务的质量监督与评价
- 提升住宅小区居民生活环境的方案
- 提高住宅小区环境卫生质量的有效措施
- 浅析居住区环境景观的规划设计及建议
- 浅谈高质量住宅小区的建设管理
- 加强生态住宅小区绿化建设的建议
- 浅谈建筑舒适的生态住宅小区声环境
- 浅谈小区景观设计的现状及发展趋势