有如下事件过程
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
单击命令按钮后，程序执行的结果是
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
单击命令按钮后，程序执行的结果是
举一反三
- 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 For j=4 to 8 sum=sum+1 Next j Next i Print sum End Sub 运行时，单击按钮，输出结果是（ ）
- 在窗体上添加一个命令按钮，编写如下事件过程： Private Sub Command1_Click() sum=0 For i=3 To 7 sum=i+2 Next i MsgBox sum+i End Sub 运行窗体后，单击命令按钮，消息框的输出结果是______。
- 编写如下程序： Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击按钮，显示结果为（ ）。Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print SumEnd Sub
- 单击命令按钮时，下列程序的执行结果为（）。 PrivateFunctionP(NAsInteger) Staticsum ForI=1ToN sum=sum+1 NextI P=sum EndFunction PrivateSubCommand1_Click() S=P(1)+P(2)+P(3)+P(4) PrintS; EndSub