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

28
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))
@@ -196,7 +196,7 @@ Module Module1
Console.ReadLine() Console.ReadLine()
'Ask the question, does the user wish to continue? Unfortunately it 'Ask the question, does the user wish to continue? Unfortunately it
'is case sensitive. 'is case sensitive.
Console.Write("Would you like to continue? (yes / no)") Console.Write("Would you like to continue? (yes / no) ")
'The program grabs the variable and prints and starts again. 'The program grabs the variable and prints and starts again.
answer = Console.ReadLine answer = Console.ReadLine
'The command for the variable to work would be in this case "yes" 'The command for the variable to work would be in this case "yes"