填空题某二叉树中度为2的结点有18个，则该二叉树中有【1】个叶子结点。
填空题窗体的属性可在属性窗口中设置，也可在程序中用{{U}} 【6】 {{/U}}语句动态设置。
填空题在Visual FoxPro中，数据库表中不允许有重复记录是通过指定【6】来实现的。
填空题Visual Basic的集成开发环境中有传统的______和单文档界面。
填空题在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem“北京”List1.AddItem“上海”List1.AddItem“河北”EndSubPrivateSubList1_Dblclick()Label.Caption=【12】EndSub
填空题在窗体上面画一个命令按钮（ 其 Name 属性为 Command1）
填空题以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(i)到A(10)依次赋给B(1，1)到B(1，10)，把A(11)到A(20)依次赋给
B(2，1)到B(2，10)，……，把A(91)到A(100)依次赋给B(10，1)到B(10，10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer，j As Integer
Dim A(1 To 100)As Integer
Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To
________
For j＝1 To
________
B(i,j)＝
________
Print B(i,j)；
Next j
Print
Next i
End Sub
填空题以下程序用来计算由键盘输入的个数中正数之和、负数之和、正数的个数、负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click N=10 C=0:IC=0:D=0:ID=0 For K=1 To N A=Val(InputBox(“请输入A")) If A＜0 Then C=C+A:IC=IC+1 If A＞0 Then D= (14) Next K Print“负数的个数为：”，IC Print”负数的和为：”，C Print”正数的个数为：”ID Print”正数的和为：”，D End Sub
填空题若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用 【9】 语句。
填空题在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。 请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1 Click() Dim a(100) For j=1 To 100 a(j)=Int(______) If a(j)______5=0 Then______ Print a (j)； Next i Print Print k/100 End Sub
填空题数据模型按不同应用层次分成3种类型，它们是概念数据模型、{{U}} 【5】 {{/U}}和物理数据
模型。
填空题下列程序是判断一个整数(>=3)是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3)")
k=Int(Sqr(n))
i=2
swit=0
While i<=k And swit=0
If n Mod i=0 Then
{{U}} 【7】 {{/U}}
Else
{{U}} 【8】 {{/U}}
End If
Wend
If swit=0 Then
Print n；"是一个素数。"
Else
Print n；"不是一个素数。"
End If
填空题数据库三级模式体系结构的划分，有利于保持数据库的{{U}} {{U}} {{/U}} {{/U}}。
填空题在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。PrivateFunctiondigit(ByValmAsInteger，ByValnAsInteger)AsIntegerDimiAsIntegerFori=1Ton-1m=m/10Nextidigit=【11】EndFunctionPrivateSubCommand1_Click()DimmAsInteger，nAsInteger，kAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)k=【12】Text3.Text=Str(k)EndSub
填空题下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8， 9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click( )
Select Case Val(Text.Text)
Case{{U}} 【6】 {{/U}}
Print“Text的值为4，6”
Case{{U}} 【7】 {{/U}}
Print“Text的值为1，3，5，7”
Case{{U}} 【8】 {{/U}}
Print“Text的值为8，9”
Case{{U}} 【9】 {{/U}}
Print“Text的值不在范围内”
End Select
End Sub
填空题数据库恢复是将数据库从{{U}} 【4】 {{/U}}状态恢复到某一已知的正确状态。
填空题设有下列循环：
x=1
Do
x=x+2
Print x
Loop Until{{U}} 【6】 {{/U}}
要求程序运行时执行3次循环体，请填空。
填空题一般来说，算法可以用顺序、选择和{{U}} 【1】 {{/U}}三种基本控制结构组合而成。
填空题下列程序的功能是：将数据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 【13】 Next Close #1 End Sub
填空题在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。
Private Sub Command1_Click( )
CommonDialog1．Filter=【 】
CommonDialog1．FilterIndex=【 】
CommonDialog1．ShowSave
Info．Text=【 】
End Sub