【单选题】在窗体中有一个命令按钮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 ...
【单选题】P35.窗体上有命今按钮 Command1,对应的Click事件过程如下: Private Sub Commandl_Click() Dim x As Integer x=InputBox("请输入x的值") Select Case x Case 1,2,4,10 Debug.Print"A" Case 5 To 9 Debug.Print"B" Case Is=3 Debug.Print"C" ...
【单选题】|在窗体中有一个命令按钮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=SumE...