问题：
[填空题] 如果存在如下过程： Private Function FMax(a( )As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last If a(i) ＞ Max Then Max=a(i) Next i FMax=Max End Function 在窗体上添加一个
问题：
[填空题] 某二叉树的先根遍历序列为CEDBA，中根遍历序列为DEBAC，则其后根遍历序列为 【1】 。
问题：
[填空题] 执行下面的程序段后，b的值为 【6】 。 a=300 b=20 a=a+ b b=a-b a=a-b
问题：
[填空题] 在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click()Dim aa=Array(1，2，3，4)j=1For i=4 To 1 Step-1 s=s+a(i)*j j=j*10Next iPrint s End Sub 运行一面的程序，单击命令按钮，其输出结果是 【15】 。
问题：
[填空题] 在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long)As LoneDim k As Longk=1 num=Abs (num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Longn= InputBox (“请输入一个数”)n=CLng (n)r
问题：
[填空题] 若二叉树中度为2的结点有15个，度为1的结点有10个，则有 【3】 个叶结点。
问题：
[填空题] 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 【9】 、 【10】 、 【11】 处将程序补充完整。 Option Base 1 Private Sub Command1_Click () Dim a a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823) For i= 【9】 For j= 【10】 If a(i) 【11】 a(j) Then a1=a(i) a(i)=a(j) a (j) =a1End
问题：
[填空题] 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 【13】 。
问题：
[填空题] 若进栈序列为a，b，c，则通过入出栈操作可能得到的a，b，c的不同排列个数为 【2】 。
问题：
[填空题] 在程序的空白行处填写适当的语句，完成下列功能；依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount______List2.RemoveItem0 Loop
鄂公网安备 42120202000370号