填空题下面程序是用来打印九九乘法表的，请补充完整。
Dim i As Integer，j As Integer，Strl$
Strl=" "
For i=1 To 9
Forj=1 To 9
If{{U}} 【9】 {{/U}}Then
Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j))
Else
Strl=Strl & Chr(13)
{{U}} 【10】 {{/U}}
End If
Next j
Next i
Print Str
填空题在修改列表框内容时，RemoveItem方法的作用是 【6】 。
填空题语句Form2.Show 0表示 (8) ；语句Form3.Show 1表示 (9) 。
填空题运行下列程序，单击Command1命令按钮，则在窗体上显示第一行和第二行的结果分别是 (11) 和 (12) Private Sub Command1_Click() t=1 x=2 y=3 z=4 If t＞0 Or t-x And x＜＞y Or y＜＞z Then t=fun1(t，z) Print t Else t=fun1(t，y) Print t End If Print x Print y End Sub Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer Do While y＜＞0 t=x/y x=y y=t Loop fun1=x End Function
填空题在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______ List2. RemoveItem 0 Loop
填空题Defsng a定义的变量a是______类型的变量。
填空题以下程序段的输出结果是{{U}} 【6】 {{/U}}。
x=8.5
print int (x)+0.6
填空题数据库管理系统常见的数据模型有层次模型、网状模型和{{U}} 【5】 {{/U}}3种。
填空题假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是______。
填空题以下程序的目的是将多维数组a(1 To m, 1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。 Option Base 1 Private Sub Command1_Click(Index As Integer) Dim a(1 To 20, 1 To 10) Dim b() ReDim______ For i=1 To 20 For j=1 To 10 a(i，j)=i术j Next j Next i Tran a, 20 , 10 b End Sub Sub Tran(a(), m, n, b()) Dim i As Integer For i=1 To m For j=1 To n ______=a(i，j) Next j Next i End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_ KeyDown(KeyCode As Integer，Shift As Integer)
Print KeyCode；
End Sub
Private Sub Form_ KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后，如果按下A键，则在窗体上输出的数值为{{U}} {{U}} {{/U}} {{/U}}和{{U}} {{U}} {{/U}} {{/U}}。
填空题______语句的作用是暂时停止VB程序的运行，将控制权转交给操作系统。
填空题算法复杂度主要包括时间复杂度和【2】复杂度。
填空题在窗体上加上一个富文本控件Rich TextBox，画一个命令按钮，当单击命令按钮的时候，将显示“打开文件”对话框，设置该对话框只用于找开文本文件，然后在富文本控件中显示打开的文件内容。 Private Sub Command1_Click ( ) CommonDialog1. Filter = 【11】 CommonDialog1. ShowOpen RichTextBox1. FileName = 【12】 End Sub
填空题下列程序段的运行结果是______。 For i=10 To 20 For j=2 To i-1 If i Mod j=0 Then Exit for Next j If j ＞=i Then Print i; Next i
填空题常用的黑箱测试有等价类划分法、{{U}} 【1】 {{/U}}和错误推测法3种。
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click1() S$=InputBox("请输入一个字符串") Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是______。
填空题以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。
Sub fun(w，x，n)
Dim i，p
p=0
w(n)=x
Do While x＞w(p)
{{U}}【11】 {{/U}}
Loop
For i=n to p+1 Step-1
w(i)={{U}} 【12】 {{/U}}
Next i
w(p)=x
n=n+1
Sub End
填空题使用已经存在的类作为基础建立新类的定义，这种技术叫做类的 【3】 。
填空题在窗体上画一个命令按钮，然后编写如下程序； Function fun(By Val num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(hum Mod 10) nam=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dire r As Long n=Input Box("请输入一个数") n=CLng(n) r=fun(n) Printr End Sub 程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】