VB期末复习题库Visual Basic(填空题)

VB期末复习题库Visual Basic（填空题）

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

4 Fix(5.8)的值是_______。 5

5 "下列程序段的执行后输出的结果为_____。

I=4:A=5

Do

I=I+1:A=A+2

Loop Until I>=7

Print ""A="";A" A=11

6 表达式3/6*5的值是_______。 2.5

7 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。

If a

d=a:a=b:b=d

EndIf

If a

d=a:a=c:c=d

EndIf

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 就会显示该对象的代码

窗口。双击

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 表达式："1" & "2" = "12"的值是_______。TRUE

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" 2000

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 Exit ____。

Next j" FOR

29 "下列程序段的运行结果是：

Sub Form1_Click()

Dim n as Integer

I=21:n=3

Do While I>n

I=I-n

Loop

Print I

End Sub

打印结果_____。" 3

30 Visual Basic中的常量分为两种，一种是直接常量，一种是____常量。符号

31 Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。滚动条

32 一个程序最多可以有________窗体。255

33 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为

_______。TRUE

34 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 CTRL

35 表达式："1"+"2"="3"的值是_______。 FALSE

36 ______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。CAPTION

37 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。TEXT1.SETFOCUS

38 "执行下面的程序段后，s的值为____。

S=5

For I=2.6 To 4.9 Step 2

s=s+1

Next I" 7

39 表达式“12345”<>“12345”&“ABC”的值是_____。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