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

Comments

Post a Comment

Popular posts from this blog

Check whether the input number is arm-strong or not

Module Module1 Sub Main() 'Program to check whether the input number is armstrong or not 'decalring the variables Dim entry, num, check, temp As Integer Console.WriteLine("Enter the number to check whether the number is arm strong or not") entry = Console.ReadLine() num = entry While num 0 temp = num Mod 10 check = check + temp ^ 3 num = num \ 10 End While If entry = check Then Console.WriteLine("The number is a armstrong number") Else Console.WriteLine("The number is not a palindrome number") End If Console.ReadKey() End Sub End Module
Read more

Reverse the input number and print it

Module Module1 Sub main() 'declaring the datatypes Dim reverse, temp As Integer Dim num As Single 'input the number to be reversed Console.WriteLine("Enter the number to be reversed") num = Console.ReadLine temp = 0 reverse = 0 'start of the while loop While num 0 temp = num Mod 10 reverse = reverse * 10 + temp num = num \ 10 End While 'printing the number after reversing Console.WriteLine(reverse) Console.ReadLine() ' this line of code holds the screen so that you can see the output End Sub End Module
Read more

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
Read more