填空题当数据库的存储结构改变时，可相应修改{{U}} 【5】 {{/U}}，从而保持模式不变。
填空题当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。
填空题诊断和改正程序中错误的工作通常称为{{U}} 【4】 {{/U}}。
填空题编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的KeyCode码。请完善下列程序。 Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) Print Chr(KeyCode) Print ______ Print"八进制KeyCode码是"; Oct(KeyCode) End Sub
填空题下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示{{U}} 【10】 {{/U}}行数据，其中第2行和第3行的数据分别是{{U}} 【11】 {{/U}}和{{U}} 【12】 {{/U}}。
Option Base 1
Private Sub Command1_Click()
Dim a， s As String，i As Integer
a=Array(1，3，5，7，2，4，6，8)
s=" "
For i=1 To Ubound(A)
s=s + Str(a(i)+i)+ vbCrLf
Next i
Text1.Text=s
End Sub
填空题下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。
Private Sub form_ click()
Dim name As String
Dim age As Integer
Dim sex As String
name = "张三": age = 20: sex = "Male"
Open "D:/temp/Code.txt" For Append As #1
______ #1, name, age, sex
______
End Sub
填空题为了在程序运行时，当被遮住的窗口又重现时，用该窗体的Picture属性设置的背景图像会自动重画，设置值为True的属性是______。
填空题下面语句的输出结果为______。 x!=3.1415926 Print x
填空题在面向对象程序设计中，从外面只能看到对象的外部特征，而无须知道数据的具体结构以及实现操作的算法，这称为对象的______。
填空题测试的目的是暴露错误，评价程序的可靠性；而{{U}} 【1】 {{/U}}的目的是发现错误的位置井改正错误。
填空题数据库恢复是将数据库从{{U}} 【4】 {{/U}}状态恢复到某一已知的正确状态。
填空题单击窗体上的关闭按钮时，触发的事件是 【7】 。
填空题下列程序段的执行结果为 【13】 。 Dim A (10,10) For i = 2 To 4 For j =4 To 5 A(i,j) =i*j Next Next Print A (2,5) +A(3,4) +A(4,5)
填空题Visual Basic的窗体和控件是具有自己的______、______和方法的对象。
填空题有如下程序，该程序的执行结果是{{U}} 【6】 {{/U}}。
Private Sub Command1 Click()
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
填空题如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(______)k=0Whilek＜List1.ListCountAndNotfoundIfText1=Left$(List1.List(k),n)ThenText2=found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题下面程序的功能是统计字符串中“i”的个数，请填空。 Sub COU( ) Dim n As Integer a$ = "Beijing University of Technology" n = Len(a$ ) For i = 1 To n b$ =Mid$(a$,i, 1) If 【11】 Then x=x + 1 Next Print "x ="; x End Sub
填空题下面程序段实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序不完整，请填空。 Private Sub Command1_Click() Dim X(3,3) For I=1 to 3 For J=1 To 3 If (14) Then X(I，J)=1 End If IfI＜J Then X(I,J)=-1 End If Next J Next I For I=1 To 3 For J=1 To 3 Print X(I,J) Next J Print Next I End Sub
填空题以下程序段的输出结果是{{U}} 【15】 {{/U}}。
num=0
Do While num＜=5
num=num+1
Loop
Print num
填空题在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() DimM(10)As Integer Fork=1 To 10 M(k)=12-k Nextk x=6 PrintM(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是______。