vb考试题填空题

1假定当前日期为2002年7月12日,星期六,则执行语句Print day(now)后,输出结果是______(提示:不能出现符号#)。

2语句a%=3.14156:Print a%的输出结果是______。 3以下循环的执行次数是_____。 K=0

Do While k<=10

k=k+1 Loop

4 Fix(5.8)的值是_______。

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

I=4:A=5 Do

I=I+1:A=A+2

Loop Until I>=7

Print \

6表达式3/6*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

8在Select 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

11逻辑常量值为TRUE或_______。

12货币类型的数据小数点的位置是固定的,精确到小数点后_____位。 13表达式(2+8*3)/2的值是______。

14以下程序用来判断一个整数X是否为偶数,并将其中的偶数在窗体上显示,请补充完该程序。

If X___2=____ Then Print X

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

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

19设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 20表达式:\的值是_______。

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

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

23表达式3>4 and 7=5的值是______。

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

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

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

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

28下列循环语句,要求和数达到10既停止累加,退出循环,请补充完程序。

For j=1 to 10

s=s+j

If s>=10 then Exit ____。

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4