19 lines
358 B
Plaintext
19 lines
358 B
Plaintext
Public Sub Main()
|
|
Dim a, b As String
|
|
Dim c, d As Integer
|
|
|
|
Print "Enter two integer numbers, separated by space:"
|
|
Input a, b
|
|
|
|
c = CInt(a)
|
|
d = CInt(b)
|
|
|
|
Print "Sum: " & (c + d)
|
|
Print "Difference:" & (c - d)
|
|
Print "Product: " & (c * d)
|
|
Print "Integer: " & (c Div d)
|
|
Print "Remainder: " & (c Mod d)
|
|
Print "Exponentiation: " & (c ^ d)
|
|
|
|
End
|