填空题当对象得到焦点时，会触发{{U}} 【10】 {{/U}}事件，当对象失去焦点时将触发{{U}} 【11】 {{/U}}事件。
填空题假定有以下当循环：
While Not条件
循环体
Loop
则执行循环体的“条件”是{{U}} 【9】 {{/U}}。
填空题下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then{{U}}【12】{{/U}}form1.ShowElsed=MsgBox({{U}}【13】{{/U}})RefreshEndifEndSubPrivateSubcommand2_Click(){{U}}【14】{{/U}}EndSub在图1的窗体中，文本框对象的名称属性是{{U}}【15】{{/U}}。
填空题在数据库系统中，实现各种数据管理功能的核心软件称为______。
填空题语句Form2.Show0表示______； 语句Form3.Show1表示______；
填空题在窗体上画一个名称为Command1的命令按钮。编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
A={{U}} 【6】 {{/U}}
For i=1 To 5
Print Space(6-i); Mid$(a, 6-i, 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为：
5
456
34567
2345678
123456789
请填空。
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。为了使它们同步操作，必须触发Drive1_Change( )事件和Dir1_Change( )事件，在这两个事件中执行的语句分别是 (8) 和 (9) 。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open"Num．txt"For Output As #1 For i=1 To 8 【15】 Next i Close #1 End Sub
填空题下列程序段的输出结果为 (15) 。 Dim S1(5) As Integer,S2(5) As Integer,S3(5) As Integer N=4 For I=1 To N S1(I)=I S2(I)=L Next I S3(5)=0 For K=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) Next K Print S1(3); S1(5); S1(2) Print S2(4); S31); S3(5)
填空题由Array函数建立的数组的名字必须是{{U}} 【11】 {{/U}}类型。
填空题单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
填空题通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为{{U}} 【4】 {{/U}}。
填空题设有如下程序段：
a$=“BejingShanghai”
b$＝Mid(a$，InStr(a$，“g”)+1)
执行上面的程序段后，变量b$的值为【 】。
填空题结构化程序设计方法的主要原则可以概括为知顶向下、逐步求精、{{U}} 【2】 {{/U}}和限制使用goto语句。
填空题数据库在经过一定时间运行后，其性能会逐步下降，这时需要对数据库进行数据库
________
。
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub Private Sub Form_DblClick() Cls End Sub
填空题在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是 【11】 。
填空题以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10 If 【12】 Or 【13】 Then s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 For 【14】 。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub
填空题有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为{{U}} 【14】 {{/U}}。
Private Sub Command1_Click()
Ind 2
End Sub
填空题响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做 【6】 。