内容发布更新时间 : 2024/5/21 1:09:42星期一 下面是文章的全部内容请认真阅读。
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 。