在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_CliCk()Dim s As Integers=P(1)+P(2)+e(3)+P(4)debug．Print SEnd SUbPublic Function P(N AS Integer)Dim Sum As IntegerSum=0For i=1 To NSum=Sum+iNext iP=SumEnd Function打开窗体运行后，单击命令按钮，输出结果是A．15B．20C．25D．35
在窗体中有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(3)+P(4)
debug．Print S
End SUb
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是
A．15
B．20
C．25
D．35
相关考题：
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：Private Sub Commandl Click（ ）Lablel．Caption=”标签”End SubPrivate Sub Form—Load（ ）Form．Caption=”举例”Commandl．Caption=”移动”End Sub打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（ ）窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1B. 2C. 3D. 4
在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下：Private Sub Commandl_Click()Labele.Caption＝“标签”End SubPrivate Sub Form_Load()Form.Caption＝“举例”Commandl.Caption＝“移动”End Sub打开窗体后，单击命令按钮，屏幕显示( )。A．B．C．D．
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.机床B.车床C.钻床D.轴承