[trakktour]

و عليكم السلام
تفضل

كود :

Public num1 As Integer
   Public num2 As Integer
   Public answer As Integer

   Sub Main()
       System.Console.WriteLine("Welcome")
       Module1.trakktour()
   End Sub
   Sub trakktour()
       System.Console.WriteLine("Pick a command:")
       System.Console.WriteLine("1) Addition")
       System.Console.WriteLine("2) Soustraction")
       Select Case Console.ReadLine
           Case "1" : Module1.Addition()
           Case "2" : Module1.Soustraction()
           Case Else : Module1.trakktour()
       End Select
   End Sub
   Sub Addition()
       Console.WriteLine("Type a number and press Enter")
       num1 = Console.ReadLine()
       Console.WriteLine("Type another number to add to it and press Enter")
       num2 = Console.ReadLine()
       answer = num1 + num2
       Console.WriteLine("The answer is " & answer)
       Console.ReadLine()

   End Sub
   Sub Soustraction()
       Console.WriteLine("Type a number and press Enter")
       num1 = Console.ReadLine()
       Console.WriteLine("Type another number to add to it and press Enter")
       num2 = Console.ReadLine()
       answer = num1 - num2
       Console.WriteLine("The answer is " & answer)
       Console.ReadLine()

   End Sub