-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathCalculator in Vb console
More file actions
33 lines (26 loc) · 1.12 KB
/
Copy pathCalculator in Vb console
File metadata and controls
33 lines (26 loc) · 1.12 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Imports System
Module Program
Sub Main(args As String())
Console.Write("Enter First Number :")
Dim FirstNumber As Double
FirstNumber = Console.ReadLine()
Console.Write("Enter Second Number : ")
Dim SecondNumber As Double
SecondNumber = Console.ReadLine()
Dim Mathoperator As String
Console.WriteLine("Enter The Operation : 1 = Addition , 2 = Subtract , 3= Devide , 4 = Multiply")
Mathoperator = Console.ReadLine()
Dim Result As Double
If Mathoperator = "1" Then
Result = FirstNumber + SecondNumber
Console.WriteLine("Result is =" & Result)
ElseIf Mathoperator = "2" Then
Result = FirstNumber - SecondNumber
Console.WriteLine("Result is =" & Result)
ElseIf Mathoperator = "3" Then
Result = FirstNumber / SecondNumber
Console.WriteLine("Result is =" & Result)
ElseIf Mathoperator = "4" Then
Result = FirstNumber * SecondNumber
Console.WriteLine("Result is =" & Result)
End If