下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。
Private Sub Form_Click（　）
Dim s As Long,i As Integer
s=0
For i=1 To 10
s=s+ 【11】
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
【12】
End Function

[11]fact(i) [12]fact=f

下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。
Private Sub Form_Click（　）
Dim k As Integer
Open 【13】
Randomize
For i=1 To 10
k=100+Int(899*Rnd)
【14】
Next i
【15】
End Sub

[AC]"d:/myfilel．dat" For Random As #A0 [AD]Put#A0,i,k[AE]Close #A0

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（　）
Static A As Integer
Static B As Integer
B=B+3
A=3+A
Print A,B
End Sub
程序运行时，三次单击命令按钮Command1后，在窗体上显示的第三行是( )。

A:3 6 B:6 6 C:9 9 D:3 3

当发生Form_Click事件时，窗体上显示的第三行是( )。
Option Base 1
Private Sub Form_Click（　）
Dim i As Integer，j As Integer，k As Integer
Dim a(5，5)As Integer
For i=1 To 5
k=1
For i=1 To 5
If(i＜=j)Then
a(i,j)=k
k=k+2
Else
a(i,j)=k+1
End If
Next j
Next i
For i=1 To 5
For j=1 To 5
Print a(i,j)；
Next j
Print
Next i
End Sub

A:1 3 5 7 9 B:2 1 3 5 7 C:2 2 2 1 3 D:2 2 1 3 5

当发生窗体的单击事件时，输出的第二行为( )。
Private Sub Form_click（　）
Dim N1 As Integer,N2 As Integer,N3 As Integer
N1=1:N2=1
Print N1;N2
Do
N3=N1+N2
Print N3；
N1=N2:N2=N3
Loop Until N3＞=5
End Sub

A:1 1 1 B:2 3 5 C:2 5 7 D:2 3 4

当发生Form_Click事件时，下列程序的输出结果是( )。
Private m As Integer,n As Integer
Private Sub Form_Click（　）
Dim k As Integer，p As Integer
k=6：p=60
Call sub1(k,p)
Print m,n,m,k,p
Call sub1(k,p)
Print m,n,k,p
End Sub
Private Sub Form_Load（　）
m=7
n=70
End Sub
Public Sub sub1(x As Integer,ByVal y As Integer)
Dim m As Integer
n=n+5
m=n+x+y
x=x+y
y=x+y
End Sub

A:7 75 66 60
7 80 126 60 B:7 75 66 60
7 75 126 60 C:7 75 66 60
7 80 66 60 D:7 75 66 60
7 75 66 60

窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（　）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（　）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub

A:中国韩国 B:日本新加坡 C:中国韩国香港 D:中国日本韩国新加坡香港

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。
Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer)
z=x^3*y^3
End Sub
Private Sub Command1_Click（　）
Dim m As Integer
Call fun(2，3，m)
Print m
End Sub

A:216 C:35 D:程序不能运行

为了增加内存空间的利用率和减少溢出的可能性，由两个栈共享一片连续的内存空间时，应将两栈的栈底分设在这片内存空间的两端。这样，只有当两个栈的 【1】 在栈空间的某一位置相遇时，才产生上溢。

设一棵完全二叉树共有500个结点，则在该二叉树中有 【2】 个叶子结点。