【单选题】在窗体中有一个命令按钮Command0,编写事件代码如下: Private Sub Command0_Click() Dim s as Integer s=P(1)+ P(2)+ P(3)+ P(4) MsgBox s end sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Ne...
【单选题】( 34 )在窗体中有一个命令按钮 command1, 编写事件代码如下: Private sub command1_click() Dim s as integer S=p(1)+p(2)+p(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 Su...
【单选题】在窗体中有一个命令按钮command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(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+1 ...