Imports System
Public Class VBApplication
Private Shared Function recursive_divide(ByVal a As Integer, ByVal b As Integer) As Integer
If a < b Then
Return 0
End If
Return recursive_divide(a - b, b) + 1
End Function
Public Shared Sub Main(ByVal args As String())
Dim a As Integer = 28
Dim b As Integer = 4
Console.Write(recursive_divide(a, b))
End Sub
End Class
' run:
'
' 7
'