VB程序填空题

二、填空题

1.假设一个文本框的Name属性为Text1，为了在该文本框中显示“Hello”，所使用的语句为text1.text=”Hello”。

2.一个工程文件包括多种类型的文件，其中，扩展名为_.VBP__文件表示工程文件。

3.扩展名为_.frm_____的文件表示窗体文件；

4.扩展名为.Bas的文件表示标准模块文件；

5．VB提供了三种控件，即___标准___、ActiveX控件和可插入对象。

6．VB应用程序主要由窗体模块、__标准___模块和类模块组成。

7．假设某一过程如下：

Private Sub D_Click()

Form1.caption=”abc”

End Sub

则响应该过程的对象名是___D___。

8．代数式ab2÷(5c+d)的Visual Basic表达式是：A*b*b/(5*c+d)。

9. 单击命令按钮Command1时，要将焦点定位到文本框T1上，需要使用代码text1.setfocus 。

10．假设某一过程如下：

Private Sub cmd1_Click()

Form1.Caption=”VB示例”

End Sub

则响应该过程的对象名是_CMD1____事件名是__CLICK____。

11.VB是一种面向__对象_的可视化编程语言，它采用_事件驱动_的编程机制。

12．VB的对象主要分为__窗体____和__控件__两大类。

13．VB中，用来描述一个对象的状态或特征的量称之为对象的_属性。

14.要运行VisualBasic应用程序，可按__F5___快捷键。

15、文本框常用的获得焦点的方法是___ SetFocus方法___。

16、在窗体上打印"大家都来学用Visual Basic"，代码是__print "大家都来学用Visual Basic"____。

17、清除窗体或控件对象上的信息用__Cls__方法。

18、下面程序运行后，输出的结果是__24_。

For J= 1 To 10

A(J)=2*J

B(J)=A(J)*2

Next J

Print B(J/2+0.1)

End

18、计算1*2*3*...*3000，当积大于3000时停止计算。请在______处将程序补充完整。Private Sub FormClick()

Dim t As Single,j As Integer

J=1

For j=1 To 3000

__ t=t*j ____

If t＞3000 Then Exit For

Debug.Print j,t

End Sub

19、语句Form1.Print "10" & 20的输出结果是 1020 。

20、下面这段程序执行后，共执行了___5___次循环体，输出i的值是___5___。

For i＝1 To 5

y＝i

Next i

Print i

21、下列程序段的执行结果为 7 。

Dim x(3,5)

For i=1 to 3

For j=1 to 5

x(i,j)=i+j

Next j

Next i

Print x(3,4)

22、下面程序段运行后的输出结果是 3 。

x=0

i=0

Do While i <= 2

x=x+i

i=i+1

Loop

Print x

23．以下程序段的执行结果是( 3 3 )。

X=2

Print X+1:X+1

24．程序段：a=3：b=8：print a＝b＝5 的输出结果为( FALSE )。

25．结束当前程序的语句是( END )。

26．语句段a=3 : b=5 :t=a : a=b : b=t 执行后，(a值为5，b值为3,t值为3 )。27．下列程序段执行结果为 ( -3 3 )

x=5 ： y=-6

If Not x>0 Then x=y-3 Else y=x+3

Print x-y; y-x

28．下列程序段的执行结果为( 10 30 )。

J1=10

J2=30

IF J1

PRINT J2

29．表达式"123" + "100" + 100的值是( 123200 )。

30．为了使文本框显示多行文字，须设置的属性是( Multiline )。

31．下列程序序段的执行结果为( 16 )。

Dim m(10)

For i = 0 To 10

m(i) = 2 * i

Next i

Print m(m(4))

32．下列程序序段的执行结果为( 4 0 15 )。

n = 0

For i = 1 To 3

For j = 5 To 1 Step -1

n = n + 1

Next j

Next i

Print I ; j ; n

33．a=5，则执行x=iif(a>7，—1，0)后，x的值是( 0 )。34．下列程序段的执行结果为( 20 )。

Dim A(5)

For k=2 to 4

A(k)=k*(k+1)

next k

print A(k-1)

35.下列程序段的执行结果是( 15 0 4 )。

n = 0

For i = 1 To 3

For j = 5 To 1 Step -1

n = n + 1

Next j, i

Print n; j; i

36.下列程序的执行结果为( 出错 )。

Private Sub Form_Click()

Dim a(1 To 20) As Integer

For k = 1 To 20

a(k) = k * k

Next k

Print a(k)

End Sub

37.下列程序的执行结果为( 12 )。

Private Sub Form_Click()

Dim M(10)

For i = 0 To 10

M(i) = 2 * i

Next i

Print M(M(3))

End Sub

38. 下列程序的执行结果为( 21 3 )。

n = 0

j = 1

Do Until n > 2