在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．4B．6C．9D．15
点击查看答案
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356
下面的算法是计算不带节点的单链表长度，其中能正确执行的是______。A．Function Length(L：Link) integer begin p:=L； j:=0； while p↑.next≠NIL DO [p：=p↑.next； j：=j+1 ] return(j) end;B．Function Length(L：Link) integer begin p：=L； k：=0； while p≠NIL DO [p：=p↑.next； k：=k+1) return(k) end；C．Function Length(L：Link)integer begin p：=L；k：=0； repeat k：=k+1； p=p↑.next until p=NIL return(k-1) end；D．Function Length(L：Link)integer begin p：=L↑.next； k：=1； while p≠NIL DO [k：=k+1； p：=p↑.next] return(k) end；
23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next iA．9B．10C．11D．12
最小生成树A.Prim算法：procedure prim(v0:integer);varlowcost,closest:array[1..maxn] of integer;i,j,k,min:integer;
组合的生成(1..n中选取k个数的所有方案)procedure solve(dep,pre:integer);vari:integer;
