下列程序的执行结果是( )。

F．unction P(N As Integer)

F．or i=1 To N

Sum=Sum+i

Next i

P=Sum

E．nd Function

Private Sub Command1_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S;

E．nd Sub

A．15

B．16

C．20

D．25

[单选题]下列程序的执行结果是 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Commandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End SubA.15 B.16 C.20 D.25

[单选题]下列程序的运行结果是( )。Private Function myfun(m,n)D．o While m>nD．o While m>n:m=m-n:LoopD．o While n>m:n=n-m:LoopLoopmy fun=mE．nd FunctionPrivate Sub Command1_Click()Print myfun(9,8)E．nd SubA．2B．1C．4D．3

[单选题]下列程序的运行结果是( )。 Private Function myfun(m, n) Do While m ＞ n Do While m＞n:m=m-n:Loop Do while n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9, 8) End SubA．2B．1C．4D．3

[单选题]下列程序的运行结果是( )。 Private Function myfun(m，n) Do While m＞n Do While m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9，8) End SubA．2B．1C．4D．3

[单选题]下列程序段的运行结果是( )。Sub sele()D．im n As Integeri=21:n=3D．o While i＞ni=i-nLoopPrint iE．nd SubA．2B．4C．5D．3

[单选题]下列程序运行后的输出结果是F．unction Fun(n)x=n*nF．un=x-11E．nd FunctionPrivate Sub Command1_Click()F．or k=1 To 2y=Fun(k):Print yNextE．nd SubA．-10 -7B．10 8C．1 3D．0 4

[单选题]阅读程序：F．unction fac(ByVal n As Integer)As IntegerD．im temp As Integertemp=1F．or i％=1 To ntemp=temp*i％Next i％fac=tempE．nd FunctionPrivate Sub Form_Click()D．im nsum As Integernsum=1F．or i％=2 To 4nsum=nsum+fac(i％)Next i％print nsumE．nd Sub程序运行后，单击窗体，输出结果是

[单选题]以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， aA．100B．9 1C．10 1D．90

[单选题]下列程序运行后的输出结果是F．unction Fun(n)X=n*nF．un=x-11E．nd FunctionPrivate Sub Command1_Click()F．or k=1 To 2y=Fun(k):Print yNextE．nd SubA．-10 -7B．10 8C．1 3D．0 4

[单选题]下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End SubA． -10 -7B．10 8C．1 3D．0 4