vb考试题填空题

Next j

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

Sub Form1_Click()

Dim n as Integer

I=21:n=3

Do While I>n

I=I-n

Loop

Print I

End Sub

打印结果_____。

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

31Visual Basic 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 32一个程序最多可以有________窗体。

33将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 34要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 35表达式：\的值是_______。

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

37假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 38执行下面的程序段后，s的值为____。 S=5

For I=2.6 To 4.9 Step 2

s=s+1

Next I

39表达式“12345”<>“12345”&“ABC”的值是_____。 40下列程序用来计算1+2+3……+10的值，请补充完程序。

Dim t,k as single

K=0

DO While k<10

K=k+1:______

loop

print t

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

K = 1

For I = 1 To 3

A = I ^ I ^ K

Next I

Print A

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

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

44下列程序的执行结果是_____。

M1 = 1:m2 = 1

Do While m2<>6

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

Print m1

45下列程序的执行结果是_____。 Private Function P(N As Integer)

For I = 1 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

46货币型数据的类型标识符为______。

47以下程序用来输出1到100所有奇数的和，请补充完该程序。

Private Sub Command3_Click()

Dim s As Long

Dim x As Integer

s = 0

For x=1 to 100 step____

s = s + x

Next x

Print s

End Sub 48

假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。 49激活属性窗口的快捷键是______。 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

51下列程序段的运行后t的值为______。

Dim t,k as single

k=5 : t=1

do While k>=-1

t=t*k : K=K-1

loop

52执行语句“a=6=5”后，变量a的值为______。 53下面程序段的输出结果是_____。

P=0:s=0 Do