填空题一棵二叉树第六层(根结点为第一层)的结点数最多为 【4】 个。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Click() Dim Y As Single Open ______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx：Cos(i*Y) ______ Next i Close #2 End Sub
填空题以下程序代码实现单击命令按钮Commandl时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Dimalt(1 To 20)
Fori=1 To 20
arr(i)={{U}} {{/U}}
Nexti
Sub=0
For Each X In arr
If X＞50 Then
Print Tab(20)；X
Sum=Sum+X
End If
Next X
Print Tab(20)；"Sub="；Sub
填空题窗体上有名称为Command1的命令按钮。事件过程及两个函数过程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x=3:y=5:z=fy(y) Print fx(fx(x)),y End Sub Function fx(ByVal a As Integer) a=a+a:fx=a End Function Function fy(ByRef a As Integer) a=a+a:fy=a End Function 运行程序，并单击命令按钮，则窗体上显示的两个值依次是 (12) 和 (13) 。
填空题在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【8】、【9】和【10】处将程序补充完整。PrivateSubCombo1{{U}}【8】{{/U}}(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1；ListCount-1IfCombo1．Text={{U}}【9】{{/U}}ThenLabe12．Caption="输入项已在组合框中"ExitSubEndIfNextiLabe12．Caption="已成功添加输入项"Combo1．{{U}}【10】{{/U}}Combo1．TextEndIfEndSub
填空题某二叉树中度为2的结点有n个，则该二叉树中有 (2) 个叶子结点。
填空题为了在运行时把窗体Form1的标题(Caption 属性)设置为“Test Program”，应使用的语句为{{U}} 【6】 {{/U}}。
填空题下面运行程序后，单击命令按钮，输出出的结果是{{U}} 【12】 {{/U}}。
Private Sub Command1_Click( )
Dim a% (1 To 5) ,i%, s#
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun =t
End Function
填空题如果在D盘当前文件夹下已2经存在名为PIC．day的顺序文件，那么执行语句Open "D:/PIC．dat" For Append As #1 之后将 【7】 。
填空题块结构条件语句中的必选项是______。
填空题为了使应用程序启动时打开的窗体中具有背景图像(取用户自定义的某个图像文件“C;/Picture.jpg”)，设置值为“C:Picture.jpg”的属性是______。
填空题在窗体上有一个命令按钮，然后编如下事件过程：
Function SR( x As Double)As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case-1
SR=-1
End Select
End Function
Private Sub Command1 _ Click( )
Dim Msg，SRN
Dim N AS Double
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
Select Case SR(N)
Case 0
Msg=Msg &"是0"
Case-1
Msg=Msg&"是一个虚数"
Case ElSe
Msg=Msg &"是"& SR(N)
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。
填空题下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。
Dim a(1 To 10)AS Integer
Private Sub Form _Click()
Randomize
p=“”
For i = 1 To 10
Do
x = Int (Rnd * 90) + 10
yes = 0
For j = 1 To{{U}} 【9】 {{/U}}
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
Next i
For i = 1 To 9
For{{U}} 【10】 {{/U}}To 10
If a(i) ＞ a(j) Then
t = a(i)
{{U}}【11】 {{/U}}
a(j) = t
End If
Next j
Next i
p = Str(a(1))
For i = 2 To 10
p = p & “,” & Str(a(i))
Print p
Next i
End Sub
填空题有一个过程如下： Sub Sub1(m As Integer，total As Long) Dim i AS Integer total=1 For i=1 To m total=total*i Next End Sub 调用它的事件过程如下： Private Sub Command1_Click() Dim tot As Long，a As Integer a=Val(InputBox("请输入数据")) Call Subl(a,tot) Print tot End Sub 则输入数据5，运行结果为______。
填空题如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click()DimkAsInteger，nAsInteger，foundAsBooleanfound=Falsen=Len({{U}}【14】{{/U}})k=0Whilek＜List1.ListCountAndNotfoundIfText1=Left$(List1.List(k)，n)ThenText2={{U}}【15】{{/U}}found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。 Private Sub Moveright(x()As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i=UBound(x) j=x(i) For k=i To (6) Step-1 (7) Next k x(LBound(x))=j End Sub Private Sub Command1_Click() Dim a(10)As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i=0 To 10 a(i)=i Next i j=Val(Text1.Text) k=0 Do k=k+1 Call MoveRight(a) Loop Until k=j For i=0 To 10 Print a(i)； Next i End Sub
填空题由Visual Basic系统事先设定的，能被对象识别和响应的动作称为{{U}} 【6】 {{/U}}。
填空题Printer.Print"*"星号输出到______。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer,n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox请输入a的值：“) n=InputBox请输入n的值！”) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (9) Debug.Print a，n，Sn End Sub
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open (13) Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) (14) Next Close#2 End Sub