在窗体中有一个命令按钮Command1,编写事件代码如下:Private Sub Command1_Click()Dim s As Integers = P(1)+ P(2)+ P(3)+ P(4)debug.Print sEnd SubPublic Function P(N As Integer)Dim Sum As IntegerSum = 0For i = 1 To NSum = Sum +
单选题
在窗体中有一个命令按钮Command1,编写事件代码如下:Private Sub Command1_Click()Dim s As Integers = P(1)+ P(2)+ P(3)+ P(4)debug.Print sEnd SubPublic Function P(N As Integer)Dim Sum As IntegerSum = 0For i = 1 To NSum = Sum +