vb考试题库及答案,最新vb题库答案
大一vb期末考试试题
单项选择题 判断题 填空题 编程题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dim a(4) As Integer
Dim 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) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序执行后，变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x10)
s=s+x
x=x+2
Loop
Print s
a) 10
b) 25
c) 50
d) 100 答案：B
4) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D
5) 当变量x=2,y=5时，以下程序的输出结果为____。
Do until y5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x=8
b) x=8
c) x=7
d) x=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a5 then
if b4 then
c=a-b
else
c=b-a
End if
elseif b3 then c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案：A
9) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例” 答案：D
10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
11) 下列程序的运行后s的值是_____。
S=0
For x=99 to 1 Step-2
s=s+x
Next x
Print s
a) 100
b) 500
c) 2500
d) 5000 答案：C
12) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：A
13) 下列程序的执行结果是_____。
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456
b) 6
c) 654321
d) 0 答案：A
14) 下列程序的执行结果为_____。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：C
15) 下列程序的执行结果为_____。
Dim S As Integer,n As Integer
S=0:n=1
Do While n=100
S=S+n
n=n+1
Loop
Print S
a) 5050
b) 2500
c) 3000
d) 4000 答案：A
16) 下列程序的执行结果为_____。
A=100:b=50
If ab Then
a=a-b
Else
b=b+a
End if
Print a
a) 50
b) 100
c) 200
d) 10 答案：A
17) 下列程序的执行结果为________。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=0 To 50 Step 10
intsum=intsum+I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：A
18) 下面程序执行后，X的结果为_____。
X=0
For I =1 to 5
For j=I to 5
X=X+1
Next j
Next I
Print X
a) 5
b) 10
c) 15
d) 20 答案：C
19) 下面程序执行的结果是____。
Private Sub Form_Click()
A$="123":B$="456"
C=Val(A$)+Val(B$)
Print C\100
End Sub
a) 123
b) 3
c) 5
d) 579 答案：C
20) 下列循环语句将执行______次。
A=100
Do
Print a
a=a+1
Loop until a=10
a) 1
b) 10
c) 100
d) 死循环 答案：D
21) 下面程序段的循环结构执行后， 的输出值是_____。
程序段为：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22) 写列程序段的执行结果____。
A="abbacddcba"
for I=6 to 2 step -2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x y z
next I
print Ucase(z)
a) ABA
b) AABAAB
c) BBABBA
d) ABBABA 答案：C
23) 以下语句输出结果是（在立即窗口中）_____。
A="Beijing"
b="ShangHai"
Print a;b
a) Beijing ShangHai
b) Abeijing ShangHai
c) BeijingShangHai
d) Abeijing 答案：C
24) 有如下程序：
For I=1 To 3
For j=5 To 1 Step-1
Print I+j
Next j,I
其循环执行的次数为______。
a) 12
b) 13
c) 14
d) 15 答案：D
25) 有如下程序段，该程序执行后，变量a的值为______。
For I=1 To 2
For J=I To 2
For K=1 To J
a=a+2
Next K
Next J
Next I
a) 2
b) 8
c) 10
d) 20 答案：C
26) 执行下列程序后，变量a的值为____。
Dim I as integer
dim a as integer
a=0
for I=0 to 100 step 2
a=a+1
next I
a) 1
b) 10
c) 51
d) 100 答案：C
27) 执行下列程序后，X的值为______。
X=3
y=6
Do While y=6
x=x*y
y=y+1
Loop
a) 3
b) 6
c) 18
d) 20 答案：C
28) 执行下列程序段后，整型变量c的值为___。
A=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
a) 537
b) 2427
c) 24328
d) 240328 答案：C
29) 执行完下面的程序段后，循环将执行____次。
For I=1.7 To 5.9 Step 0.9
a=a+1
Print a
Next I
a) 3
b) 4
c) 5
d) 6 答案：C
30) 有如下语句，执行后该段语句的循环次数是_____。
Dim s,I,j as integer
For I =1 to 3
For j=3 To 1 Step-1
S=I*j
Next j
Next I
a) 9
b) 10
c) 3
d) 4 答案：A
31) 有如下程序，该程序将______。
For I=1 to 10 step 0
K=k+2
Next I
a) 形成无限循环。
b) 循环体执行一此后结束循环。
c) 语法错误。
d) 循环体不执行即结束循环。 答案：A
32) 有如下程序段，该程序段执行完毕后，共循环了________。
For I=1 To 5
For j=1 To I
For k=j To 4
Print "a"
Next k
Next j
Next I
a) 4
b) 5
c) 38
d) 40 答案：D
33) 有如下程序，该程序的运行结果为______。
Dim k As Integer
n=5:m=1:k=1
Do While k=n
m=m*2
k=k+1
Loop
Print m
a) 1
b) 5
c) 32
d) 40 答案：C
34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click()
Dim x As Double
For I=0 To 1000
If ____ Then
x=x+I
End If
Next I
Print x
End Sub
a) i Mod 2 = 0
b) x Mod 2 = 0
c) I Mod 2 0
d) x Mod 2 0 答案：A
35) 以下是计算10的阶乘的程序，请补充该程序。
Dim t as single
Dim k as Integer
k=0:t=1
While_______
k=k+1
t=t*k
Wend
Print t
a) k10
b) k10
c) k=10
d) k=10 答案：A
36) _____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
a) 文件
b) 属性
c) 方法
d) 窗体 答案：C
37) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。
a) 单选按钮
b) 图片框
c) 通用对话框
d) 文本框 答案：C
38) 下列各项不是Visual Basic的基本数据类型的是_____。
a) Char
b) String
c) Integer
d) Double 答案：A
39) 下列运算结果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：D
40) 以下不属控件的一项是_____。
a) 文本框
b) 标签框
c) 列表框
d) 消息框 答案：D
41) 用InputBox函数可帮助生成_______。
a) 消息框
b) “保存”对话框
c) 简单输入框
d) “颜色”对话框 答案：C
42) ______对象不能响应Click事件。
a) 列表框
b) 图片框
c) 窗体
d) 计时器 答案：D
43) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
44) 变量X=32769，则变量声明时不能将其声明为_____。
a) Intrger
b) Variant
c) Long
d) Single 答案：A
45) 表达式2*3^2+2*8/4+3^2的值为_____。
a) 64
b) 31
c) 49
d) 22 答案：B
46) 复选对象是否被选中，是由其_____属性决定的。
a) Checked
b) Value
c) Enabled
d) Selected 答案：B
47) 没有Caption属性的控件是_____。
a) Label
b) OptionButton
c) Frame
d) LisBox 答案：D
48) 下列符号是Visual Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
d) AB_7 答案：D
49) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。
a) Max和Min
b) SmallChange和LargeChange
c) Scroll和Change
d) Value 答案：A
全国计算机二级vb考试具体考什么内容？
一、对于笔试：
二级VB考试的考题内容很细，没有复杂的算法题，最多只是一些看起来复杂（其实很有规律）的循环题。那么，我们要做的是：
1：按照大纲读懂（理解）教材上的的内容。
2：做一些历年的考试题目，根据作者的经验，每年的考题中都会有一些重复或相似的考题。当然最主要的是做完最近几年的几套考题后，自己就会对考试内容“胸有成竹”，自然就会知道哪是重点，哪些该复习，有的放矢。
3：针对特殊题型和重点内容做题。
二、对于机试:
两个字，做题。可以把过去两到四次内的考题拿过来做。 当然，我们在做题是要端正心态，因为谁也不敢保证您将来考的一定会在您现在做的题（当然总有那么一半的人有这运气，呵呵），做题是因为一门课程内容太多，做题可以帮助理解，毕竟考题很活。
简单分析一下：
基本操作(30分两小题)：考核重点一般集中在：工程新建与保存、控件的一些基本属性的设置（如：名称、标题、大小、位置、值等）、基本方法的使用（如：Print等）
简单应用(40分两小题)：考核重点一般集中在：简单算法(如：求最大数、素数、排序等)、通过代码窗口操作对象属性、控件数组的建立与通过循环访问等。
综合应用(30分一小题)：考核重点一般集中在：顺序文件的读写操作、读文件一般都会用到循环或数组。
一、关于计算机二级考试的目的及内容
计算机二级考试内容包括 C 语言， Q Basic ， Foxbase, Visual FoxPro 和 Visual Basic 。考生从中选出一项作为考试项目。考试分两部分，上机和笔试。笔试就是一些基本的操作方法，编程方法，上机就是要亲自编程。报名时可以购买复习资料，包括：考试大纲，二级教材以及模拟考试光盘。听起来好像挺玄，其实考试方式以及内容都是极其简单的 —— 如果真的仔细看过复习资料。
二、计算机二级考试的准备过程
可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。
计算机等级考试的报名时间大约是每年的 1 月和 6 月，分别对应 4 月和 9 月的考试。我选择的是第一次进入考试内容的 Visual Basic 。因为以前多少在计算机课上学过一点，对其内容和界面有所了解。大三结束放暑假前，我下定决心一定要在这个暑假里攻破二级的 VB 。真到放假了才知道放假前立下的宏志实在是很脆弱。放暑假后没几天我就跑到成都玩去了：那里有太多吸引我的东西：山水，小吃，还有朋友。临行前我还装模作样地往行李中放了一本二级教材，结果那个东西除了用来夹了几张我的照片以外就再没有发挥任何作用。
八月中旬后我才算是能安下心来准备那倒霉的考试了，打开书，我一页一页仔仔细细地看了一遍，对每一章每一节的 课后习题也作了思考。半个月过去了，其实中间也有偷懒了的几天，不过一本书算是看完了，感觉豁然开朗。于是开学以后放下书本，做了做模拟光盘。上机编程部分的题目完全说不上难，模拟题比数学的练习题要简单得多。但是总是在软件判分的时候得不到好的结果。仔细察看才知道，原来只有自己编的程序和所谓 " 正确答案 " 一模一样的，才能得到满分。但是，编写程序完全可以有不同的方法得到相同的结果。这下我知道了为什么上机考试如此困难了。应对的方法就只有 仔细分析所给的答案，体会出一些技巧和规律性的东西，通过考试应该是完全没有问题的。可以说，有了模拟考试的光盘，弄懂并且做熟练了以后，最后的上机考试就变成了完全没有意义的反射运动了。 关键是要肯拿出一点时间来练习。
三、考试实战篇
先说笔试 。包括选择和填空，都是一些基本的概念和编程方法。只要仔细地看过一遍书的人，笔试决不会出现不能通过的现象。我所知道的一些参加过考试的人也普遍认为笔试是很容易的。我进入考场的时候很镇静，看到卷子以后放眼望去都是自己十分熟悉的名词和内容，做起来也十分顺手。做的时候还是要认真的，不可轻敌。考场上一片寂静，大家都奋笔疾书，埋头苦干。考试时间过了不到一半，我已经将所有题做完了。我耐心地坐在位子上从头到尾检查了一遍，此时离考试结束时间还太远，我等不及了，于是交了卷子，离开了教室。两个字 —— 不难。
再说上机考试 。现在考场外领取考试座位号，听老师叙述考试规则，然后进入考场。每人一台电脑，题目从题库中随机抽取，每人题目各不相同，所以监考老师任务并不重。但是这也就造成了考场气氛比较混乱，少不了周围的人都在交头接耳。克服这种混乱的干扰，集中精力在自己的题目上是很必要的。考试开始，我比较小心地开始做题，要尽量按照模拟考试光盘答案的思路。不过题型是熟悉得不能再熟悉了，和光盘上的没什么两样。我三下五除二就把八道题做完了。两个小时的考试，我四十分钟就走出考场。其中一个监考老师走出来叫住我，我还想呢，我没有违反考试纪律啊，他却和蔼地走上来问我复习的经验等等。其实我也没什么经验，就是看书，做题
2.
二级VB考试的考题内容很细，没有复杂的算法题，最多只是一些看起来复杂（其实很有规律）的循环题。那么，我们要做的是：
1：按照大纲读懂（理解）教材上的的内容。
2：做一些历年的考试题目，根据作者的经验，每年的考题中都会有一些重复或相似的考题。当然最主要的是做完最近几年的几套考题后，自己就会对考试内容“胸有成竹”，自然就会知道哪是重点，哪些该复习，有的放矢。
3：针对特殊题型和重点内容做题。
二、对于机试:
两个字，做题。可以把过去两到四次内的考题拿过来做。 当然，我们在做题是要端正心态，因为谁也不敢保证您将来考的一定会在您现在做的题（当然总有那么一半的人有这运气，呵呵），做题是因为一门课程内容太多，做题可以帮助理解，毕竟考题很活。
简单份析一下：
基本操作(30分两小题)：考核重点一般集中在：工程新建与保存、控件的一些基本属性的设置（如：名称、标题、大小、位置、值等）、基本方法的使用（如：Print等）
简单应用(40分两小题)：考核重点一般集中在：简单算法(如：求最大数、素数、排序等)、通过代码窗口操作对象属性、控件数组的建立与通过循环访问等。
综合应用(30分一小题)：考核重点一般集中在：顺序文件的读写操作、读文件一般都会用到循环或数组。
3.
1、开考之前，先运行一下vb和看一下输入法是否符合自己的习惯。另外，最好设置文件显示扩展名，考试的时候可以打开文件夹方便看一下存盘是否正确，有时会有生成文件，也可去看一下文件是否生成正确。
2、记得保存一份试题目录中的所有文件，以免出错或去掉注释符后自己都不知道自己改了什么。
3、注意一些算法：排序、素数、九九表、指针转动等。
4、注意大题中上半年新出现的随机文件。
5、别忘了做不出来的时候有msdn，联机帮助这是允许的。但你没有用过的话可能一时摸不着门道，可能浪费时间，自己把握好啊。
6、调试程序的时候可以自己设变量显示中间值看正不正确，可以用print,msgbox，正常后记得去掉多余的语句。
7、出现异常应该举手报告监考老师，他们有各种密码，包括抽题密码、重抽密码和延时密码。
4.
vb考试的上机情况： 1.大家在做题时候，尽量保持语句的简洁性，如果一句语句可以表达就不要再画蛇添足，现在引用本版快某lz的说法：“题目是要我把text1移动到最左边，就应该是text1.left=o,结果我还多了一句text1.top=0，这样写会不会得分啊？”虽然影响不是很大，但是至少让我们在心理上有一种担 2.真正上机的时候如果突然对莫一块知识点不是很清晰，如忘记了text中的某些方法的表达，不要惊慌，我们大多数的vb软件中都有msdn，它会帮你走出困境（只适合突然对某些知识点有些记忆不清楚的同志们）
3.如果上机程序中只要求你修改属性，记住千万不要在修改代码或者添加代码，那样很可能出错，如一位网友的贴子（源于本板块）——“我在做基础操作题目时遇到了这样的一个题目：要求拖出一个滚动条，最大刻度为100 ，最小刻度为1，使得单击滚动框以外的地方（不包括滚动条两头按钮），使滚动条的值增加10个刻度。
我在属性窗口上，设置为max=100 min=1 largechange=10，然后由于太紧张一至于还编了代码如下：
private sub h1_click()
h1.=h1.+10
end sub结果运行中没有出错信息，我就保存了！注明一点就是题目中没有明确要求说“考生不得编写程序代码”，就什么都没说？color=blue]请问在这种情况下能得几分？ ”
4.至于考试成绩的公布大家不要着急，大体每年都是一样的，考试结束后1个半月至2个半月不等 。
5.保存的时候，一定要注意窗体和工程都要保存，而且存在要求的考生文件下，否则会没有分的..
4.06.4.1题型汇总：
（1）有a,b,c三个变量，范围分别是1－60,问满足勾股（a^2+b^2=c^2)定理的组合有多少种？
答案：private sub form_click()
dim a as integer
dim b as integer
dim c as integer
dim n
for a = 1 to 60
for b = a to 60
for c = 1 to 60
if a ^ 2 + b ^ 2 = c ^ 2 then
n = n + 1
end if
next
next
next
print n
end sub
（2）有一个时间控件，一个水平滚动条、一个图像框。在一个图像框中闪烁显示一个图像。闪烁的速度由滚动条的值决定。要求使用隐藏和显示来作。
提示：隐藏用unload显示用show ；timer事件应该是enable为真是动为假时不动 。
（3）在题目上绘一个姓名、电话号码、邮政编码。定义了一个结构体。随机的从in5.txt读出第三条记录显示在三个文本里。写读出的过程 。通常为填空题（因为网友在发贴时候也没有说清楚，只好把大体情况介绍一下，给大家提供开阔一下眼界）
（4）简单应用：1.编写求回文数字的 过程
2.一个文本框，里面的数组的删除和重排……用inputbox如果输入的数是数组中的，不是则弹出对话框
3.文本框中选中的字符中出现次数最多的字母写在文本框中…
（5）单击窗口打印如下图案
┌————————
├————————
│ *
│ ***
│ *****
│ *******
│ *********
│ *******
│ *****
│ ***
│ *
└———————
private sub form_click()
dim i,j as integer
for i=1 to ?
for i=1 to 5
’for j=1 to ?
for j=1 to 6-i
print " ";
next
’for j=1 to ?
for j=1 to i*2-1
print "*";
next
next
for i=1 to 4
’for j=1 to ?
for j=1 to i
print " ";
next
’for j=1 to ?
for j=1 to 9-i*2
print "*";
next
next
end sub
（6）把窗口的标题改为“圆角矩形”,在form中添加一个圆角矩形的shape1,并设置填充颜色为hff00，高1000，宽2000
┌————————
├————————
│
│ ┏————┓
│ │ │
│ │ │
│ ┕————┛
│
└———————
属性设置:
name │ 属性 │ 值
———┼————┼—————
form1 │caption │圆角矩形
———┼————┼—————
│backstyle │1-opaque
shape1│backcolor │hff00
│width │2000
│height │1000
│shape │4-rounded rectangle
（7）在窗口中已经添加了所有控件，单击开始通话按钮，则在text1中显示通话时间(通话时间每秒加1),单击停止通话按扭，停止计时，单击计算话费按扭调用sub1过程,要求： _]I0sUcv}D