５回計算の例１（VBA）

Calc.bas

Sub MainSub()
    Dim i As Integer
    Dim a As Integer
    a = 5
    
    For i = 1 To 5
        Sheets("Sheet1").Cells(i, 1).Value = CalcFunc(a, 5)
    Next
    
End Sub

Function CalcFunc(a As Integer, b As Integer) As Integer
    Dim result As Integer
    
    a = a + 5
    result = a + b
    
    CalcFunc = result
    
End Function