Check whether the input number is prime or not


Module Module1

Sub Main()
'program to check whether the input number is a prime number or not

'decalring the variables
Dim entry, count, index As Integer

Console.WriteLine("Enter the number to check prime or not")
entry = Console.ReadLine()

For index = 1 To entry
If entry Mod index = 0 Then
count = count + 1
End If
Next
If count = 2 Then
Console.WriteLine(entry & " is a prime number")
Else
Console.WriteLine(entry & " is not a prime number")
End If
Console.ReadKey()
End Sub

End Module

Comments

Post a Comment

Popular posts from this blog

Print the factorial value of an input number

Module Module1 Sub main() 'program to print the factorial value of a input number 'declaring the datatypes Dim num, factorial As Integer 'initializing the value of factorial factorial = 1 'entry of the number Console.WriteLine("Enter the number whose factorial value you want to be generated ") num = Console.ReadLine 'start of the while loop to calculate the factorial value of the input number While num <> 0 factorial = factorial * num num = num - 1 End While 'generating the output of the factorial value Console.WriteLine("The factorial value of the number you entered is " & factorial) Console.ReadLine() ' this line of code holds the screen so that you can see the output End Sub End Module
Read more

Print Greatest Number out of 3 numbers

Module Module1 Sub Main() Dim num1, num2, num3 As Integer Console.WriteLine("Enter the first number") num1 = Console.ReadLine Console.WriteLine("Enter the second number") num2 = Console.ReadLine Console.WriteLine("Enter the third number") num3 = Console.ReadLine If num1 > num2 And num1 > num3 Then Console.WriteLine(num1 & " is the greatest number") ElseIf num2 > num1 And num2 > num3 Then Console.WriteLine(num2 & " is the greatest number") ElseIf num1 = num2 And num2 = num3 Then Console.WriteLine("Oops ! you have enetered a number thrice. So ! no greater number found") Else Console.WriteLine(num3 & " is the greatest number") End If Console.ReadKey() End Sub End Module
Read more