5·执行下面程序,单击Commandl按钮后,显示在窗体上的第一行内容是(13)第二行内容是( 14 )、第三行的内容是( 15 ) Option ExplicitDim A As IntegerPrivate Sub Commandl_Click()Dim B As IntegerA=1：B=2Print funl(funl(A,B),B

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 08:30:55

5·执行下面程序,单击Commandl按钮后,显示在窗体上的第一行内容是(13)第二行内容是( 14 )、第三行的内容是( 15 ) Option ExplicitDim A As IntegerPrivate Sub Commandl_Click()Dim B As IntegerA=1：B=2Print funl(funl(A,B),B
5·执行下面程序,单击Commandl按钮后,显示在窗体上的第一行内容是(13)
第二行内容是( 14 )、第三行的内容是( 15 )
Option Explicit
Dim A As Integer
Private Sub Commandl_Click()
Dim B As Integer
A=1：B=2
Print funl(funl(A,B),B)
Print A
Print B
End Sub
PriVate Function funl(X As Integer,Y As Integer)As Integer
Dim I As Integer
For I=1 To Y
Y=Y+1
X=X+1
A=X+Y
Next I
funl=A+Y
End Function