info/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2025-08-05 22:37:42 +02:00
Code Issues Releases Wiki Activity

[vb/en] fix type inconsistencies for calculator subs

Browse Source
This commit is contained in:
ioab
2015-11-04 00:24:43 +03:00
parent 05dac0dd35
commit d92db6ea39
1 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
visualbasic.html.markdown
View File

@@ -126,10 +126,10 @@ Module Module1
'Of course we would like to be able to add up decimals. 'Of course we would like to be able to add up decimals.
'Therefore we could change the above from Integer to Double. 'Therefore we could change the above from Integer to Double.
'Enter a whole number, 1.2, 2.4, 50.1, 104.9 etc 'Enter a floating-point number, 1.2, 2.4, 50.1, 104.9 etc
Console.Write("First number: ") Console.Write("First number: ")
Dim a As Double = Console.ReadLine Dim a As Double = Console.ReadLine
Console.Write("Second number: ") 'Enter second whole number. Console.Write("Second number: ") 'Enter second floating-point number.
Dim b As Double = Console.ReadLine Dim b As Double = Console.ReadLine
Dim c As Double = a + b Dim c As Double = a + b
Console.WriteLine(c) Console.WriteLine(c)
@@ -145,12 +145,12 @@ Module Module1
'Copy and paste the above again. 'Copy and paste the above again.
Console.Write("First number: ") Console.Write("First number: ")
Dim a As Double = Console.ReadLine Dim a As Double = Console.ReadLine
Console.Write("Second number: ") 'Enter second whole number. Console.Write("Second number: ") 'Enter second floating-point number.
Dim b As Integer = Console.ReadLine Dim b As Double = Console.ReadLine
Dim c As Integer = a + b Dim c As Double = a + b
Dim d As Integer = a * b Dim d As Double = a * b
Dim e As Integer = a - b Dim e As Double = a - b
Dim f As Integer = a / b Dim f As Double = a / b
'By adding the below lines we are able to calculate the subtract, 'By adding the below lines we are able to calculate the subtract,
'multiply as well as divide the a and b values 'multiply as well as divide the a and b values
@@ -179,11 +179,11 @@ Module Module1
Console.Write("First number: ") Console.Write("First number: ")
Dim a As Double = Console.ReadLine Dim a As Double = Console.ReadLine
Console.Write("Second number: ") Console.Write("Second number: ")
Dim b As Integer = Console.ReadLine Dim b As Double = Console.ReadLine
Dim c As Integer = a + b Dim c As Double = a + b
Dim d As Integer = a * b Dim d As Double = a * b
Dim e As Integer = a - b Dim e As Double = a - b
Dim f As Integer = a / b Dim f As Double = a / b
Console.Write(a.ToString() + " + " + b.ToString()) Console.Write(a.ToString() + " + " + b.ToString())
Console.WriteLine(" = " + c.ToString.PadLeft(3)) Console.WriteLine(" = " + c.ToString.PadLeft(3))