Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Module VBModule
Sub Main()
Dim n= Console.ReadLine
While
If Integer.TryParse(Console.ReadLine,n) Then
isPrime()
getReverse()
If isPrime=True
Console.WriteLine(n & "is a prime number.")
ElseIf isPrime=False
Console.WriteLinw(n & "is not a prime number.")
Else
Console.WriteLine("ERROR: the input is not an integer")
Next
Private Function isPrime(By Val n as Integer) As Boolean
End Function
Private Function getReverse(ByVal n as Integer) As Integer
Dim r As Integer
r=Integer.Parse.StrReverse(n)
End Function
End Sub
End Module
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more