Option Explicit
Private Sub Command1_Click()
Dim i As Integer, s As Integer
For i = 1 To 9 Step 3
s = fun((i)) + fun(i)
Print s
Next i
End Sub
Private Function fun(m As Integer) As Integer
Static a As Integer
If m Mod 2 = 0 Then
a = a + 1
m = m + 1
Else
a = a + 2
m = m + 2
End If
fun = a + m
Print fun
End Function
问第1行第3行最后1行的结果?结果是5,12,25.我不知道怎么做的,还有里面的s = fun((i)) + fun(i)的fun((i)) 是什么意思呀?求高人解答,急急急