【www.guakaob.com--普通话考试】
VB程序设计期末考试360题库篇一：vb程序设计考试题库
冉术兵 上传
程序设计题
1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。
2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中
3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+„+1/100，结果输出在窗体上。
4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8„的前10项，并求其和，将和保存在变量s中。
5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中
6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中
7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为：
' 15、23、72、43、96、23、3、65、88、17
写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中
8、题目：(事件)单击窗体。(响应)在窗体上输出100~200SUM中所谓合数是指自然数中能被1和本数整除以外,9、题目：(事件)单击窗体。(响应)求10~20L中。
10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + 将结果存入变量J中。 1题 n = InputBox("输入一个自然数")
If n > 0 Then
result = "正数"
ElseIf n < 0 Then
result = "负数"
ElseIf n = 0 Then
result = "零"
End If
MsgBox "输入的数据" & n & "为：2题
Dim i As Integer
For i = 201 To 300
sum = sum + i
End If
Next
Print sum
3题
s = 0
Next
Print (s)
4题
Dim i, j, k, m As Integer
s = 0 :i = 2:j = 1
For k = 1 To 10
s = s + i / j
m = j
Print (CStr(i)) & "/" & CStr(j)
j = i
i = i + m
Next
5题
Dim i, j, k As Integer
For i = 1 To 100
For j = 1 To 50
For k = 1 To 20
If ((i + 2 * j + k * 5) = 100) Then
Print (CStr(i))
Print (CStr(j))
Print (CStr(k))
n = n + 1
End If
Next
Next
Next
6题
Dim i, j, k As Integer
For i = 1 To 5
k = 1
For j = 1 To i
k = k * j
Next
s = s + k
Next
Print (CStr(s))
7题
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15：a(1) = 23：a(2) = 72
a(3) = 43：a(4) = 96：a(5) = 23
a(6) = 3：a(7) = 65：a(8) = 88
a(9) = 17：max = a(0)：min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(max))
Print (CStr(min))
Print (CStr(aver))
8题
Dim i, j, s As Integer
For i = 100 To 200
sum = sum + i
Next
Next
Print sum
9题
Dim i%，j%，l = 1：b = False
For i = 10 To 20
For j = 2 To i - 2
If i Mod j = 0 Then
b = True
End If
Next
If b = False Then
l = l * i
End If
b = False
Next
Print Str(l) 10Dim i As Integer 题
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + 1 / i
ElseIf i Mod 2 = 0 Then
j = j - 1 / i
End If
Next
Print j
11、题目： (事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为1、2、4、7、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for...next语句完成程序
12、题目：应用选择法对数组A按升序排列
13、题目：单击窗体。求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序。
14、题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串"字母"，数字字符显示字符串"数字"，其他字符显示字符串"其他"，要求使用IF语句来实现。
Private Function fun(n As String) As String
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun("A")
Print fun("9")
Print fun("&")
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim l As Integer
Dim a(10) As String * 1
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
fOut = FreeFile
For i = 1 To 10
Next
Close #fOut
End Sub
15，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：
'mark大于等于90显示"优秀"
'mark小于90且大于等于80显示"良好"
'mark小于80且大于等于70显示"中等"
'mark小于70且大于等于60显示"及格"
'mark小于60显示"不及格"
'要求使用IF语句来实现。
Private Function fun(mark As Integer) As String
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(90)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim s As String
Dim a(10) As Integer
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10
Line Input #fIn, s
a(i) = Val(s)
Print #fOut, fun(a(i))
Next
Close #fIn
Close #fOut
End Sub
16、题目：编写函数fun，函数的功能是：当x的初值为10后x的值能达到y，并显示所需年数的值（变量名必须为n）。
'要求使用Do While ... Loop语句来实现。
Private Function fun(y As Single) As Long
Dim x As Single, n As Long
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(15)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
For i = 1 To 10
Line Input #fIn, a(i)
Print #fOut, Trim(Str(fun(Val(a(i)))))
Next
Close #fIn
Close #fOut
End Sub
17、题目：编写函数fun，函数的功能是：求从m到n的乘积并显示，'如：m为2，n为4时，显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。
Private Function fun(m As Integer, n As Integer) As Long
Dim Product As Double, t As Integer
If m > n Then t = m: m = n: n = t
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(4, 2)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 2
Line Input #fIn, a(i)
Line Input #fIn, a(i + 1)
Print #fOut, Trim(Str(fun(Val(a(i)), Val(a(i + 1)))))
Next
Close #fIn
Close #fOut
End Sub
18、题目：编写函数fun
该数为素数时，显示"素数"；该数为非素数时，显示"非素数"'量flag作为该数是否为素数的标志，注意：不得使用Goto语句。
Private Function fun(m As Long) As String
Dim flag As Boolean
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(225)
NJIT_VB
End Sub
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, fun(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub
Next
Close #fIn
Close #fOut
End Sub
VB程序设计期末考试360题库篇二：VB期末考试题库
试卷名称：第12次上机
试卷说明：
命题教师： 北京化工大学北方学院 信息学院 张玉英
一、单项选择题（总分60）
1. （分值：1.1分）标签框所显示的内容，由（）属性值决定
A: Text
B: (名称)
C: Caption
D: Alignment
序号：10 难度：1 考查点：数据的输入与输出
2. （分值：1.1分）设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A: 10 5
B: 20 5
C: 20 40
D: 10 40
序号：101 难度：1 考查点：过程
3. （分值：1.1分）文本框的（）属性用于设置或返回文本框中的文本内容。
A: Text
B: (名称)
C: Caption
D: Name
序号：11 难度：1 考查点：数据的输入与输出
4. （分值：1.1分）计时器控件的（ ）属性用于设置Timer事件发生的时间间隔。 A: Stretch
B: Interval
C: Value
序号：12 难度：1 考查点：选择结构程序
5. （分值：1.1分）若要向列表框添加列表项，可使用的方法是（）
A: Add
B: Remove
C: Clear
D: AddItem
序号：13 难度：1 考查点：循环结构程序
6. （分值：1.1分）VB中可用（）语句产生一消息框。
A: InputBox
B: Shift
C: Both
D: MsgBox
序号：15 难度：1 考查点：数据的输入与输出
7. （分值：1.1分）以下叙述错误的是________。
A: 一个工程只能有一个Sub Main过程
B: 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C: 窗体的Hide方法和Unload方法的作用完全相同
D: 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
序号：150 难度：1 考查点：多重窗体与环境应用
8. （分值：1.1分）为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为 _____
A: Show
B: Hide
C: Load
D: Unload
序号：151 难度：1 考查点：多重窗体与环境应用
9. （分值：1.1分）以下叙述错误的是
A: 在KeyUp和 KeyDown 事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）
B: 在KeyUp和 KeyDown 事件过程中，将键盘上的"1"和右侧小键盘上的"1"视作不同的数字（即具有不同的KeyCode）
C: KeyPress事件中不能识别键盘上某个键的按下与释放
D: KeyPress事件中可以识别键盘上某个键的按下与释放
序号：154 难度：1 考查点：键盘与鼠标事件过程
10. （分值：1.1分）编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下（即不按住<Shift>键和锁定大写），运行程序，如果按<A>键，则程序的输出是_________
A: A
a
B: a
A
C: A
A
D: a
a
序号：155 难度：1 考查点：键盘与鼠标事件过程
11. （分值：1.1分）下列符号中哪个是VB程序中合法的变量名（）
A: ab7
B: 7ab
C: If
D: a*bc
序号：16 难度：1 考查点：VB语言基础
12. （分值：1.1分）X是小于100的非负数，用VB表达式表达正确的是（）
A: 0≤X≤100
B: 0<=X<100
C: 0<=X and X<100
D: 0≤X<100
序号：17 难度：1 考查点：VB语言基础
13. （分值：1.1分）设有数组声明语句：
Option Base 0
Dim B(-1 To 10,2 To 9,20) As Integer
则数组B中共有( )个元素。
A: 1800
B: 1848
C: 2016
D: 2310
序号：185 难度：1 考查点：数组
14. （分值：1.1分）在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是
( )
A: =→<>→<→>→<=→>=
B: >→>=→=→<→<=→<>
C: <=→<→=→>=→>→<>
D: 不分先后顺序
序号：186 难度：1 考查点：选择结构程序
15. （分值：1.1分）下列赋值语句中，( )是错误的。
A: x=x+1
B: x=x+y
C: x+y=x
D: x=4＞6
序号：191 难度：1 考查点：选择结构程序
16. （分值：1.1分）从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是________。
A: 学习版
B: 标准版
C: 专业版
D: 企业版
序号：2 难度：1 考查点：VB概述
17. （分值：1.1分） 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是（）
A: Redim a As Integer
B: Static a As Integer
C: Public a As Integer
D: Dim a As Integer
序号：21 难度：1 考查点：变量与过程的作用范围
18. （分值：1.1分）设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A: 2310
B: 2016
C: 1500
D: 1658
序号：212 难度：1 考查点：数组
19. （分值：1.1分） 声明一个变量为局部变量应该用（）
A: Global
B: Private
C: Static
D: Public
序号：22 难度：1 考查点：变量与过程的作用范围
20. （分值：1.1分）下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=20
Call Value(x, y)
Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A: 20 12
20 15
B: 12 20
12 25
C: 24 15
12 20
D: 24 12
12 15
序号：221 难度：1 考查点：过程
21. （分值：1.1分）、执行x$=InputBox("请输入x的值") 时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456) ，使有的值使123456的语句是
A: y=x$+List1.List(0)
B: y=x$+List1.List(1)
C: y=Val(x$) +Val(List1.List(0) )
D: y=Val(x$) & Val(List1.List(1) )
序号：23 难度：1 考查点：VB语言基础
22. （分值：1.1分）下面的属性中，用于自动调整图像框中图形内容的大小的是 A: Picture
B: CurentY
C: CurrentX
D: Stretch
序号：24 难度：1 考查点：数据的输入与输出
23. （分值：1.1分）以下属于Visual Basic合法的数组元素是
A: x8
B: x［8］
C: s(0)
D: v［8］
序号：26 难度：1 考查点：数组
24. （分值：1.1分）要使菜单项MenuOne在程序运行时失效，使用的语句是
A: MenuOne.Visible=True
VB程序设计期末考试360题库篇三：VB期末考试题库及答案
试卷方案：201105 Visual Basic期末考试方案
一、单项选择_共50题（选：20题*1’=20分）
第1题
以下有关对象属性的说法中，错误的是___________.
A. 工具箱中的控件并不是VB中所有的控件
B. 若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件
C. 对象的Name属性在运行时不能改变
D. 对象的所有属性都可以在属性窗口中设置
第2题
xe3
数学表达式 sin27的VB算术表达式为_______ . |xy|
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. 出错
以下说法不正确的是____________.
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题
x53
数学表达式 e2lnxsin(2x)对应的VB表达式是__________.
sinxcosx2|
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
以下关于变量作用域的叙述中,正确的是____________.
A. 窗体中凡用Private声明的变量只能在某个指定的过程中使用
B. 模块级变量只能用Dim语句声明
C. 凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量
D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量
第16题
以下关于数值常量的说法中,错误的是______
A. 八进制数的表示方法是在数字前面加&O
B. 十六进制数的表示方法是在数字前面加&H
C. 在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理
D. 32768是合法的数值常量
第17题
数学表达式 exsin330
xy对应的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 D. Function f1(ByVal n As Integer)
C. Function f1(f1 As Integer)As Integer
下列有关控件数组的说法中,错误的是______.
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"
C. 3>2>1 B. Int(134.69) <=CInt(134.69) 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语句定义的动态数组,其下标的上下界可以是变量
② 数组作为形式参数时,传递的是每个数组元素的值
③ 在窗体模块的通用声明处可以用Public 说明一个全局数组
④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值
A. ②③ B. ①③④ C. ①②③④ D. ③④
第32题
下列关于对象SetFocus与GotFocus的描述中,正确的是_____
A. SetFocus是事件,GotFocus是方法
C. Setfocus和GotFocus都是方法 B. 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<Z"的VB逻辑表达式是______
A. X≤Y<Z B. X<=Y And Y<Z C. X≤Y OR Y<Z D. X<=Y<Z
第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<Y,A>B,则下列表达式中,结果为True的是______
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题
数学表达式 sin30logxy2exy对应的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))
D. (Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))
VB程序设计期末考试360题库篇四：大一VB语言程序期末考试题及答案
大一VB语言程序设计期末考试题
一、选择题
1 下列常量中，是Integer类型常量的是（ C ）。
A、123&
B、-38844
C、123%
D、32768
2 下面选项中()是字符连接运算符.（ A ）
A、&
B、And
C、%
D、Mod
3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（
A、IDE是设计、调试、运行VB程序的工具。
B、用户不能随意关闭IDE中的窗口。
C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。
D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。
4 len(“vb程序设计”)=( C ) 。
A、 5
B、2
C、 6
D、10
5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D
A、7
B、0
C、2
D、4
6 赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ A
A、157
B、12334
C、123
D、"12334"
7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C).
A、,
B、;
C、:
D、、
8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。
A、将True转换为 1 ，将False转换为 0
B、将True转换为 1 ，将False转换为 -1
C、将True转换为 0 ，将False转换为 -1
D、将True转换为 -1 ，将False转换为 0
9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). B ）。 。 ）
A、SIN
B、4^5
C、3*4
D、x+1
10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。
A、不能计算
B、 True
C、5
D、False
11 随机产生 [10，50] 之间整数的正确表达式是（ D
A、Round( Rnd*50)
B、 Int(Rnd*40+10)
C、Round( Rnd*51)
D、 10+Int(Rnd*41)
12 每建立一个窗体,工程管理器窗口中就会增加一个(C).
A、类模块文件
B、工程文件
C、窗体文件
D、程序模块文件
13 INT(100*RND(1))产生的随机整数的闭区间是(B).
A、[1,100]
B、[0,99]
C、[0,100]
D、[1,99]
14 下列数据类型中,占用内存最小的是(D).
A、Integer
B、Single
C、Boolean
D、Byte
15 VisualBasic是一种()程序设计语言.B
A、过程式
B、非过程式
C、机器
D、低级
16 函数Int(10*Rnd)是在(A)范围内的整数.
A、[0,9]
B、[0,1]
C、[1,9]
D、[1,10]
17 以下合法的一组Visual Basic用户标识符是 C
A、Sum 和 8abc
B、a#x 和 Pi
C、ForLoop 和 Total
D、Const 和 DoWhile ）。
18 函数Len(Str(Val("123.4")))的值为(B).
A、5
B、6
C、8
D、11
19 Int(198.555*100+0.5)/100的值为B
A、199.6
B、198.56
C、200
D、198
20 以下各表达式中, 计算结果为0的是(A).
A、FIX(12.4)+FIX(-12.6)
B、CINT(12.4)+CINT(-12.6)
C、INT(12.4)+INT(-12.6)
D、FIX(13.6)+FIX(-12.6)
21 MsgBox()的正确语法是（ D ）。
A、 MsgBox(标题 [，提示信息] [，按钮类型])
B、 MsgBox(提示信息[，标题] [，按钮类型])
C、MsgBox(标题 [，按钮类型] [，提示信息])
D、 MsgBox(提示信息 [，按钮类型] [，标题])
22 3>8-3 OR 10+2 <=3*4 AND 5=2+3的结果是(C).
A、10
B、-3
C、True
D、False
23 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是(D).
A、7
B、4
C、6
D、5
24 设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).
A、5
B、0
C、6
D、-1
25 下面关于VB的叙述中，不正确的是（ A ）。
A、用VB编写的程序可以在任何操作系统环境中运行。
B、VB是面向对象的可视化的软件开发工具。
C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。
D、VB是由美国Microsoft（微软）公司开发程序设计语言。
26 表达式16 / 4-2^5*8 / 4 Mod 5 \ 2 = (
A、4
B、0
C、-2
D、 -6 A )。
27 声明符号常量应该用关键字(B).
A、Private
B、Const
C、Static
D、V26/ariant
28 下列数据类型中,占用内存最大的是(D).
A、Boolean
B、Integer
C、Byte
D、Single
29 下列VB数据类型中，占用内存最少的是（ D ）。
A、Currency
B、Integer
C、Boolean
D、Byte
30 RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间 的整数.若使用三个滚动条分别输入三种基色,为保证输入数值 有效,则应设置(B)属性.
A、Scroll和Change
B、Max和Min
C、Smallchange和 LargeChange
D、Value
31 k=12.5 ，len( str( k ) )=(
A、 4
B、5
C、 3
D、 2 B ) 。
32 表达式Abs(-5)*5\5/5的值是 D
A、1
B、5
C、-25
D、25
33 产生[10,37]之间的随机整数的VisualBasic表达式是(C).
A、Int(Rnd(1)*27)+11
B、Int(Rnd(1)*28)+11
C、Int(Rnd(1)*28)+10
D、In t(Rnd(1)*27)+10
34 工具栏中的"启动"按钮的作用是(B).
A、工程管理窗口
B、运行一个应用程序
C、打开被选中对象的代码窗口
D、运行一个窗体
35 不需要编译，计算机便可直接执行的程序是（
A、C语言程序 B ）。
B、 机器语言程序
C、 汇编语言程序
D、 Visual Basic语言程序
36 Val (“123ab”)=（
A、0
B、 不能转换
C、1230
D、123 D ）。
37 表达式16/4-2^5*8/4MOD5\2的值为 A
A、4
B、2
C、14
D、20
38 删除字符串前导和尾随空格的函数是(D).
A、Rtrim( )
B、Ltrim()
C、Lcase
D、Trim()
39 下列表达式中,其值为0的是(C).
A、15 mod 9
B、7/9
C、7\9
D、7 mod 15
40 表达式Len("123程序设计ABC")的值是 B
A、17
B、10
C、14
D、20
41 Int(-3.1)+round (-4.6)=________C_________。
A、-8
B、-6
C、-9
D、-7
42 \、/、Mod、*等4个算术运算符中,优先级最低的是(A).
A、Mod
B、/
C、*
D、\
43 下面正确的赋值语句是（
A、x=y=1
B、x+2=y^2+2
C、x+y=1
D、x=y+z1 D ）。
44 Len("实践应用能力")的值是(A).
A、6
VB程序设计期末考试360题库篇五：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、Form1.Name="VisualBasic窗体"
B、Form1.Title="VisualBasic窗体"
C、Form1.Caption="VisualBasic窗体"
D、Form1.Text="VisualBasic窗体"
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、在设计阶段放置的控件
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
C、将控件的TabStop属性设置为False
D、将控件的Enabled属性设置为False
16、要判断在文本框是否按了Enter键，应在文本框的(D)事件中判断。
A、Change B、KeyDown C、Click D、KeyPress
17、以下关于焦点的叙述中，错误的是(A)。
A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B、当文本框失去焦点时，触发LostFocus事件
C、当文本框的Enabled属性为False时，其Tab顺序不起作用
D、可以用TabIndex属性改变Tab顺序
18、如果文本框的Enabled属性设为False，则(A)。
A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。
B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。
C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。
D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。
19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)。
A、MouseDown B、MouseUp
C、Load D、Click
20、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是(B)。
A、Autosize B、Stretch
C、AutoRedraw D、Appearance
21、为了防止用户随意将光标置于控件之上，应设置的属性是(D)。
A、将控件的TabIndex属性设置为0
B、将控件的TabStop属性设置为True
C、将控件的TabStop属性设置为False
D、将控件的Enabled属性设置为False
22、不论何控件，共同具有的是(B)属性。
A、Text B、Name
C、ForeColor D、Caption
23、以下关于窗体的描述中，错误的是(A)。
A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B、窗体的Load事件在加载窗体时发生
C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D、窗体的Height、Width属性用于设置窗体的高和宽
24、当运行程序时，系统自动执行窗体的(A)事件过程。
A、Load B、Click
C、Unload D、GotFocus
25、窗体设计器是用来设计(B)。
A、应用程序的代码段 B、应用程序的界面
C、对象的属性 D、对象的事件
26、Visual Basic是一种面向对象的可视化程序设计语言，采取了(A)的编程机制。
A、事件驱动 B、按过程顺序执行
C、从主程序开始执行 D、按模块顺序执行
27、确定一个控件在窗体上的位置的属性是(D)。
A、Width或Height B、Width和Height
C、Top或Left D、Top和 Left
28、如果要改变窗体的标题，则需要设置的属性是(A)。
A、Caption B、Name
C、BackColor D、BorderStyle
29、以下叙述中错误的是(C)。
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方式执行
D、事件可以由用户引发，也可以由系统引发
30、以下叙述中错误的是(B)。
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
31、在Visual Basic中最基本的对象是(C)。它是应用程序的基石，是其他控件的容器。
A、文本框 B、命令按钮
C、窗体 D、标签
32、以下叙述中正确的是(A)。
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
33、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)。
A、工程资源管理器窗口 B、工具箱窗口
C、代码窗口 D、属性窗口
34、Visual Basic是一种面向对象的可视化程序设计语言，采取了的编程机制是(A)。
A、事件驱动 B、按过程顺序执行
C、从主程序开始执行 D、按模块顺序执行
35、用来设置粗体字的属性是(C)。
A、FontItalic B、FontName
C、FontBold D、FontSize
36、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(A)。
A、如果工程中含有Sub Main过程，则程序一定首先执行该过程
B、不能把标准模块设置为启动模块
C、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D、任何时刻最多只有一个窗体是活动窗体
37、为了把焦点移到文本框，所使用的方法是(A)。
A、SetFocus B、Visible
C、Refresh D、GetFocus
38、INT（100*RND）产生的随机整数的闭区间是（A）。
A、[0，99] B、[1，100]
C、[0，100] D、[1，99]
39、如果要在命令按钮上显示图形文件，应设置命令按钮的(B)。
A、Style属性和Graphics属性B、Style属性和Picture属性
C、Caption属性 D、Graphics属性
40、若要使命令按钮不可操作，要对(A)属性进行设制。
A、Enabled B、Visible
C、BackColor D、Caption
41、假定窗体的名称为Form1,则把窗体的标题设置为“VB_Test”的语句为(B)。
A、Form1=“VB_Test” B、Form1.Caption=“VB_Test”
C、Form1.Text=“VB_Test” D、Form1.name=“VB_Test”
42、以下叙述中错误的是(A)。
A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B、以.BAS为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性
D、一个工程中可以含有多个标准模块文件
43、要使文本框获得输入焦点，则应采用文本框控件的哪个方法(A)。
A、GotFocus B、LostFocus
C、KeyPress D、SetFocus
44、以下不能在“工程资源管理器”窗口中列出的文件类型是(B)。
A、.bas B、.res C、.frm D、.ocx
45、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)。
A、单选按钮 B、图片框 C、通用对话框 D、文本框
46、以下叙述中错误的是(B)。
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
47、以下能够触发文本框Change事件的操作是(D)。
A、文本框失去焦点 B、文本框获得焦点
C、设置文本框的焦点 D、改变文本框的内容
48、以下叙述中错误的是(C)。
A、一个工程中只能有一个Sub Main过程
B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C、窗体的Hide方法和Unload方法的作用完全相同
D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
49、语句Print Abs(-6^2)+Int(-6^2)的输出结果是(A)。
A、0 B、1 C、-1 D、-72
50、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为(B)。
A、0 B、-1 C、TRUE D、FALSE
51、函数String(n, "str")的功能是(B)。
A、把数值型数据转换为字符串
B、返回由n个字符组成的字符串
C、从字符串中取出n个字符
D、从字符串中第n个字符的位置开始取子字符串
52、语句Print Format(“Hello World”,“>”)的输出结果是(C)。
A、hello WORLD B、hello world
C、HELLO WORLD D、HELLO world
53、声明符号常量应该用关键字(B)。
A、Static B、Const C、Private D、Variant
54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句(B)。
A、Option Base 0 B、Option Explicit
C、Option Base 1 D、Option Compare
55、下列可作为Visual Basic变量名的是(D)。
A、A#A B、4A C、?xy D、constA
56、设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是(B)。
A、True B、False C、1 D、出错信息
57、执行x$=String(6, "124abc")后，x的值是(B)。
A、124abc B、111111 C、124 D、abc
58、设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（D）
A、5 B、6 C、0 D、-1
59、执行语句：c$=“Glad”& Mid$(“Nice to meet you”,5,3)，则变量c$的值为(C)。
A、Nice to meet you B、Glad Nice to meet you
C、Glad to D、Glad
60、下面(D)是合法的字符常数。
A、ABC$ B、" ABC" C、' ABC' D、ABC
61、对于语句If x=1 Then y=1，下列说法正确的是（C）。
A、x=1 和 y=1 均为赋值语句
B、x=1 和 y=1 均为关系表达式
C、x=1 为关系表达式， y=1 为赋值语句
D、x=1 为赋值语句， y=1 为关系表达式
62、设有声明：Dim X As Integer,如果Sgn(X) 的值为-1，则X的值是(D)。
A、任何整数 B、0 C、等于0的整数 D、小于0的数
63、在一行内写多条语句时，每个语句之间用(B)符号分隔。
A、， B、： C、、 D、；
64、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)。
A、Left B、Mid C、String D、Instr
65、设S="中华人民共和国"，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）
A、"中华民国" B、"中国人民"
C、"中共人民" D、"人民共和"
66、下列可作为 Visual Basic中的变量名的是(A)。
VB程序设计期末考试360题库篇六：二级VB程序设计题库
题号 1.判断是不是素数 2.汉字的字幕滚动(祝你考试成功) 3拨号盘 4.字幕放大
5.画板 6.调色板 7.复制黏贴 8.改变圆大小 9.添加删除
10.密码检测 11.健康称 12.最大化 13.居中 斜体 设置
14.字符排序 15.滚动条 数字移动 16.替换 17.反弹球
18.框架 19.图片欣赏 20.字体设置 21.单选按钮日期
22.复制选框点餐 23.连表框过滤 24.字幕闪烁 25.滚动条改变字号
26.单选按钮倒计时 27.坐标系 28.连表迁移 30.新旧密码
31.电子钟 32.文本框计算成绩 33.偶数迁移 35.文本框计算商品 36.加法器1.判断是不是素数
Private Sub Command1_Click()
x = Val(Text1.Text)
For i = 2 To x - 1
If x Mod i = 0 Then Exit For
Next
If i > x - 1 Then
Label3.Caption = Text1.Text & "是素数"
Else
Label3.Caption = Text1.Text & "不是素数"
End If
End Sub
Private Sub Form_Load()
End Sub
2.汉字的字幕滚动
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "结束"
Timer1.Enabled = True
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Label1.AutoSize = True
Label1.Alignment = 2
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
3拨号器
Dim a As String
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Index
a = Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
b = Mid(a, i, 1)
If i > Len(a) Then
Timer1.Enabled = False
i = 0
Else
Text1.Text = Text1.Text & b
End If
End Sub
4.字幕放大
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "结束"
Timer1.Enabled = True
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Label1.AutoSize = True
Label1.Alignment = 2
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2
End Sub
5.画板
Picture1.Cls
End Sub
Private Sub Form_Load()
End Sub
Private Sub Option1_Click()
Picture1.DrawWidth = 1
End Sub
Private Sub Option2_Click()
Picture1.DrawWidth = 5
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.PSet (X, Y), CommonDialog1.Color
'Print Picture1.CurrentX, Picture1.CurrentY
End If
End Sub
6.调色板
Private Sub Command1_Click()
Label2.ForeColor = Shape1.FillColor
End Sub
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Scroll(Index As Integer)
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub
7.复制黏贴
Option Explicit
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
Private Sub Command3_Click()
Text1.SelText = Clipboard.GetText()
End Sub
Private Sub Command4_Click()
Text1.SelText = ""
End Sub
Private Sub Form_Load()
End Sub
8.改变圆大小
Private Sub Form_Load()
Shape1.Width = 3400
Shape1.Height = 3400
Shape1.Left = 500
Shape1.Top = 500
Label2.Caption = 3400
HScroll1.Value = 3400
End Sub
Private Sub HScroll1_Change()
Call HScroll1_Scroll
End Sub
Private Sub HScroll1_Scroll()
Shape1.Width = HScroll1
Shape1.Height = HScroll1
Shape1.Left = 2200 - HScroll1.Value / 2 Shape1.Top = 2200 - HScroll1.Value / 2 Label2.Caption = HScroll1.Value End Sub
9.添加删除
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "没有内容，不予添加" Else
List1.AddItem Text1.Text, 0
' For i = List1.ListCount To 1 Step -1 ' List1.List(i) = List1.List(i - 1) 'Next
'List1.List(0) = Text1.Text
Text1.Text = ""
End If
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If List1.ListIndex = -1 Then
MsgBox "请选择要删除的项目" Else
List1.RemoveItem List1.ListIndex
VB程序设计期末考试360题库篇七：VB语言程序设计试题库1
VB语言程序设计试题库
选择题：
值范围是（ ）
A、[ 0，10 ] B、[ 10，10 ] A、0 B、1 C、-1 D、-9 16、下列表达式值为0的是（ ）
C、Exp（x） D、Exp（e）
23、Sin46°在VB中应该用（ ）表 1、下面（ ）是Visual Basic语言中的数值常量。 A、ABC B、E+5
C、TRUE D、1E-2
2、3896#表示的是（ ）类型的数值数据。
A、整型
B、单精度实型
C、双精度实型
D、货币型
3、表达式3 \ 3 * 3 / 3 mod 3的值是（ ）
A、-1 B、1 C、-3
D、3
4、方法Print Sgn（- 3 ^ 2）+ Abs（- 3 ^ 2）+ Int（- 3 ^ 2）的输出结果是（ ）
A、17 B、27
C、1 D、-1
5、假设硬币有图案一面为0，有字的一面为1，则掷一次硬币出现的随机数可表示为（ ）
A、Int（Rnd（1）+1）
B、Int（Rnd * 1） C、Int（Rnd * 2）
D、Int（Rnd * 2 + 1）
6、要将A、B两个变量的值互换，正确的写法是（ ）
A、A=B：B=A B、B=A：A=B
C、C=A：A=B：B=C D、A=C：C=B：B=A 7、函数Int（Rnd（0）* 11）+ 10的取
C、[ 10，20 ]
D、[ 0，20 ]
8、6.8E2与（ ）数值相同
A、6.8 B、6800
C、68
D、680
9、下列正确的字符串常量是（ ）
A、”NnMm” B、ABCD
C、Nn”Mm”
D、Abcd
10、下列符号中合法的常量是（ ） A、”x=2.456e-10” B、10 * 3.4
C、A + B +C
D、1.234E4.5
11、表达式Sin（a + B、^ 3 * 2中，先进行（ ）计算。
A、Sin函数 B、+ C、^ D、* 12、下列哪个运算符不能进行字符串比较
A、= B、<>
C、>=
D、=<
13、下列（ ）的值为True。 A、”a” < “b” B、”9” > “a”C、”D” > “d” D、”99” < “100”14、若变量x的值是实数，下列（ ）表达式在x为任何值时都有意义。 A、Sqr（x） B、Int（Sqr（x）） C、Sqr（Abs（x））
D、Sqr（Int（x））15、表达式Int（-3.67）mod 4的值是（ ）
A、4 / 5
B、4 \ 5
C、4 mod 5
D、5 mod 4
17、X=5是（ ）表达式
A、关系表达式 B、算术表达式 C、逻辑表达式 D、字符串表达式 18、把2.67赋值为变量A%，则变量A的值为（ ）
A、0 B、2 C、3 D、2.67 19、已知x1= -3.67，x2= 4，x3= 5，x4= 6 ，下列关系式的值为真的是（ ） A、Sgn（x1 – x2）- Sgn（x3 – x4）< 0
B、Sgn（x1 + x4）- Sgn（x2 + x3）= -2 C、Sgn（x2 – x1）- Sgn（x3 – x4）> 0
D、Sgn（x2 – x3）- Sgn（x1 – x4）> 0
20、若A and B的值是真，则（ ）
A、A为真，B不必为真
B、B为真，A不必为真
C、A、B都为真 D、A、B全为假 21、下列各变量中，（ ）是字符串型的变量。
A、A@ B、B& C、C$
D、D# 22、ex在VB中应该用（ ）表示。
A、e**x
B、e^x
1
示。
A、Sin（46） B、Sin46 C、Sin（46*3.14/180） D、Sin46*3.14/180 24、已知字符“A”的十进制ASCII码值是65，则Asc（”BCD”）的结果是（ ）
A、66 B、67 C、68 D、69 25、Right（”abcdef”，2）的值是（ ） A、”ab” B、”ef”
C、”f”
D、”fe”
26、Str（2+3）的值是（ ） A、5 B、” 5” C、”2+3” D、2+3 27、下列赋值语句正确的是（ ）
A、A+B+C=0
B、A=B+C
C、SIN（A、=B+C D、A=2*π*R 28、如果x是一个正实数，对x的第3位小数进行四舍五入的表达式是（ ） A、0.01 * Int（x + 0.005）
B、0.01 * Int（100 * （x + 0.005）） C、0.01 * Int（100 * （x + 0.05））
D、0.01 * Int（x + 0.05）
29、A=123：B=456 C=LEN（STR（A、+STR（B、） PRINT C
运行时输出结果为（ ） A、3 B、4 C、6 D、8 30、顺序执行如下语句后，输出结果是
PRINT 1；2； PRINT 3 PRINT 4
B、1 2
行“工程”菜单中的“属性窗口”命令 C．按Ctrl+F4 D．按F4键 37．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口 中设置窗体的属性，预先应制造的操作
D．Form.Print=“myfrm”
42．对象的性质和状态特性称为（ ）。
C、Scale D、Pset（5） 49、用下面的语句声明的数组元素的个
A．事件 B．方法 C．属性 数是（ ） D．类
43．下列正确的赋值语句是（ ）。 Dim A （4 to 6，-3 to 3）As Integer A、24 B、36 C、21 D、18 A、1 2 3 4 C、1 2 3 D、1 3 4
4
2 3 4
31．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（ ）。 A．窗体设计．代码C．属性D．工程资源管理器窗口
32．窗体的Load事件的触发时机是（ ）。 A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时 33．与传统的程序设计语言相比，Visual Basuc最突出的特点是（ ）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术 34．VB6.0集成开发环境的主窗口不包括 A．标题栏 B．菜单栏 C．状态栏 D．工具栏 35．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）。
A．Text.Mytext B．Mytext.text C．Mytext.（Text） D．Mytext*Text 36．下列可以激活属性窗口的操作是（ ）。
A．用鼠标双击窗体的任何部位 B．执
是（ ）。
A．x+y=20 B．y=x+20 C．3x=y D．s=
A．单击窗体上没有控件的地方 π*r*r B．单击任一个控件 44．当使用上下文相关的帮助时，选择C．不执行任何操作 要帮助的内容，然后按（ ）键，就可出
D．双击窗体的标题栏
现MSDN窗口直接显示所需的帮助信息。 38 ．如果在文本框中键入字符时，只显 A．Help B．F10 C．ESC D．F1 示某个字符，如星号（*），应设置文本45．将调试通过的工程经“文件”菜单框的（ ）属性。
的“生成.exe.文件”编译成名.exe后，
A．Caption B．PasswordChar 就该可执行文件放到其它机器上不能运
C．Text D．Char 行的主要原因是（ ）。 39．如果想让文本框中的内容在运行时A．运行的机器上无VB系统 不能编辑，需将文本框的（ ）属性设置B．缺少.frm文件 为True。
C．该可执行文件有病毒
A．Locked B．MultiLine D．以上原因都不对
C．TabStop D．Visible 46、定义记录类型通过（ ）语句40．对于定时器（Timer）控件，设计其来实现。
定时是否开启的属性是（ ）。
A、Dim B、Record C、ReDim D、Type
A．Index B．Tag C．Enabled D．Left 47、当在文件列表中单击一个文件时将41．要在窗体Form1内显示“myfrm”，发生（ ）事件。
使用的语句是（ ）。 A、Click B、PathChange
A．Form.Caption=“myfrm” C、PattermChange D、Change
B．Form1.Caption=“myfrm”
48、在窗体或图像框中画直线的方法是
C．Form1.Print=“myfrm” A、Line B、Circle
2
50、由For j=1 To 100 Step 3 语句开头的循环，循环体被执行的次数为 A、 100 B、 50 C、 33 D、34 51、在鼠标事件中，若shift参数的值
为6，则说明用户按下了（ ） A、 Alt键 B、Ctrl键 C、Shift键 D、Ctrl和Alt键 52、运行时要向列表框中添加项目，应调用（ ）方法。
A、 Add B、AddItem C、Fill D、FillItem 53．工程文件的扩展名是（ ）。 A、vbg B、vbp C、vbw D、vbl 54、用于从字符串左边截取字符的函数是
A、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( ) 55、可获得当前系统日期的函数是 A、Date( ) B、Time( ) C、IsDate( ) D、Year( )
56、退出For循环可使用的语句为（ ） A、Exit For B、Exit Do C、End For D、End Do
57、窗体的标题栏显示内容由窗体对象的（ ）属性决定。
A、BackColor B、BackStyle C、Text D、Caption
58以下叙述中错误的是
A、Visual Basic 是事件驱动型可视化编程工具
B、Visual Basic应用程序不具有明显的开始和结束语句
C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D、Visual Basic中控件的某些属性只能在运行时设置
59以下叙述中错误的是
A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件
60、以下叙述中错误的是
A、双击鼠标可以触发DblClick事件 B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件 D、控件的名称可以由编程人员设定
61、以下不属于Visual Basic系统的文A、List1.List B、List1.ListIndex C、件类型是
List1.Index D、List1. Text A、.frm B、.bat C、.vbg D、.vbp 66、程序运行后，在窗体上单击鼠标，62、以下叙述中错误的是
此时窗体不会接收到的事件是 A、打开一个工程文件时，系统自动装入A、MouseDown B、MouseUp C、Load D、与该工程有关的窗体、标准模块等文件 Click
B、保存Visual Basic程序时，应分别67、设a=10，b=5，c=1，执行语句Print 保存窗体文件及工程文件
a > b > c后，窗体上显示的是 C、Visual Basic应用程序只能以解释方A、True B、False C、1 D、出错信息 式执行
68、如果要改变窗体的标题，则需要设D、事件可以由用户引发，也可以由系统置的属性是
引发
A、Caption B、Name C、BackColor D、63、以下能正确定义数据类型TelBookBorderStyle
的代码是
69、以下能判断是否到达文件尾的函数A、Type TelBook B、Type TelBook
是
Name As String*10 Name As String*10 A、BOF B、LOC C、LOF D、EOF TelNum As Integer TelNum As Integer 70、如果一个工程含有多个窗体及标准End Type End TelBook
模块，则以下叙述中错误的是 C、Type TelBook D、Typedef TelBook
A、如果工程中含有Sub Main过程，则Name String*10 Name String*10 程序一定首先执行该过程
TelNum Integer TelNum Integer B、不能把标准模块设置为启动模块 End Type TelBook End Type C、用Hide方法只是隐藏一个窗体，不64、以下声明语句中错误的是
能从内存中清除该窗体
A、Const var1=123 B、Dim var2 = 'ABC' D、任何时刻最多只有一个窗体是活动窗C、DefInt a-z D、Static var3 As Integer 体
65、设窗体上有一个列表框控件List1，
71、窗体的MouseDown事件过程 且其中含有若干列表项。则以下能表示Form_MouseDown (Button As Integer, 当前被选中的列表项内容的是
Shift As Integer, X As Single, Y As
3
Single)
有4个参数，关于这些参数，正确的描述是
A、通过Button参数判定当前按下的是哪一个鼠标键
B、Shift参数只能用来确定是否按下Shift键
C、Shift参数只能用来确定是否按下Alt和Ctrl键
D、参数x,y用来设置鼠标当前位置的坐标
72、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 A、Combo1.RemoveItem Text B、Combo1.RemoveItem 2 C、Combo1.RemoveItem 3 D、Combo1.RemoveItem Combo1.Listcount
73、以下关于焦点的叙述中，错误的是 A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B、当文本框失去焦点时，触发LostFocus事件
C、当文本框的Enabled属性为False时，其Tab顺序不起作用
D、可以用TabIndex属性改变Tab顺序 74、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为
75、执行语句Open "Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是
A、只能写，不能读 B、只能读，不能写 C、既可以读，也可以写 D、不能读，不能写
76、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是
77、设有以下循环结构 Private Sub Command1_Click() Do Dim a As Integer, s As Integer 循环体
a = 8 Loop While <条件> s = 1 则以下叙述中错误的是
Do A、若"条件"是一个为0的常数，则一次s = s + a 也不执行循环体
a = a－1
B、"条件"可以是关系表达式、逻辑表达Loop While a <= 0 式或常数
Print s; a C、循环体中可以使用Exit Do语句 End Sub
D、如果"条件"总是为True，则不停地执程序运行后，单击命令按钮，则窗体上行循环体
显示的内容是 78、在窗体上画一个名称为Command1的A、 7 9 B、 34 0 命令按钮，然后编写如下事件过程： C、 9 7 D、死循环 Private Sub Command1_Click() 80、设有如下通用过程：
Dim num As Integer Public Function f(x As Integer) num = 1
Dim y As Integer Do Until num > 6 x = 20 Print num; y = 2 num = num + 2.4 f = x * y Loop End Function
End Sub
在窗体上画一个名称为Command1的命令程序运行后，单击命令按钮，则窗体上按钮，然后编写如下事件过程： 显示的内容是
Private Sub Command1_Click() A、1 3.4 5.8 B、1 3 5 Static x As Integer C、1 4 7 D、无数据输出
x = 10 79、在窗体上画一个名称为Command1的
y=5
4
Print x; y End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A、10 5 B、20 5 C、20 40 D、10 40 81、设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10
Call Fun(arr(), n) Text1.Text = n End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是
82、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1
Private Sub Command1_Click() d = 0 c = 10
x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d－c End If Next i Print d End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为 A、89 B、99 C、23 D、77
83、在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、
Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其
滚动条的数值，Label3 显示A*B的计算For n = 1 To 20
结果。如图所示。当移动滚动框时，在If n Mod 3 <> 0 Then m = m + n \ 3 相应的标签中显示滚动条的值。当单击Next n 命令
Print n 按钮"计算"时，对标签Label1、Label2End Sub
中显示的两个值求积，并将结果显示在程序运行后，如果单击命令按钮，则窗Label3中。以下不能实现上述功能的事体上显示的内容是 件过 A、15 B、18 C、21 D、24
程是
85、在窗体上画一个名称为Text1的文A、Private Sub Command1_Click() 本框，并编写如下程序： Label3.Caption =
Private Sub Form_Load() Str(Val(Label1.Caption )*Val( LabeShow
l2.Caption)) Text1.Text = "" End Sub
Text1.SetFocus B、Private Sub Command1_Click() End Sub
Label3.Caption = HScroll1.＆Private Sub Form_MouseUp(Button As #118alue * HScroll2.＆#118alue Integer, Shift As Integer, X As End Sub
Single, Y As Single) C、Private Sub Command1_Click()
Print "程序设计"
Label3.Caption = HScroll1 * HScroll2 End Sub End Sub
Private Sub Text1_KeyDown(KeyCode As D、Private Sub Command1_Click() Integer, Shift As Integer) Label3.Caption = HScroll1. Text * Print "Visual Basic"; HScroll2.Text End Sub
End Sub
程序运行后，如果按"A"键，然后单击窗84、在窗体上画一个名称为Command1的体，则在窗体上显示的内容是 命令按钮，然后编写如下事件过程：
A、Visual Basic B、程序设计
5
计
86、设有如下程序：
Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0
For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub
该程序通过For循环计算一个表达式的值，这个表达式是 A、1+1/2+ 2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5
87、 表示窗体名称的属性是（ ）
A．Name B、 caption C、 top D、title
88、 以下数据类型中存储空间最大的是（ ）
A．长整型 B、 货币型 C、单精度浮点型 D、整型
89、 下面对窗体form进行属性设置，其中不正确的是（ ）
VB程序设计期末考试360题库篇八：大学计算机期末考试题库(程序设计)
30001题:VB 窗体默认的坐标单位是（ ）。选择支：A: cmB: mC: TwipD: Pix答案：C30002题:VB6.0中专门为程序代码的书写提供了一个（ ）窗口。选择支：A: 代码 B: 属性C: 窗体 D: 立即答案：A30003题:VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（ ）窗口来管理工程。选择支：A: 工程资源管理器B: 属性C: 窗体 D: 窗体布局答案：A30004题:Visual Basic程序中的注释所使用的字符是（ ）。选择支：A: 'B: :C: \D: _答案：A30005题:Visual Basic程序中分隔一行中各语句的字符是（ ）。选择支：A: 'B: :C: \D: _答案：B30006题:关于VB中程序运行的方式，以下说法正确的是（ ）。选择支：A: 只能使用解释运行模式B: 只能使用编译运行模式C: 既不能使用解释运行模式，也不能使用编译运行模式D: 既能使用解释运行模式，又能使用编译运行模式答案：D30007题:若要将控制权交还给操作系统，则实现的语句为（ ）。选择支：A: ExitB: End SubC: Exit subD: End答案：D30008题:下列不属于常量的是（ ）。选择支：A: 12B: “ch”C: abcD: 1.23答案：C30009题:下列不属于数值数据类型的是（ ）。选择支：A: 整型 B: 实型C: 货币型D: 日期答案：D30010题:下列可作为Visual Basic的变量名的是（ ）。选择支：A: AbtB: TABC: IFD: A[B]T答案：A30011题:下列可作为Visual Basic的变量名的是（ ）。选择支：A: FilenameB: A（A＋B）C: A%DD: Print答案：A30012题:下列可作为Visual Basic的变量名的是（ ）。选择支：A: AbtB: TAC: IFD: A[B]T答案：A30013题:下列哪个符号不能作为Visual Basic的变量名（ ）。选择支：A: AbCB: POOOC: 8TFD: xyz答案：C30014题:要让菜单项不显示出来，应将（ ）属性值设置为False。选择支：A: VisibleB: EnabledC: MoveableD: Checked答案：A30015题:以下不是Visual Basic中的事件是（ ）。选择支：A: DblClickB: MouseMoveC: CaptionD: Change答案：C30016题:以下不是结构化程序设计的基本控制结构的是（ ）。选择支：A: 逆序结构 B: 顺序结构 C: 选择结构D: 循环结构答案：A30017题:以下过程是（ ）。Public Function MaxNum( )……End Function选择支：A: 用户自定义函数B: 按钮单击事件C: 窗体单击事件 D: 窗体属性答案：A30018题:以下过程是（ ）。Public Function MaxNum( )……End Fu
nction选择支：A: 用户自定义函数 B: 按钮单击事件 C: 窗体单击事件 D: 窗体属性答案：A30019题:以下过程是（ ）事件。Prviate Sub Form_Click( )……End Sub选择支：A: 命令按钮的单击B: 命令按钮的双击C: 窗体的单击D: 窗体的双击答案：C30020题:以下过程是（ ）事件。Prviate Sub Form_Load( )……End Sub选择支：A: 命令按钮的单击B: 命令按钮的装载C: 窗体的装载D: 窗体的单击答案：C30021题:以下过程是标签Label1的（ ）事件。Prviate Sub Label1_Click( )……End Sub选择支：A: 单击 B: 双击C: 拖拽D: 移动答案：A30022题:以下过程是标签Label1的（ ）事件。Prviate Sub Label1_DblClick( )……End Sub选择支：A: 单击 B: 双击 C: 拖拽 D: 移动答案：B30023题:以下过程是窗体Form1的（ ）事件。Prviate Sub Form_Click( )……End Sub选择支：A: 单击 B: 双击 C: 装载 D: 按键答案：A30024题:以下过程是窗体Form1的（ ）事件。Prviate Sub Form_DblClick( )……End Sub选择支：A: 单击 B: 双击 C: 装载D: 按键答案：B30025题:以下过程是命令按钮的（ ）事件。Prviate Sub Command1_Click( )……End Sub选择支：A: 单击 B: 双击 C: 拖拽D: 移动答案：A30026题:在VB中，若某变量未经Dim语句声明便直接使用，系统会默认其为（ ）。选择支：A: 整型 B: 变体型C: 字符型D: 单精度型答案：B30027题:子过程是以（ ）保留字开始的。选择支：A: FunctionB: SubC: PropertyD: Event答案：B30028题:Visual Basic程序中语句行的续行符是（ ）。选择支：A: 'B: :C: \D: _答案：D30029题:For语句的格式如下，下列说法错误的是（ ）。For <循环变量>=<初值> to <终值> [step <步长>][<循环体>][exit for]Next [<循环变量>]选择支：A: 步长只能为正数，不能为负数B: 步长为1时，可略去不写C: 初值、终值和步长都是数值表达式D: next后的循环变量与for语句中的循环变量必须相同答案：A30030题:InputBox 函数返回值的类型是（ ）。选择支：A: 数值 B: 字符串C: 变体 D: 逻辑答案：B30031题:VB中的菜单（ ）。选择支：A: 有组合式菜单和列表式菜单B: 有下拉式菜单和弹出式菜单C: 只有弹出式菜单D: 只有下拉式菜单答案：B30032题:Vb中描述文件路径的是（ ）属性。选择支：A: DriveB: PatternC: FileNameD: Path答案：D30033题:Visual Basic 6.0集成环
境的主窗口中不包括（ ）。选择支：A: 标题栏B: 菜单栏C: 状态栏D: 工具栏答案：C30034题:Visual Basic 窗体设计器的主要功能是（ ）。选择支：A: 建立用户界面B: 编写源程序代码C: 画图D: 显示文字答案：A30036题:不属于VB三种工作模式的是（ ）。选择支：A: 设计模式B: 运行模式C: 调试模式D: 中断模式答案：C30037题:从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是( ) 。选择支：A: 学习版B: 免费版C: 专业版D: 企业版答案：B30038题:打印机的对象名为（ ）。选择支：A: PrintB: PrinterC: NewPageD: PrintForm答案：B30039题:定义定长字符串的方法是（ ）。选择支：A: Dim str As stringB: Dim str As string*10C: Dim str$=10D: Dim str$答案：B30040题:关于VB源代码的编写，下列说法错误的是（ ）。选择支：A: VB源代码中不区分字母的大小写B: 同一行可以写多个语句C: 可以适当添加注释有利于程序的维护和调试D: 一个语句必须写在一行中，不可分成多行来书写答案：D30041题:关于Visual Basic中事件的说法中，不正确的为（ ）。选择支：A: 事件是由Visual Basic预先定义好的，能够被对象识别的动作B: DblClick（双击）是Visual Basic中的一种事件C: 一个对象可以识别一个或多个事件D: 对于一个系统提供的对象可以识别哪些事件，需要程序员自己决定答案：D30042题:关于条件语句，下列说法错误的是（ ）。选择支：A: 条件语句中的“条件”可以是逻辑表达式或关系表达式B: 条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示falseC: 在块结构条件语句中，“语句块”中的语句不能与then在同一行上D: 块结构的条件语句和单行结构的条件语句都必须以End if结束答案：D30043题:关于无条件转移语句Goto <标号>的说明，下列说法错误的是（ ）。选择支：A: 该语句的功能是把控制转移到“标号”所在的程序行B: 其中的标号可以是一个标识符或整型数C: 程序中必须为每一个Goto语句提供一个唯一的转向入口D: Goto语句与其相应的转向入口可以在同一过程中，也可在不同过程中。答案：D30044题:激活弹出式菜单的命令是（ ）。选择支：A: LoadB: ShowC: SetFocusD: PopupMenu答案：D30045题:下列关于条件语句的说法中正确的为（ ）。选择支：A: if语句中可以没有then保留字B: if语句中可以没有else保留字C: if语句中只能有一个elseif分句D: if语句都可以由iif语句替代答
案：B30046题:下列控件中可设置滚动条是（ ）。选择支：A: 检查框（复选框） B: 框架C: 文本框D: 标签框答案：C30047题:下列叙述中正确的是（ ）。选择支：A: 只有窗体才是Visual Basic 中的对象B: 只有控件才是Visual Basic中的对象C: 窗体和控件都是Visual Basic中的对象D: 窗体和控件都不是Visual Basic中的对象答案：C30048题:要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（ ）字符。选择支：A: /B: @C: &D: \答案：C30049题:一个VB工程中标准模块文件的扩展名是（ ）。选择支：A: .vbpB: .frmC: .frxD: .bas答案：D30050题:一个VB工程中窗体文件的扩展名是（ ）。选择支：A: .vbpB: .frmC: .frxD: .bas答案：B30051题:一个VB工程中工程文件的扩展名是（ ）。选择支：A: .vbpB: .frmC: .frxD: .bas答案：A30052题:一个长整型变量在内存中占据（ ）字节的空间。选择支：A: 1B: 2C: 4D: 8答案：C30053题:一个单精度型变量在内存中占据（ ）字节的空间。选择支：A: 1B: 2C: 4D: 8答案：C30054题:一个工程文件可包含7种类型的文件，下列哪个文件不包含其中（ ）。选择支：A: 工程文件 B: 窗体文件 C: 可执行文件D: 资源文件答案：C30055题:一个双精度型变量在内存中占据（ ）字节的空间。选择支：A: 1B: 2C: 4D: 8答案：D30056题:一个整型变量在内存中占据（ ）字节的空间。选择支：A: 1B: 2C: 4D: 8答案：B30057题:一个字节型变量在内存中占据（ ）字节的空间。选择支：A: 1B: 2C: 4D: 8答案：A30058题:以下不属于工程资源管理器窗口中的文件分类为（ ）。选择支：A: 程序模块文件（.bas） B: 类模块文件（.cls）C: 工程文件（.vbp） D: 可执行文件（.exe）答案：D30059题:以下关于while-wend循环的说法中正确的为（ ）。选择支：A: 与do while-loop循环完全一致B: 不能用do while-loop循环来代替C: 其循环中不能使用exit while 退出循环D: while-wend不能实现所有循环要求答案：C30060题:以下过程的定义中，（ ）是错误的。选择支：A: Public Sub Sum(x ; y)B: Public Sub Sum(ByVal x, ByVal y)C: Public Sub Sum(x As Integer,y As Integer)D: Public Sub Sum(x%, y%)答案：A30061题:以下说法错误的是（ ）。选择支：A: 注释语句用来对程序或程序中某些语句做注释，使程序便于理解B: 注释语句是非执行语句C: 注释语句不能放在
执行语句的后面D: 任何字符都可以放在注释行中作为注释内容答案：C30062题:以下正确的叙述是（ ）。选择支：A: 用属性窗口只能设置窗体的属性B: 用属性窗口只能设置控件的属性C: 用属性窗口可以设置窗体和控件的属性D: 用属性窗口可以设置任何对象的属性答案：C30063题:用于常量说明的关键字是（ ）。选择支：A: ConstB: DimC: PublicD: Static答案：A30064题:在VB6.0的集成开发环境中调试程序时，用户可直接在（ ）窗口中用Print方式或直接在程序中用Debug.Print方法显示表达式的值。选择支：A: 代码B: 属性C: 窗体 D: 立即答案：D30065题:在VB中，数值型数据可以用八进制数来表示，但必须在其前面冠以（ ）。选择支：A: OB: HC: &O D: &H答案：C30066题:在VB中，数值型数据可以用十六进制数来表示，但必须在其前面冠以（ ）。选择支：A: OB: HC: &O D: &H答案：D30067题:在Visual Basic中建立一个空窗体，( )不会是其默认名。选择支：A: Form1B: Form2C: FormxD: Form10答案：C30068题:在菜单设计器中，要将当前菜单项上移一个等级，应按（ ）按钮。选择支：A: “左箭头”B: “右箭头”C: “上箭头”D: “下箭头”答案：A30069题:在菜单设计器中，要将当前菜单项上移一个位置，应按（ ）按钮。选择支：A: “左箭头”B: “右箭头”C: “上箭头”D: “下箭头”答案：C30070题:在菜单设计器中，要将当前菜单项下移一个等级，应按（ ）按钮。选择支：A: “左箭头”B: “右箭头”C: “上箭头”D: “下箭头”答案：B30071题:在菜单设计器中，要将当前菜单项下移一个位置，应按（ ）按钮。选择支：A: “左箭头”B: “右箭头”C: “上箭头”D: “下箭头”答案：D30072题:在以下事件过程中，Private表示（ ）。选择支：A: 此过程可以被任何其它过程调用B: 此过程只可以被本窗体模块中的其它过程调用C: 此过程不可以被任何其它过程调用D: 此过程是一个不可用过程 Private Sub txtName_Change()…… End Sub答案：B30073题:“&”用作字符串连接符时，下列说法正确的是（ ）。选择支：A: 连接符两旁的操作符只能为数值型B: 连接符两旁的操作符只能为字符型C: 连接符两旁的操作符既可为数值型，也可为字符型D: 连接符两旁的操作符既不能为数值型，也不能为字符型答案：C30074题:“＋”用作字符串连接符时，下列说法正确的是（ ）。选择支：A:
VB程序设计期末考试360题库篇九：vb题库
1、能够获得一个文本框中被选取文本的内容的属性是______。
A：SelStart
B：SelLength
C：SelText
D：Text
参考答案：C
2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A：Text1.Enabled = False
B：Text1.Hide
C：Text1.Clear
D：Text1.Visible = False
参考答案：D
3、对于语句 If x=1 Then y=1, 下列说法正确的是____。
A： x=1和y=1 均为赋值语句
B： x=1和y=1 均为关系表达式
C： x=1为赋值语句，y=1为关系表达式
D： x=1为关系表达式，y=1 为赋值语句
参考答案：D
4、以下变量名中，______是不符合Visual Basic的命名规范的。
A：_mnu_Open_234
B：Abc901
C：price_
D：K
参考答案：A
5、MsgBox 函数返回值的类型是__________。
A：数值或字符串
B：字符串
C：变体
D：整型数值
参考答案：D
6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。
A：进入中断模式
B：进入运行模式
C：进入设计模式
D：不用进入任何模式
参考答案：A
7、设a=6，则执行 x=IIF(a>5,-1,0) 后，x的值为______。
A：-1
B：6
C：0
D：5
参考答案：A
8、可以同时删除字符前导和尾部空白的函数是______。
A：Mid
B：Rtrim
C：Trim
D：Ltrim
参考答案：C
9、以下语句的输出结果是______。
Print Format$("32548.5","000,000.00")
A：32,548.5
B：32548.5
C：032,548.50
D：32,548.50
参考答案：C
10、设有如下声明：
Dim X As Integer
如果Sgn(X)的值为-1，则X的值是______。
A：等于0的整数
B：大于0的整数
C：整数
D：小于0的整数
参考答案：D
11、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print Command1_Click() x
End Sub
程序运行后，单击命令按钮，输出结果是______。
参考答案： 15# 15 #15 #15
12、执行下面的程序段后，S的值为______。
s=5
For i=2.6 To 4.9 Step 0.6
s=s+1
Nexti 参考答案：9
13、下列表达式有错误,正确的写法应该是______。
[(a+b)+c]/80-5÷(d+e)
参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）
14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________
参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0
15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()
Dim x, y As Single
Dim z As Integer
x = InputBox("Enter a score")
Do while x>=0
y = y + x
z = z + 1
x = InputBox("Enter a score")
Loop
If z = 0 Then
z = 1
End If
y = ______
Print y
End Sub
参考答案：y/z
VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A：ListIndex
B：ListCount
C：Count
D：Index
参考答案：B
2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
A：Private Sub List1_Click()
Label1.Caption=List1.Text
End Sub
B：Private Sub List1_Click()
Label1.Name=List1.ListIndex
End Sub
C：Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D：Private Sub List1_Click()
Label1.Caption=List1.ListIndex
End Sub
参考答案：A
3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A：Listindex
B：Index
C：List
D：Tabindex
参考答案：A
4、为了清除列表框中的所有内容，应使用的方法是：______。
A：Clear
B：Remove
C：RemoveItem
D：Cls
参考答案：A
5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。
A：For i=1 To List1.ListCount
NEXT
B：For i=0 To List1.Count-1
……
NEXT
C：For i=0 To List1.ListCount-1
……
NEXT
D：For i=1 To List1.Count
……
NEXT
参考答案：C
6、设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 3
Print a(5 - i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是______。
A： 6 5 4 3
B： 5 4 3 2
C： 4 3 2 1
D： 7 6 5 4
参考答案：A
7、设执行以下程序段时依次输入1、3、5，执行结果为______。 Dim a(4) As Integer, b(4) As Integer
For K = 0 To 2
a(K + 1) = Val(InputBox("请输入数据"))
b(3 - K) = a(K + 1)
Next K
Print b(K)
A： 0
B： 3
C： 5
D： 1
参考答案：D
8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
VB程序设计期末考试360题库篇十：大学 VB题库总题
第一章 VB环境和基础
一、选择题
1. 标准模块文件的扩展名为______d___。
A、.frm B、.res C、.cls D、.bas
2. 激活菜单栏的快捷键是：a
A、 F10 B、 F4 C、 F5 D、 Ctrl
3. 当我们输入代码时，Visual Basic可以自动检测____a____错误。
A、语法错误 B、编译错误 C、运行错误 D、逻辑错误
4. 下列方法中不能退出Visual Basic的是:b
A、 按Alt+Q组合键 B、 按下Alt+F组合键，然后按Esc键
C、 打开“文件”菜单，执行“退出”命令 D、 按F10键，然后按F键，再按X键 5. 一个工程必须包含的文件的类型是:a
A、*.vbp ,*.frm ,*.frx B、*.vbp ,*.cls, *.bas
C、*.bas ,*.ocx ,*.res D、*.frm ,*.cls ,*.bas
6. 下列可以打开立即窗口的操作是：d
A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G
7. 刚建立一个新的标准EXE工程后，出现在工具箱中的控件是：c
A、CommonDialog B、ListView C、TextBox D、Toolbar
8. Visual Basic窗体设计器的主要功能是：a
A、建立用户界面 B、编写源程序代码
C、画图 D、显示文字
9. 下列可以启动Visual Basic的方法是:d
A、 打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击“VB6.exe”图标
B、 在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件
C、 利用“开始”菜单中的“程序”命令可启动Visual Basic
D、 A) 和C)
10. 资源文件的扩展名为_______a__。
A、.res B、.frm C、.vbp D、.bas
11. 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置:c
A、 “属性”对话框 B、 “程序代码”窗口 C、 “选项”对话框 D、 对象浏览器
12. 下列可以打开文件对话框的操作是:a
A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G
13. Visual Basic集成的主窗口中不包括：
A、 属性窗口 B、标题栏 C、 菜单栏 D、 工具栏
14. VB的启动有多种方法，下面不能启动VB的是:
A、 使用“开始”菜单中的“程序”命令
B、 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字
C、 使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹
D、 先打开VB的“文件”菜单，再按Zlt+Q组合键
15. 创建VB应用程序的主要步骤是：①创建应用程序界面 ②设置控件 ③设置属性 ④编写代码 ，其中正确的步骤是:
A、①③④ B、①②④ C、②③④ D、①②③④
16. Microsoft Visual Basic 6．0包括三种版本，其中不包括：
A、通用版 B、企业版 C、学习版 D、专业版
17. Visual Basic中窗体文件的扩展名是：
A、VBP B、FRM C、VBW D、PDM
18. 在Visual Basic的集成开发环境中不能执行程序的方法是：
A、按F8键 B、按F5键 C、按F9键 D、按Shift+F8
19. 通过以下________窗口可以在设计时直观的调整窗体在屏幕上的位置。
A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口
20. VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是:
A、 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件
B、 标准模块是一个纯代码性质的文件，它不属于任何一个窗体
C、 用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas
D、 资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑
21. 在Visual Basic 6中下列________是不对的。
A、可以编写ActiveX控件
B、可以编写网络程序
C、可以通过直接访问或建立连接的方式访问大型网络数据库
D、可以写出16位应用程序
二、填空题
1. Visual Basic中的控件分为3类，它们是标准控件、和可插入对象。 2. Visual BASIC应用程序通常由3类模块组成，即窗体模块、 和类模块。
第一章答案
一、选择题
1. D 2. A 3. A 4. B 5. A 6. D 7. C 8. A 9. D 10. A 11. C 12. A
13. A 14. D 15. A 16. A 17. B 18. C 19. B 20. C 21. D
二、填空题
1. ActiveX控件
2. 标准模块
第二章 VB对象及操作
一、选择题
1. 下列不能打开属性窗口的操作是：
A、执行"视图"菜单中的"属性窗口"命令
B、按F4键
C、按Ctrl+T
D、单击工具栏上的"属性窗口"按钮
2. 下列不能打开工具箱窗口的操作是:
A、执行“视图”菜单中的“工具箱”命令
B、按Alt+F8键
C、单击工具栏上的“工具箱”按钮
D、按Alt+V，然后按X键
3. 以下不能在“工程资源管理器”窗口中列出的文件类型是：
A、．bas B、．res C、．frm D、．ocx。
4. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是:
A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块
5. DataTime是一个Data类型的变量，以下赋值语句中错误的是:
A、DataTime=#5/14/01# B、DataTime=#September 1,2001#
C、DataTime=#12:15:00 AM# D、DataTime=“8/8/99”
6. 关于Visual Basic"方法"的概念错误的是:
A、 方法是对象的一部分 B、 方法是预先定义好的操作
C、 方法是对事件的响应 D、 方法用于完成某些特定的功能 7. 在设计应用程序时，通过_______窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口 B、窗体设计窗口
C、属性窗口 D、工程资源管理器窗口
8. 保存一个工程至少应保存两个文件，这两个文件分别是:
A、文本文件和工程文件 B、窗体文件和工程文件
C、窗体文件和标准模块文件 D、类模块文件和工程文件
9. 为了保存一个VB应用程序，下列叙述中正确的是:
A、只保存窗体文件（.frm） B、只保存工程文件（.vbp）
C、分别保存工程文件和窗体文件 D、分别保存工程文件和标准模块文件（.bas）
二、填空题
1. Visual Basic对象可以分为两类，分别为。
2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click()
Text1.Text = "VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print "VBProgramming"
End Sub
程序运行后,单击窗体,在文本框中显示的内容是_________,而在图片框中显示的内容是_________。
第二章答案
一、选择题
1. C 2. B 3. D 4. B 5. D 6. C 7. D 8. B 9. C
二、填空题
1. 预定义对象、用户定义对象
2. VB程序设计；VBProgramming
第三章VB数据类型及运算
一、选择题
1. 可以同时删除字符前导和尾部空白的函数是：
A、Ltrim B、Rtrim C、Trim D、)Mid
2. 计算结果为0的表达式是:
A、Int(2.4)+Int(-2.8) B、Cint(2.4)+Cint(-2.8)
C、Fix(2.4)+Int(-2.8) D、Fix(2.4)+Fix(-2.8)
3. 用于获得字符串S从第2个字符开始的3个字符的函数是:
A、 MId$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3) 4. 符号％是声明_______类型变量的类型定义符。
A、Integer B、Variant C、Single D、String
5. 定义变量如下：
Dim My_Var
My_Var =”come see me “
若在立即窗口中显示My_Var的值，下面正确的是:
A、Debug.Print My_Var B、PictureBox.Print My_Var
C、Printer.Print My_Var D、Print My_Var
6. 在窗体上画一个命令按钮(名称为Command1)，编写如下事件过程： Private Sub Command1 click()
b=5
c=6
Prim a=b+c
End Sub
程序运行后，单击命令按钮，输出的结果是：
A、a=ll B、a=b+c C、a= D、False
7. 以下变量名中，_________是不符合Visual Basic的命名规范的。
A、Abc901 B、_mnu_Open_234 C、price_ D、K
8. 函数String(n，“str”)的功能是：
A、把数值型数据转换为字符串
B、返回由n个字符组成的字符串
C、从字符串中取出n个字符
D、从字符串中第n个字符的位置开始取子字符串
9. 下面对哪一种变量的类型说明符的使用是正确的:
A、Dim a:a@=2000 B、Dim a:a%=50000
C、Dim a:a&=True D、Dim a:a$=“OK”
10. 下列各组常量的声明正确的是:
A、Const C as 3 B、Const c=1/3 C、Public I=3 D、Puclic I=1/3 11. 根据变量的作用域，可以将变量分为3类，分别为:
A、 局部变量、模块变量和全局变量 B、 局部变量、模块变量和标准变量
C、 局部变量、模块变量和窗体变量 D、 局部变量、标准变量和全局变量 12. 声明一个变量为局部变量应该用:
A、 Global B、 Private C、 Static D、 Public 13. 关于货币型数据的说明，正确的是:
A、 货币型数据有时可以表示成整型数据
上一篇：内蒙古人事局电话
下一篇：河南省人事局官网电话