填空题一组具有相同名称，不同下标的下标变量称为 【15】 。
填空题以下程序段的输出结果是 【15】 。 num=0 Do While num＜=5 num=mum+1 Loop Print num
填空题m阶B+树的每个结点至多有{{U}} 【1】 {{/U}}个子女。
填空题运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 (14) 和 (15) 。 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(x，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
填空题在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：
Option Base_1
Private Sub Command1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap({{U}} 【8】 {{/U}})
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b()As Integer)
n={{U}} 【9】 {{/U}}
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
{{U}}【10】 {{/U}}
Next
End Sub
上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。
填空题具有88个结点的二叉树，其深度至少为______。
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To{{U}}【6】{{/U}}r=Int(Rnd*2)Ifr={{U}}【7】{{/U}}Thenn1=n1+1Elsen2=n2+1EndIfNextTcxt2.Text=n1Text3.Text=n2EndSub
填空题窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。PrivateTypePicgNameAsString*10物品名称picFileAsString*20物品图片的图片文件名EndTypeDimp(4)AsPic,pRecAsPicPrivateSubForm_Load()Open"Data1.txt"ForRandomAs#1______=Len(pReC)Fori=0To4Get#1,i+1,p(i)List1.AddItemp(i).gNameNextiClose#1EndSubPrivateSubList1_DblClick()Fori=0To4IfRTrim(List1.List(i))=RTrim(______)ThenPicture1.Picture=LoadPicture(p(i).______)ExitForEndIfNextEndSub
填空题假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句{{U}} 【7】 {{/U}}。
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String,s As String,c As String str=UCase(Text1) s=" " c="Z" While c＞="A" If Instr(str，c)=0 Then s= (6) End If c=Chr $ (Asc(c) (7) ) Wend If s＜＞""Then Text1=s End If End Sub
填空题对于长度为n的顺序存储的线性表，当随机插入和删除一个元素时，需平均移动元素的个数为{{U}} 【1】 {{/U}}。
填空题在树形结构中，树根结点没有______。
填空题在一棵二叉树上第6层的结点个数最多是{{U}} 【2】 {{/U}}个。
填空题若一棵二叉中只有叶结点和左、右子树皆非空的结点，设叶结点的个数为k，则左、右子树皆非空的结点个数是{{U}} 【1】 {{/U}}。
填空题下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。
Sub TOF( )
Randomize
Dim s As Double
Dim a(10) As lnteger
For i=0 To 9
【 】
Next
For i=0 To 9
If【 】Then
Print a(i)
s=s+a(i)
【 】
Next i
Print
Print "S=" ; s
End Sub
填空题在Visual Basic中，实参传递给形参有两种方式，{{U}} 【7】 {{/U}}方式可以通过改变过程中的相应的参数来改变实参变量的值；而{{U}} 【8】 {{/U}}被调用过程中改变了这个形参的值，但对应的实参的值并不改变。
填空题下列程序段的功能是输入一元二次方程ax
2
+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。
Dim a As Single,b As Single,c As Single
Dim delta As Single
a=txtA. Text:b=txtB. Text:c＝txtC. Text
delta=
________
If delta＞0 Then
lblResult. Caption="有两个不相等的实根"
Elself delta＝0 Then
lblResult. Caption="有两个相等的实根"
________
lblResult. Caption＝"没有实根"
End If
填空题窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是把Data1.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示，以下是类型定义及程序，请填空。PrivateTypePicgNaneAsString*10'物品名称picFileAsString*20'物品图片的图片文件名EndTypeDimep(4)AsPic,pRecAsPicPrivateSubForm_Load()Open"Data1.txt"ForRandomAs#1______Len(pRec)Fori=0To4Get#1,i+1,p(i)List1.AddItemp(i)gNameNextiClose#1EndSubPrivateSubList1_DblClick()Fori=0To4IfRTrim(List.List(i))=RTrim(______)ThenPicture1.Picture=LoadPicture(p(i)．______)ExitForEndIfNextEndSub
填空题以下程序段中Do...Loop 循环执行的次数为______。程序执行完毕后，n的值为______。 Private Sub Command1_Click() n =5 Do If n Mod 2= 0 Then n =n /2 Else n =n* 3 + 1 End If Loop Until n=1 End Sub
填空题一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的 【3】 。