2011年最新vb期末复习题（免费下载！！题目+答案）

属性均可自行设计。 答案：对

66) 滚动条所处的位置可由Value属性标识。 答案：对

4) 双精度数用字母_____将尾数与指数分开。 答案：D

5) 下列程序段的执行后输出的结果为_____。 67) 可以用剪切+复制的方法将已有控件放入框架中。 I=4:A=5

答案：对

68) 框架内所有的控件会随框架一起移动、显示、消失和屏蔽。 答案：对

69) 在一个语句行内写多条语句时，语句之间应该用逗号分隔。 答案：错

70) 在语句Label1.caption=\欢迎\被执行之前，标签控件Label1的Caption属性为默认值，则该语句被执行后，标签控件Label1的Name属性和Caption属性的值分别为：“label”、 “欢迎”。 答案：错 71) 在visual basic中，要将一个窗体从内存中释放，应使用load语句。 答案：错

72) 在Visual Basic中按文件的访问方式不同，可以将文件分为数据文件和可执行文件。 答案：错 73) 在Visual Basic 中，要使一个窗体不可见，但不从内存不释放，应使用UnLoad语句。 答案：错 74) 要想改变一个窗体的标题内容，则应该设置Name属性的值。 答案：错

75) 要使窗体Form1的标题栏中显示“正在复制文件?”，应在代码中输入：Form1.Text=\正在复制文件?”。 错 76) 要使文本框在程序运行时不能由用户直接输入数据，应设置文本框的Visible属性设置为False。 答案：错

77) 要禁用计时器控件、需要将Visible属性设置为false。 答案：错

78) 要获得文件列表框中当前被选中的文件的文件名，则

应使用Filename。 答案：对 79) 要获得当前驱动器应使用驱动器列表框的Dir属性。 答案：错 80) 使用a=b:b=a 语句可以将变量A和B的值互换。 答案：错

81) 将当前窗体中显示的文字及绘制的图形全部清除，可

以用方法me.cls。 答案：对 82) 控件的事件过程内容决定事件发生时的执行代码。 答案：对 83) 通常，文本框的Setfocus方法不能使用在Form_load事件中。 答案：对

1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。 答案：12 2) 语句a%=3.14156:Print a%的输出结果是______。 答案：3

3) 以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1

Loop 答案：11

Do

I=I+1:A=A+2

Loop Until I>=7

Print \答案：A=11

6) 表达式3/6*5的值是_______。 答案：2.5 7) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

If_____Then d=b:b=c:c=d EndIf

Print a,b,c 答案：b

8) 在Select case 结构中应至少包含一个______子句。

答案：CASE

9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。 答案：赋值 10) 有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a

Print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。 Private Sub Command1_Click()

Ind(2)

End Sub 答案：2 11) 逻辑常量值为TRUE或_______。 答案：FALSE 12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4

13) 表达式（2+8*3）/2的值是______。 答案：13

14) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。 If X___2=____ Then Print X 答案：MOD#0 15) 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击

到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页

16) 下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do

t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9

Print Sum 答案：55

17) 一组具有相同名称，不同下标的下标变量称为______。 答案：数组 18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。 提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click() Dim y As Integer

y=InputBox(\请输入年号\If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\

Else Print \是普通年份\

End If

End Sub 答案：AND

19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 答案：FALSE

20) 假定在C：盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。 答案：PICTURE1.PICTURE=LOADPICTURE(\

21) 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。 答案：TRUE

22) 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。 答案：局部变量

23) 表达式3>4 and 7=5的值是______。 答案：FALSE

24) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。

Private Sub Commmand1_Click() Dim x As Integer x = 100

Do Until x > _____ If x Mod 3 <> 0 Then Print x End If

x = x + 1 Loop

End Sub 答案：X>200

25) 下列程序段的执行时，共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b

next a 答案：12

26) 以下程序计算2到50间所有偶数的和，请补充完该程序 Sub mult()

Dim Sum As Integer Sum=0

Dim I as integer For___to 50

If I MOD 2=___Then___ Next I Print sum

End Sub 答案：I=2#0#SUM=SUM+I

27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\\5的值为____。 答案：2

28) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 For j=1 to 10 s=s+j

If s>=10 then______。 Next j 答案：EXIT FOR 29) 下列程序段的运行结果是： Sub sele()

Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop Print I End Sub

打印结果_____。 答案：3

30) Visual Basie中的常量分为两种，一种是文字常量，一种是____常量。 答案：符号 31) Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 答案：滚动条

32) 一个程序最多可以有________窗体。 答案：255 33) 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 答案：TRUE 34) 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 答案：CTRL 35) 表达式：\的值是_______。 答案：FALSE 36) ______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 答案：CAPTION 37) 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 答案：TEXT1.SETFOCUS

38) 执行下面的程序段后，s的值为____。 S=5

For I=2.6 To 4.9 Step 2

s=s+1 Dim s As Long

Next I 答案：7 Dim x As Integer 39) 表达式“12345”<>“12345”&“ABC”的值是_____。 s = 0 答案：TRUE

40) 下列程序用来计算1+2+3??+10的值，请补充完程序。

Dim t,k as single K=0

DO While k<10 K=k+1:______ loop

print t 答案：T=T+K

41) 下列程序段的执行后输出的结果为_______。 K = 1

For I = 1 To 3

A = I ^ I ^ K Next I

Print A 答案：27

42) 下列程序是用来计算1＋2＋3??＋10的程序段，请补充完该程序。

Dim I, s, k As Integer s = 0: k = 0 For____To -1

k = k+1:s = s+k

Next I

Print s 答案：J=-10

43) 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。 答案：确定

44) 下列程序的执行结果是_____。 M1 = 1:m2 = 1

Do While m2<>6

m1 = m1*m2 : m2 = m2+1 Loop

Print m1 答案：120 45) 下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I

P = SUM End Function

Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S;

End Sub 答案：14

46) 货币型数据的类型标识符为______。 答案：@ 47) 以下程序用来输出1到100所有奇数的和，请补充完该程序。

Private Sub Command3_Click()

For x=1 to 100 step____ s = s + x Next x

Print s

End Sub 答案：2

48) 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。 答案：选中 49) 激活属性窗口的快捷键是______。 答案：F4 50) 下列程序的执行结果是_______。 A = 75 If a>60 Then I = 1

ElseIf a>70 Then I = 2

ElseIf a>80 Then I = 3

ElseIf a>90 Then I = 4 End If

Print I 答案：1

51) 下列程序段的运行后t的值为______。 Dim t,k as single

k=5 : t=1 do While k>=-1 t=t*k : K=K-1

loop 答案：0 52) 执行语句“a=6=5”后，变量a的值为______。 答案：FALSE

53) 下面程序段的输出结果是_____。 P=0:s=0 Do

p = p+2 s = s+p

Loop While p<11

Print \答案：s=42 54) 下面程序段的输出结果是______。 For X=1.5 To 5 Step 5 Print X;

Next X 答案：1.5

55) 执行下面的程序段后，s的值为______。 S=5

For I=2.6 To 4.9 Step 0.6

s=s+1

Next I 答案：9

56) 表达式Fix(-32.68)+Int(-23.02)的值为______。 答案：-56

57) 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

a=InputBox(\请输入一个整数\ b=InputBox(\请输入一个整数\Print a+b End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 答案：321456 58) 执行下面的程序段后，b的值为_____。 A=300:b=20

a=a+b:b=a-b:a=a-b 答案：300

73) 表达式：Mid(\的值是______。

答案：HAI

74) 表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是_____。 答案：0

75) VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 答案：顺序#循环 76) ______是构成文件的最基本的单位。 答案：字符

77) 顺序文件与随机文件相比较，占用内存资源较小的文件是______文件。 答案：随机

78) 随机文件是以_______为单位读写，二进制文件以

59) Visual Basic 的对象是________和_______的总称。 _______为单位读写。 答案：纪录#字节 答案：窗体#控件 60) 图片框的默认属性为_______（提示：该题只填写英文，如Name事件，只写Name即可）。 答案：PICTURE

61) 滚动条响应的重要事件有_______和_______（提示：该题只填写英文，如Click事件，只写Click即可）。 答案：CHANGE#SCROLL 62) 下列程序段执行后x的值是______。 X=100 : y=50

if x>y then x=x-y else x=x+y 答案：50 63) 表达式32/2^3-3*2^2+4^2的值是_______。 答案：8

64) 下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题答案中不要出现空格）。 T=Y:______:X=T 答案：Y=X

65) 有如下程序，该程序的运行结果是______。 A=20 : b=10

print a>b 答案：TRUE

66) 表达式15+3*3/9*5\\5 mod 10 的值是______。 答案：16 67) 有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click() I=\

Mid(I,4,3)=\

Print I

End Sub 答案：AAABBB

68) 有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含____个元素。 答案：4 69) 设有数组声明语句：Option base 1 dim A(3,-2 to 1)，则数组A中有_____个元素。 答案：12

70) 有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 答案：10000 71) 下面程序段执行后的结果是_____。 X=10

For I=6.3 to 4.9 Step -0.3 x=x-1 Next

Print x 答案：5

72) 表达式：5\\2*3的值是______。 答案：0

79) 随机函数Rnd(X)，当X=_____时返回最近一次调用Rnd函数生成的随机数。 答案：0

80) 语句x=inputbox(\请输入数据\输入12345,则x的

值为______类型的数据（提示：例如整型，Int；字符型，String）。 答案：STRING 81) x,y中至少有一个变量小于变量z的VB表达式为x

Print num 答案：3

83) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 答案：-

84) 在Visual Basic中按文件的访问方式不同, 可以将文件分为顺序文件、随机文件和______。 答案：二

进制文件 85) 如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中______个选项按钮（提示：该题答案不能出现汉字）。 答案：2 86) 以下语句的执行结果是____。

I = Format(5459.4, \

Print I 答案：5,459.40

87) ______属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，数组大小与列表项的个数一致。 答案：LIST

88) 在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码： Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k

x=6

Print M(2+M(x)) End Sub

程序运行后，单击命令按钮，输出结果是______。 答

案：4

89) 当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。 答案：TEXT

90) 将数据从内存写入随机文件，写入语句的格式是______[#]文件号，[记录号]，自定义变量名。 答案：PUT