Option Explicit Private Sub Command1_Click() Print MyJ(100) End Sub Private Function MyJ(ByVal J As Integer) As Double Dim i As Integer Dim JJ As Double JJ = 0 For i = 1 To J JJ = JJ + 1 / i Next i MyJ = JJ End Function
Private Function MyJ(ByVal J As Integer) As Double Dim i As Integer Dim JJ As Double JJ = 0 For i = 1 To J JJ = JJ + 1 / i Next i MyJ = JJ End Function