违法和不良信息举报 联系客服
免费注册 登录

单击一次命令按钮后,下列程序的执行结果是 Private Sub Command1_Click() s=P(1) ＋P(2) ＋P(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

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

执行下面程序段后，s的结果是 。 int a[]={2,3,4}; int s,i,*p; s=1; p=a; for（i=0;i＜3;i++) s*=*（p+i);


2

第2题：

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click()

Dim a (1 To 10)

Dim p(1 To 3)

k=5

For i=1 To 10

a(i)=i

Nexti

Fori=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

Print k

End Sub

程序运行后，单击命令按钮，输出结果是【 】。


正确答案：33
33 解析：观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环，给数组p()进行赋值：
i=1,(i)=a(i*i),p(1)=a(1)=1
i=2,p(i)=a(i*i),p(2)=a(4)=4
i=3,p(i)=a(i*i),p(3)=a(9)=9
通过第三个以i为循环变量的循环，得到变量k的值；
i=1,k=k+p(i)*2=5+p(i)*2=7
i=2,k=k+p(i)*2=7+p(2)*2=15
i=3,k=k+p(i)*2=15+p(3)*2=33
最终输出结果是：33。

第3题：

|在窗体中有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl_Click（ ） Dim SAsIntegerS=P（1）+P（2）+P（3）十P（4）debu9．Print SEnd SubPublic Function PfN AS Integer）Dim Sum As IntegerSum=0Fori=l ToNSum=Sum+iNextiP=SumEnd Function打开窗体运行后，单击命令按钮，输出结果是（ ）。【程序设计综合知识】

A.15

B.20

C.25

D.35


正确答案：B
从函数P的代码可知，其功能是计算从1～N的和，在命令按钮的单击事件代码中，可知S为P(1)、P(2)、P(3)、P(4)的和，显然P(1)=1，P(2)=1+2=3，P(3)=1+2+3=6，P(4)=1+2+3+4=10，所以S=1+3+6+10=20。

第4题：

单击一次命令按钮之后，下列程序代码的执行结果为 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


正确答案：B
解析：本题综合考查Function函数的建立、调用以及For循环控制语句。本题调用了4次P函数过程，参数赋值分别为1、2、3、4，对应的Sum值分别为1\4、10、20，之和为35，故答案为B。

第5题：

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

A．20

B．30

C．115

D．135


正确答案：B

第6题：

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

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


正确答案：20
20

第7题：

在窗体画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_CIick()

Dim a(1 To 10)

Dim p(1 To 3)

k=5

For i =1 To 10

a(i)=i

Next i

For i=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

Print k

End Sub

程序运行后，单击命令按钮，输出结果是【 】。


正确答案：33
33

第8题：

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

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


正确答案：C

第9题：

单击一次命令按钮后，下列程序的执行结果是( )。 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


正确答案：C

相关内容