Imports System
Public Module Module1
Public Function isprime_recursion(n AS Integer, i AS Integer) AS Boolean
If i = 1 Then
return true
Else
If n Mod i = 0 Then
return false
Else
return isprime_recursion(n, i - 1)
End If
End If
End Function
Public Sub Main()
Dim n As Integer = 23
If isprime_recursion(n, n / 2) Then
Console.Write("Prime")
Else
Console.Write("Not prime")
End If
End Sub
End Module
' run:
'
' 23
'