Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a As Long
For i = 1 To 100
a = a + ss(i)
Next i
Print a
End Sub
Function ss(n As Integer)
Dim i As Integer
For i = 1 To n
ss = ss + n
Next i
End Function
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a As Long
For i = 1 To 100
a = a + ss(i)
Next i
Print a
End Sub
Function ss(n As Integer)
Dim i As Integer
For i = 1 To n
ss = ss + n
Next i
End Function
vc要么？
不会
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024