VB Loops (2) | C# Online Compiler

VB Loops (2) by Fruit2

Imports System
Public Module Module1
	Public exitLoop as decimal 'So that I dont have to keep declaring it in every sub
	Public i as decimal
	Public Sub Main()
		i = 0
		Console.Writeline("Enter an value you will not be entering") 'To make sure none of the value of exitLoop (that is hard coded) isn't a value being inputted
		exitLoop = Console.readline()
'Remove ' to run one of following subs.
		minValue()
		'meanOfValues()
		'secondMax()
	End Sub
	Private sub minValue() 'Finds minimum value of set entered
		Dim minValue as decimal
		Console.writeline("Enter values slowly. Enter " & exitLoop & " to stop")
		minValue = Console.readline()
		Do until i = exitLoop 'Pre-condition loop
			i = Console.readline()
			If i = exitLoop Then 'End of program
				Console.writeline("The minimum value is " & minValue)
			Else if i < minValue Then
				minValue = i
			End if
		Loop
	End Sub
	Private sub meanOfValues() 'Finds mean (average) of values entered
		Dim total as decimal
		Dim count as integer
		Dim mean as decimal
'Initial values
		total = 0
		count = 0
		mean = 0
			Console.writeline("Enter values slowly. Enter " & exitLoop & " to stop")
		Do until i = exitLoop 'Pre-condition loop
			i = Console.readline()
			If i = exitLoop Then
				Console.writeline("The mean of all values inputted is " & mean)
			Else
				total = total + i
				count = count + 1
				mean = total / count
			End if
		Loop
	End sub
		Private sub secondMax() 'Finds second highest value entered.
		Dim firstMax as integer
		Dim secondMax as integer
			Console.writeline("Enter the values slowly. Enter " & exitLoop & " to stop")
		i = Console.readline()
		firstMax = i 'If both firstMax and secondMax became i then secondMax would always equal firstMax
		Do until i = exitLoop 'Pre-condition loop
			i = Console.readline()
			If i = exitLoop Then 'End of program
				Console.writeline("The second highest value was " & secondMax)
			Else
				If i > firstMax Then 'Because i is greater than firstMax, firstMax is now the second highest
					secondMax = firstMax
					firstMax = i
				Else if i > secondMax Then
					secondMax = i
				End if
			End if
		Loop
	End sub
			Private sub allOfTheAbove() 'This was my best attempt at combining all the subs into one. This can not find second highest if negative integers are entered
		Dim mean as decimal
		Dim minValue as decimal
		Dim firstMax as decimal
		Dim secondMax as decimal
		Dim total as decimal
		Dim count as integer
		count = 0
		total = 0
				Console.writeline("Enter the values slowly. Enter " & exitLoop & " to stop")
		Do until i = exitLoop
			i = Console.readline()
			If i = exitLoop 'End of program
				mean = total/count
				Console.writeline("The minimum value was " & minValue)
				Console.writeline("The mean of the values was " & mean)
				Console.writeline("The second highest value was " & secondMax)
			Else 
				If count = 0
					minValue = i
					firstMax = i
				End if
				If i < minValue
					minValue = i
				Else if i > firstMax
					secondMax = firstMax
					firstMax = i
				Else 
					If i > secondMax
						secondMax = i
					End if
				End if
				total = total + i
				count = count + 1
			End if
		Loop
	End sub
End Module

 
Imports System
Public Module Module1
    Public exitLoop as decimal 'So that I dont have to keep declaring it in every sub
    Public i as decimal
    Public Sub Main()
        i = 0
        Console.Writeline("Enter an value you will not be entering") 'To make sure none of the value of exitLoop (that is hard coded) isn't a value being inputted
        exitLoop = Console.readline()
'Remove ' to run one of following subs.
        minValue()
        'meanOfValues()
        'secondMax()
    End Sub
    Private sub minValue() 'Finds minimum value of set entered
        Dim minValue as decimal
        Console.writeline("Enter values slowly. Enter " & exitLoop & " to stop")
        minValue = Console.readline()
        Do until i = exitLoop 'Pre-condition loop
            i = Console.readline()
            If i = exitLoop Then 'End of program
                Console.writeline("The minimum value is " & minValue)
            Else if i < minValue Then
                minValue = i
            End if
        Loop
    End Sub
    Private sub meanOfValues() 'Finds mean (average) of values entered
        Dim total as decimal
        Dim count as integer
        Dim mean as decimal
'Initial values
        total = 0
        count = 0
        mean = 0
            Console.writeline("Enter values slowly. Enter " & exitLoop & " to stop")
        Do until i = exitLoop 'Pre-condition loop
            i = Console.readline()
            If i = exitLoop Then
                Console.writeline("The mean of all values inputted is " & mean)
            Else
                total = total + i
                count = count + 1
                mean = total / count
            End if
        Loop
    End sub
        Private sub secondMax() 'Finds second highest value entered.
        Dim firstMax as integer
        Dim secondMax as integer
            Console.writeline("Enter the values slowly. Enter " & exitLoop & " to stop")
        i = Console.readline()
        firstMax = i 'If both firstMax and secondMax became i then secondMax would always equal firstMax
        Do until i = exitLoop 'Pre-condition loop
            i = Console.readline()
            If i = exitLoop Then 'End of program
                Console.writeline("The second highest value was " & secondMax)
            Else
                If i > firstMax Then 'Because i is greater than firstMax, firstMax is now the second highest
                    secondMax = firstMax
                    firstMax = i
                Else if i > secondMax Then
                    secondMax = i
                End if
            End if
        Loop
    End sub
            Private sub allOfTheAbove() 'This was my best attempt at combining all the subs into one. This can not find second highest if negative integers are entered
        Dim mean as decimal
        Dim minValue as decimal
        Dim firstMax as decimal
        Dim secondMax as decimal
        Dim total as decimal
        Dim count as integer
        count = 0
        total = 0
                Console.writeline("Enter the values slowly. Enter " & exitLoop & " to stop")
        Do until i = exitLoop
            i = Console.readline()
            If i = exitLoop 'End of program
                mean = total/count
                Console.writeline("The minimum value was " & minValue)
                Console.writeline("The mean of the values was " & mean)
                Console.writeline("The second highest value was " & secondMax)
            Else 
                If count = 0
                    minValue = i
                    firstMax = i
                End if
                If i < minValue
                    minValue = i
                Else if i > firstMax
                    secondMax = firstMax
                    firstMax = i
                Else 
                    If i > secondMax
                        secondMax = i
                    End if
                End if
                total = total + i
                count = count + 1
            End if
        Loop
    End sub
End Module

Outer loop number 1
1, 1
1, 2
1, 3
1, 4
1, 5
Outer loop number 2
2, 1
2, 2
2, 3
2, 4
2, 5
Outer loop number 3
3, 1
3, 2
3, 3
3, 4
3, 5

Last Run:	9:55:45 am
Compile:	0.136s
Execute:	0.014s
Memory:	0b
CPU:	0s

View IL Code