VB程序填空题

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___。

2

8．代数式ab ÷(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

Next j

Debug.Print j,t End Sub

19、语句Form1.Print \的输出结果是 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

29．表达式\的值是( 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

。 n = n + 1

j = j + n * (n + 1) Loop

Print j; n

39．在窗体上画一个命令按钮（名称为Command1）编写如下事件过程： Private Sub Command1_Click() b = 1 c = 3

Print a = b + c End Sub

程序运行后，单击命令按钮，输出的结果是( False )。

40.已知变量x 、y为整数型，且x=4 , y=12 ,s为字符串型，且s=“a”，Label1为标签控件，下列赋值语句合法的是（s = Label1.Caption B） A、s = Label1.Caption B、 Label1.Caption=s=x C、x*3=y D、 Y=x*s 41.数学式3abc(d+e)改写为VB表达式为(3*a*b*c*(d+e)。 42.在IF语句的条件中，M≠6应写成：(M<>6) 43.设a=2,b=3,c=4,d=5,下列表达式的值是。(False) 3>2*b OR a=c AND b <>c OR c>d

44．若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为（ 5 ） if a>5 then c=b-a else c=a + b endif

45. 执行下面的程序段后，x 的值为 ( 7 ) x=0

For i=1 To 10 x=x+i\\5 Next i

46．在Visual Basic代码中，将多个语句合并在一行上的并行符是(冒号（：）) 。 47．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置(Passwordchar属性值为“#”)

48．在Visual Basic语言中，表达式 2+3*3-2*3/2的值是。( 8 ) 49、以下程序段执行后，整型变量n 的值为（ 495 ）

year=2001

n=year\\4+year\\400-year\\100

50．在IF语句的条件中，X≤-10或X>0应写成：( X<=-10 OR X>0 ) 51.设a=2,b=3,c=4,d=5,下列表达式的值是。(False) a>b AND c<=d OR 2*a>c

51设计一个程序，输入一个正整数N，求1＋2＋3＋?+N的和。 Private Sub Command1_Click() Dim i, a, b As Integer a = Val(Text1.Text) For (i = 1 To a ) b = b + i Next i

Label3.Caption = b End Sub

52．编一个求圆柱的侧面积的程序：

当用户输入半径与高后，单击“侧面积为”按钮，输出正确结果。 Private Sub Command1_Click() Dim r, h, c, s As Single r = Val(Text1.Text) h = Val(Text2.Text) c = 2 * 3.14159 * r s = c * h

Label3.Caption = s End Sub