执行下列程序段中第一条指令后， （1）（P<sub>1.7</

单击一次命令按钮后，下列程序的执行结果是( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function

A．15

B．25

C．35

D．45

下列程序的执行结果是______。

PrivateFunctionP(NASInteger)

Fori=1 To N

SUM=SUM+i

Nexti

P=SUM

End Function

Privte Sub Commandl_Click()

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

Print S

End Sub

有如下程序段

int *p,a=10,b=1;

p=&a; a=*p+b;

执行该程序段后，a的值为

A．12

B．11

C．10

D．编译出错

单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function

A．20

B．35

C．115

D．135

在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为

A．Sub：2 6 4 Main：2 6 4

B．Sub：2 6 4 Main：2 6 4

C．Sub：2 6 4 Main：1 2 3

D．Sub：2 6 4 Main：2 2 3

单击一次命令按钮后，下列程序的执行结果是

Private Sub Command1_Click（）

s=P（1） + P（2） + P（3） + P（4）

Print s

End Sub

Public Function P（N As Integer）

Static Sum

For i=1 To N

Sum=Sum + i

Next i

P=Sum

End Function（ ）。

A．15

B．25

C．35

D．45

单击一次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() s=P(1) +P(2) +P(3) +P(4) Print s End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function

A．15

B．25

C．35

D．45

执行下面的程序段，x的值为【 】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

Next

x=Val(i)

MsgBox x

End Sub

以下程序段中Do...Loop 循环执行的次数为【 】。程序执行完毕后，n的值为【 】。

Private Sub Command1_Click()

n =5

Do

If n Mod 2= 0 Then

n =n \2

Else

n =n* 3 + 1

End If

Loop Until n=1

End Sub

有如下程序段int *p,a=10,b=1;p=&a; a=*p+b;执行该程序段后，a的值为A．12 B．10 C．11 D．编译出错