Advertisement
CardinalGaming

Module 4 Example 1

Sep 13th, 2021
1,155
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.         'CHECK IF THE GIVEN NUMBER IS 18 OR ABOVE
  5.        Dim num As Integer
  6.         Console.Write("Please enter a number: ")
  7.         num = Console.ReadLine
  8.  
  9.         If num >= 18 Then
  10.             Console.WriteLine("The given number is 18 and above!")
  11.         Else
  12.             Console.WriteLine("The given number is below 18!")
  13.         End If
  14.  
  15.         Console.ReadKey()
  16.     End Sub
  17.  
  18. End Module
  19.  
Advertisement
RAW Paste Data Copied
Advertisement