C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
Imports System.IO
Module Module1
    'Worksheet Ch13
    'Write a program to take as input the length and width of a rectangular garden. The program Is to calculate And output the surface area.
    Sub Main()
        'q1()
        'q2()
        'q3()
        'q4()
        'q5()
        'q6()
        'q7()
        'q8()
        'q9()
        'q10()
        'q11()
        'q12()
        'q13()
        'q14()
        'q15()
        'q16()
        'q17()
        'q18()
        'q19()
        'q20()
        'q21()
        'q22()
        'q23()
        'q24()
        'q25()
        'q26()
        'q27()
        'q28()
        'q29()
        'q30()
    End Sub
    Sub q1()
        Console.WriteLine("Please input the length and width of your garden")
        Dim x As Decimal = Console.ReadLine()
        Console.WriteLine("The Area of your garden is " & x * Console.ReadLine())
        Console.ReadLine()
        'Console.WriteLine("Please input the length of your garden")
        'Dim x As Decimal = Console.ReadLine()
        'Console.WriteLine("Please input the width of your garden")
        'Dim y As Decimal = Console.ReadLine()
        'Console.WriteLine("The Area of your garden is " + x * y)
        'Console.ReadLine()
    End Sub
    Sub q2()
        'Write a program to take as input a temperature in degrees Fahrenheit. The program is to convert And output the temperature in degrees Celsius (Hint DegreesC = (DegreesF – 32) * 5/9)
        Console.WriteLine("Give a temperature in Fahrenheit to convert to Celsius")
        Dim F As Decimal = Console.ReadLine()
        Console.WriteLine("The temperature in Celsius is " & (F - 32) * 5 / 9)
        Console.ReadLine()
    End Sub
    Sub q3()
        'Write a program to take as input air temperature in degrees Celsius. The program Is to output a message to say whether it is freezing (below 1 degree) Or Not.
        Console.WriteLine("What is the temperature?")
        Dim C As Decimal = Console.ReadLine()
        If C < 1 Then
            Console.WriteLine("It is freezing")
        Else
            Console.WriteLine("It is not freezing")
        End If
        Console.ReadLine()
    End Sub
    Sub q4()
        'Amend your program from (3) to say whether the water in a container Is frozen, liquid or boiling.
        Console.WriteLine("What is the temperature of the water?")
        Dim C As Decimal = Console.ReadLine()
        If C <= 0 Then
            Console.WriteLine("The water is frozen")
        ElseIf C <= 100 Then
            Console.WriteLine("The water is liquid")
        Else
            Console.WriteLine("The water is boiling")
        End If
        Console.ReadLine()
    End Sub
    Sub q5()
        'Write a program to take as input an integer between 1 And 12 (inclusive). The program is to output the name of the month corresponding to the number input. for example, an input of 2 will output 'February’. Hint: use a CASE statement.

        Dim n = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}
        Console.WriteLine("Give a number between 1 and 12")
        Console.WriteLine("The month that corresponds to this number is " & n(Console.ReadLine() - 1))
        Console.ReadLine()

        'Console.WriteLine("Input a number between 1 and 12")
        'Dim month As Integer = Console.ReadLine()
        'Console.Write("The corresponding month is ")
        'Select Case month
        '    Case 1
        '        Console.WriteLine("January")
        '    Case 2
        '        Console.WriteLine("February")
        '    Case 3
        '        Console.WriteLine("March")
        '    Case 4
        '        Console.WriteLine("April")
        '    Case 5
        '        Console.WriteLine("May")
        '    Case 6
        '        Console.WriteLine("June")
        '    Case 7
        '        Console.WriteLine("July")
        '    Case 8
        '        Console.WriteLine("August")
        '    Case 9
        '        Console.WriteLine("September")
        '    Case 10
        '        Console.WriteLine("October")
        '    Case 11
        '        Console.WriteLine("November")
        '    Case 12
        '        Console.WriteLine("December")
        'End Select
        'Console.ReadLine()
    End Sub
    Sub q6()
        'Write a program to take as input a positive integer. The program is to output integers counting from 1 to the number input. For example, an input of 5 will output: 1 2 3 4 5
        'Dim x As Integer = 0
        'Console.WriteLine("Input a number, I will count to that number")
        'Dim y As Integer = Console.ReadLine()
        'Do Until x = y
        '    x = x + 1
        '    Console.WriteLine(x)
        'Loop
        'Console.ReadLine()

        Console.WriteLine("Input a number greater than 1, I will count up to that number")
        Dim i As Integer = Console.ReadLine()
        For n As Integer = 1 To i
            Console.Write(n & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q7()
        'Amend your program from (6) to count down from the number input to 1. For example, an input of 5 will output: 5 4 3 2 1
        'Dim x As Integer = 0
        'Console.WriteLine("Input a number greater than 1, I will count down to 1 from that number")
        'Dim y As Integer = Console.ReadLine()
        'Do Until x = y
        '    Console.Write(y & " ")
        '    y = y - 1
        'Loop
        'Console.ReadLine()

        Console.WriteLine("Input a number greater than 1, I will count down to 1 from that number")
        Dim i As Integer = Console.ReadLine()
        For n As Integer = i To 1 Step -1
            Console.Write(n & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q8()
        'Amend your program from (6) to take as input a second integer to be used as counting interval. For example, the input of 20, 4 will output:  1 5 9 13 17

        'Console.WriteLine("Input two numbers, I will count up to the first in intervals of the second")
        'Dim w As Integer = 1
        'Dim x As Integer = Console.ReadLine()
        'Dim y As Integer = Console.ReadLine()
        'Do
        '    Console.WriteLine(w)
        '    w = w + y
        'Loop Until w >= x
        'Console.ReadLine()

        Console.WriteLine("Input two numbers, I will count up to the first in intervals of the second")
        Dim x As Integer = Console.ReadLine()
        Dim y As Integer = Console.ReadLine()
        For w = 1 To x Step y
            Console.WriteLine(w)
        Next
        Console.ReadLine()
    End Sub
    Sub q9()
        'Write a program to take as input ten numbers and output the largest number.

        'Console.WriteLine("Give me 10 numbers, I will output the highest one")
        'Dim num As Decimal
        'Dim max As Decimal = Console.ReadLine()
        'Dim n As Integer = 0
        'Do
        '    num = Console.ReadLine()
        '    n = n + 1
        '    If max < num Then
        '        max = num
        '    End If
        'Loop Until n = 9
        'Console.WriteLine("The greatest number is " & max)
        'Console.ReadLine()

        Console.WriteLine("Give me 10 numbers, I will output the highest one")
        Dim num As Decimal
        Dim max As Decimal = Console.ReadLine()
        For n = 1 To 9
            num = Console.ReadLine()
            If max < num Then
                max = num
            End If
        Next
        Console.WriteLine("The greatest number is " & max)
        Console.ReadLine()
    End Sub
    Sub q10()
        'Amend your program from (9) to output the smallest number.

        'Console.WriteLine("Give me 10 numbers, I will output the lowest one")
        'Dim num As Decimal
        'Dim least As Decimal = Console.ReadLine()
        'Dim n As Integer = 0
        'Do
        '    num = Console.ReadLine()
        '    n = n + 1
        '    If least > num Then
        '        least = num
        '    End If
        'Loop Until n = 9
        'Console.WriteLine("The lowest number is " & least)
        'Console.ReadLine()

        Console.WriteLine("Give me 10 numbers, I will output the lowest one")
        Dim num As Decimal
        Dim least As Decimal = Console.ReadLine()
        For n = 1 To 9
            num = Console.ReadLine()
            If least > num Then
                least = num
            End If
        Next
        Console.WriteLine("The lowest number is " & least)
        Console.ReadLine()
    End Sub
    Sub q11()
        'Write a program that asks the user for an integer between 1 and 5 (inclusive).
        'The program is to check that the input is within the range and if not, prompt the user for a valid integer until the input is within the range.
        Console.WriteLine("Input a number between 1 and 5 (inclusive)")
        Dim num As Decimal
        Do Until num >= 1 And num <= 5
            num = Console.ReadLine()
            If num < 1 Or num > 5 Then
                Console.WriteLine("This number is not valid")
            Else
                Console.WriteLine("Thank you")
            End If
        Loop
        Console.ReadLine()
    End Sub
    Sub q12()
        'Write a program to take as input two positive integers. The program is to output integers counting from the first integer to the second integer. For example, the input 3, 7 will output: 3 4 5 6 7
        Console.WriteLine("Input 2 numbers, I will count from one to the other")
        Dim x As Integer = Console.ReadLine()
        Dim y As Integer = Console.ReadLine()
        If x < y Then
            Do Until x = (y + 1)
                Console.WriteLine(x)
                x = x + 1
            Loop
        ElseIf x > y Then
            Do Until x = (y - 1)
                Console.WriteLine(x)
                x = x - 1
            Loop
        End If
        Console.ReadLine()
    End Sub
    Sub q13()
        'Write a program to initialise an array with ten elements. Each element is to contain the number 0. The program is to output the contents of the array.
        Dim array(9) As Integer
        For i As Integer = 0 To 9
            Console.Write(array(i) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q14()
        'Amend your program from (13) so the first element contains 1, the second element contains 2 and so on.
        Dim array(9) As Integer
        For i As Integer = 0 To 9
            array(i) = i + 1
            Console.Write(array(i) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q15()
        'Amend your program from (13). After initialisation the program is to ask repeatedly for an integer between 1 and 10 until the input is terminated by 0.
        'For each input, the relevant array element content is to be increased by 1. For example, if the input is 5, the fifth element should be incremented by 1.
        Dim array(9) As Integer
        Dim i As Integer = 1
        Do
            Console.WriteLine("Give me a number between 1 and 10 to add 1 to the number in that position in the array. Type 0 to see the array")
            i = Console.ReadLine()
            If i <= 10 And i >= 1 Then
                array(i - 1) += 1
            ElseIf i = 0 Then
                Exit Do
            Else
                Console.WriteLine("That's not a number between 1 and 10")
            End If
        Loop
        For n As Integer = 0 To 9
            Console.Write(array(n) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q16()
        Dim array(4, 4) As Integer
        For x = 0 To 4
            For y = 0 To 4
                Console.Write(array(x, y) & " ")
            Next
            Console.WriteLine("")
        Next
        Console.ReadLine()
    End Sub
    Sub q17()
        Dim array(4, 4) As Integer
        Dim i As Integer = 1
        Dim j As Integer = 1
        Do
            Console.WriteLine("Give me two numbers between 1 and 5 to add 1 to the number in that coordinate in the array. Type 0 to see the array")
            i = Console.ReadLine()
            j = Console.ReadLine()
            If i <= 5 And i >= 1 And j <= 5 And j >= 1 Then
                array(i - 1, j - 1) += 1
            ElseIf i = 0 Or j = 0 Then
                Exit Do
            Else
                Console.WriteLine("That's not a number between 1 and 5")
            End If
        Loop
        For x = 0 To 4
            For y = 0 To 4
                Console.Write(array(x, y) & " ")
            Next
            Console.WriteLine("")
        Next
        Console.ReadLine()
    End Sub
    Sub q18()
        'Write a program that takes as input a character. The program is to output the ASCII code for that character.
        Console.WriteLine("Input a single character, I will give the corresponding ASCII code")
        Dim x As Object
        Do
            x = Console.ReadLine()
            If x.Length = 1 Then
                Console.WriteLine("The corresponding ASCII code is " & Asc(x))
            Else
                Console.WriteLine("Please enter a single character")
            End If
        Loop Until x.Length = 1
        Console.ReadLine()
    End Sub
    Sub q19()
        Console.WriteLine("Input an ASCII integer code, I will give the corresponding ASCII character")
        Dim x As Object = Console.ReadLine()
        Do
            If IsNumeric(x) = True Then
                If x = CInt(x) Then
                    If x >= 0 And x < 256 Then
                        Console.WriteLine("The corresponding ASCII character is " & Chr(x))
                        Exit Do
                    Else
                        Console.WriteLine("Please enter a valid code")
                    End If
                Else
                    Console.WriteLine("Please input an integer")
                End If
            Else
                Console.WriteLine("That is not a number")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q20()
        'Write a program that takes as input a string. The program is to output the number of characters in the input string.
        Console.WriteLine("Please write a sentence, I will tell you the number of letters and spaces in your sentence")
        Dim x As String = Console.ReadLine()
        Console.WriteLine("Your sentence has " & x.Length & " characters")
        Console.ReadLine()
    End Sub
    Sub q21()
        'Write a program that takes as input a string. The program is to output the two leftmost characters.
        Console.WriteLine("Please write a sentence, I will tell you the two leftmost characters")
        Dim x As String = Console.ReadLine()
        Do
            If x.Length > 2 Then
                Console.WriteLine("The two leftmost characters are " & x.Substring(0, 1) & " and " & x.Substring(1, 1))
                Exit Do
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q22()
        'Amend your program from (21) to output the two rightmost characters.
        Console.WriteLine("Please write a sentence, I will tell you the two rightmost characters")
        Dim x As String = Console.ReadLine()
        Do
            If x.Length > 2 Then
                Console.WriteLine("The two rightmost characters are " & x.Substring(x.Length - 2, 1) & " and " & x.Substring(x.Length - 1, 1))
                Exit Do
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q23()
        'Write a program that takes as input a string. The program is to calculate the middle position and output the middle character. If the string length is an even number the two middle characters are to be output.
        Console.WriteLine("Please write a sentence, I will tell you the centremost character(s)")
        Dim x As String = Console.ReadLine()
        Dim y As Decimal = x.Length / 2
        Do
            If x.Length > 2 Then
                If y = Int(y) Then
                    Console.WriteLine("The two centremost characters are " & x.Substring(y - 1, 1) & " and " & x.Substring(y, 1))
                    Exit Do
                ElseIf y <> Int(y) Then
                    Console.WriteLine("The centremost character is" & x.Substring(y - 0.5, 1))
                    Exit Do
                End If
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q24()
        'Write a program that takes two input strings: a first name and surname. The program is to produce the full name by concatenating the first name and surname with a space in between them. The program is then to output the full name.
        Console.WriteLine("Enter a first name")
        Dim name1 As String = Console.ReadLine()
        Console.WriteLine("Enter a last name")
        Dim name2 As String = Console.ReadLine()
        Console.WriteLine("The full name is " & name1 & " " & name2)
        Console.ReadLine()
    End Sub
    Sub q25()
        'Amend your program from (24) to produce a name string made up from the first letter of the first name, a space and the surname.
        Console.WriteLine("Enter a first name")
        Dim name1 As String = Console.ReadLine()
        Console.WriteLine("Enter a last name")
        Dim name2 As String = Console.ReadLine()
        Dim nameFull As String = name1 & " " & name2
        Console.WriteLine("The full name is " & nameFull)
        Console.ReadLine()
    End Sub
    Sub q26()
        'Write a program that takes as input a number with a decimal point. The program is to output the nearest whole number.
        Console.WriteLine("Give me a decimal number, I will round it to the nearest whole number")
        Dim x As Decimal = Console.ReadLine()
        Console.WriteLine("When rounded, your decimal becomes " & Math.Round(x))
        Console.ReadLine()
    End Sub
    Sub q27()
        'Write a program that generates and outputs five random numbers. Run the program several times to ensure they are not the same numbers each time.
        Console.WriteLine("Enter an integer to get 5 random integers between 1 and your number")
        Dim n As Integer = Console.ReadLine()
        For i As Integer = 0 To 4
            Randomize()
            Console.Write(Math.Round((n - 1) * Rnd() + 1) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q28()
        'Create a text file with several lines of text in a text editor (for example NotePad).
        'Write a program to read this text file and output the contents.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileName As String = filePath & "\testfile.htm"
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(fileName, True)
        input.WriteLine("Test")
        input.WriteLine("I don't know what I'm doing")
        input.Write("Send help")
        input.Close()
        Dim output As StreamReader = New StreamReader(fileName)
        Dim outputData As String = output.ReadToEnd()
        Console.WriteLine(outputData)
        output.Close()
        Console.ReadLine()
    End Sub
    Sub q29()
        'Amend your program from (28) to output the text from the first text file to another text file. Open the newly created text file in a text editor to check the program worked successfully.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileInput As String = filePath & "\testfile.htm"
        Dim newFile As String = filePath & "\testfile2.htm"
        Dim output As StreamReader = New StreamReader(fileInput)
        Dim outputData As String = output.ReadToEnd()
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(newFile, True)
        input.WriteLine(outputData)
        input.Close()
        output.Close()
    End Sub
    Sub q30()
        'Amend your program from (28) to add another line of text to the text file (append). Check in the text editor that the program worked successfully.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileName As String = filePath & "\testfile.htm"
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(fileName, True)
        input.WriteLine("Test")
        input.WriteLine("I don't know what I'm doing")
        input.Write("Send help")
        input.Close()
    End Sub
End Module

​x
 
Imports System
Imports System.IO
Module Module1
    'Worksheet Ch13
    'Write a program to take as input the length and width of a rectangular garden. The program Is to calculate And output the surface area.
    Sub Main()
        'q1()
        'q2()
        'q3()
        'q4()
        'q5()
        'q6()
        'q7()
        'q8()
        'q9()
        'q10()
        'q11()
        'q12()
        'q13()
        'q14()
        'q15()
        'q16()
        'q17()
        'q18()
        'q19()
        'q20()
        'q21()
        'q22()
        'q23()
        'q24()
        'q25()
        'q26()
        'q27()
        'q28()
        'q29()
        'q30()
    End Sub
    Sub q1()
        Console.WriteLine("Please input the length and width of your garden")
        Dim x As Decimal = Console.ReadLine()
        Console.WriteLine("The Area of your garden is " & x * Console.ReadLine())
        Console.ReadLine()
        'Console.WriteLine("Please input the length of your garden")
        'Dim x As Decimal = Console.ReadLine()
        'Console.WriteLine("Please input the width of your garden")
        'Dim y As Decimal = Console.ReadLine()
        'Console.WriteLine("The Area of your garden is " + x * y)
        'Console.ReadLine()
    End Sub
    Sub q2()
        'Write a program to take as input a temperature in degrees Fahrenheit. The program is to convert And output the temperature in degrees Celsius (Hint DegreesC = (DegreesF – 32) * 5/9)
        Console.WriteLine("Give a temperature in Fahrenheit to convert to Celsius")
        Dim F As Decimal = Console.ReadLine()
        Console.WriteLine("The temperature in Celsius is " & (F - 32) * 5 / 9)
        Console.ReadLine()
    End Sub
    Sub q3()
        'Write a program to take as input air temperature in degrees Celsius. The program Is to output a message to say whether it is freezing (below 1 degree) Or Not.
        Console.WriteLine("What is the temperature?")
        Dim C As Decimal = Console.ReadLine()
        If C < 1 Then
            Console.WriteLine("It is freezing")
        Else
            Console.WriteLine("It is not freezing")
        End If
        Console.ReadLine()
    End Sub
    Sub q4()
        'Amend your program from (3) to say whether the water in a container Is frozen, liquid or boiling.
        Console.WriteLine("What is the temperature of the water?")
        Dim C As Decimal = Console.ReadLine()
        If C <= 0 Then
            Console.WriteLine("The water is frozen")
        ElseIf C <= 100 Then
            Console.WriteLine("The water is liquid")
        Else
            Console.WriteLine("The water is boiling")
        End If
        Console.ReadLine()
    End Sub
    Sub q5()
        'Write a program to take as input an integer between 1 And 12 (inclusive). The program is to output the name of the month corresponding to the number input. for example, an input of 2 will output 'February’. Hint: use a CASE statement.
​
        Dim n = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}
        Console.WriteLine("Give a number between 1 and 12")
        Console.WriteLine("The month that corresponds to this number is " & n(Console.ReadLine() - 1))
        Console.ReadLine()
​
        'Console.WriteLine("Input a number between 1 and 12")
        'Dim month As Integer = Console.ReadLine()
        'Console.Write("The corresponding month is ")
        'Select Case month
        '    Case 1
        '        Console.WriteLine("January")
        '    Case 2
        '        Console.WriteLine("February")
        '    Case 3
        '        Console.WriteLine("March")
        '    Case 4
        '        Console.WriteLine("April")
        '    Case 5
        '        Console.WriteLine("May")
        '    Case 6
        '        Console.WriteLine("June")
        '    Case 7
        '        Console.WriteLine("July")
        '    Case 8
        '        Console.WriteLine("August")
        '    Case 9
        '        Console.WriteLine("September")
        '    Case 10
        '        Console.WriteLine("October")
        '    Case 11
        '        Console.WriteLine("November")
        '    Case 12
        '        Console.WriteLine("December")
        'End Select
        'Console.ReadLine()
    End Sub
    Sub q6()
        'Write a program to take as input a positive integer. The program is to output integers counting from 1 to the number input. For example, an input of 5 will output: 1 2 3 4 5
        'Dim x As Integer = 0
        'Console.WriteLine("Input a number, I will count to that number")
        'Dim y As Integer = Console.ReadLine()
        'Do Until x = y
        '    x = x + 1
        '    Console.WriteLine(x)
        'Loop
        'Console.ReadLine()
​
        Console.WriteLine("Input a number greater than 1, I will count up to that number")
        Dim i As Integer = Console.ReadLine()
        For n As Integer = 1 To i
            Console.Write(n & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q7()
        'Amend your program from (6) to count down from the number input to 1. For example, an input of 5 will output: 5 4 3 2 1
        'Dim x As Integer = 0
        'Console.WriteLine("Input a number greater than 1, I will count down to 1 from that number")
        'Dim y As Integer = Console.ReadLine()
        'Do Until x = y
        '    Console.Write(y & " ")
        '    y = y - 1
        'Loop
        'Console.ReadLine()
​
        Console.WriteLine("Input a number greater than 1, I will count down to 1 from that number")
        Dim i As Integer = Console.ReadLine()
        For n As Integer = i To 1 Step -1
            Console.Write(n & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q8()
        'Amend your program from (6) to take as input a second integer to be used as counting interval. For example, the input of 20, 4 will output:  1 5 9 13 17
​
        'Console.WriteLine("Input two numbers, I will count up to the first in intervals of the second")
        'Dim w As Integer = 1
        'Dim x As Integer = Console.ReadLine()
        'Dim y As Integer = Console.ReadLine()
        'Do
        '    Console.WriteLine(w)
        '    w = w + y
        'Loop Until w >= x
        'Console.ReadLine()
​
        Console.WriteLine("Input two numbers, I will count up to the first in intervals of the second")
        Dim x As Integer = Console.ReadLine()
        Dim y As Integer = Console.ReadLine()
        For w = 1 To x Step y
            Console.WriteLine(w)
        Next
        Console.ReadLine()
    End Sub
    Sub q9()
        'Write a program to take as input ten numbers and output the largest number.
​
        'Console.WriteLine("Give me 10 numbers, I will output the highest one")
        'Dim num As Decimal
        'Dim max As Decimal = Console.ReadLine()
        'Dim n As Integer = 0
        'Do
        '    num = Console.ReadLine()
        '    n = n + 1
        '    If max < num Then
        '        max = num
        '    End If
        'Loop Until n = 9
        'Console.WriteLine("The greatest number is " & max)
        'Console.ReadLine()
​
        Console.WriteLine("Give me 10 numbers, I will output the highest one")
        Dim num As Decimal
        Dim max As Decimal = Console.ReadLine()
        For n = 1 To 9
            num = Console.ReadLine()
            If max < num Then
                max = num
            End If
        Next
        Console.WriteLine("The greatest number is " & max)
        Console.ReadLine()
    End Sub
    Sub q10()
        'Amend your program from (9) to output the smallest number.
​
        'Console.WriteLine("Give me 10 numbers, I will output the lowest one")
        'Dim num As Decimal
        'Dim least As Decimal = Console.ReadLine()
        'Dim n As Integer = 0
        'Do
        '    num = Console.ReadLine()
        '    n = n + 1
        '    If least > num Then
        '        least = num
        '    End If
        'Loop Until n = 9
        'Console.WriteLine("The lowest number is " & least)
        'Console.ReadLine()
​
        Console.WriteLine("Give me 10 numbers, I will output the lowest one")
        Dim num As Decimal
        Dim least As Decimal = Console.ReadLine()
        For n = 1 To 9
            num = Console.ReadLine()
            If least > num Then
                least = num
            End If
        Next
        Console.WriteLine("The lowest number is " & least)
        Console.ReadLine()
    End Sub
    Sub q11()
        'Write a program that asks the user for an integer between 1 and 5 (inclusive).
        'The program is to check that the input is within the range and if not, prompt the user for a valid integer until the input is within the range.
        Console.WriteLine("Input a number between 1 and 5 (inclusive)")
        Dim num As Decimal
        Do Until num >= 1 And num <= 5
            num = Console.ReadLine()
            If num < 1 Or num > 5 Then
                Console.WriteLine("This number is not valid")
            Else
                Console.WriteLine("Thank you")
            End If
        Loop
        Console.ReadLine()
    End Sub
    Sub q12()
        'Write a program to take as input two positive integers. The program is to output integers counting from the first integer to the second integer. For example, the input 3, 7 will output: 3 4 5 6 7
        Console.WriteLine("Input 2 numbers, I will count from one to the other")
        Dim x As Integer = Console.ReadLine()
        Dim y As Integer = Console.ReadLine()
        If x < y Then
            Do Until x = (y + 1)
                Console.WriteLine(x)
                x = x + 1
            Loop
        ElseIf x > y Then
            Do Until x = (y - 1)
                Console.WriteLine(x)
                x = x - 1
            Loop
        End If
        Console.ReadLine()
    End Sub
    Sub q13()
        'Write a program to initialise an array with ten elements. Each element is to contain the number 0. The program is to output the contents of the array.
        Dim array(9) As Integer
        For i As Integer = 0 To 9
            Console.Write(array(i) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q14()
        'Amend your program from (13) so the first element contains 1, the second element contains 2 and so on.
        Dim array(9) As Integer
        For i As Integer = 0 To 9
            array(i) = i + 1
            Console.Write(array(i) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q15()
        'Amend your program from (13). After initialisation the program is to ask repeatedly for an integer between 1 and 10 until the input is terminated by 0.
        'For each input, the relevant array element content is to be increased by 1. For example, if the input is 5, the fifth element should be incremented by 1.
        Dim array(9) As Integer
        Dim i As Integer = 1
        Do
            Console.WriteLine("Give me a number between 1 and 10 to add 1 to the number in that position in the array. Type 0 to see the array")
            i = Console.ReadLine()
            If i <= 10 And i >= 1 Then
                array(i - 1) += 1
            ElseIf i = 0 Then
                Exit Do
            Else
                Console.WriteLine("That's not a number between 1 and 10")
            End If
        Loop
        For n As Integer = 0 To 9
            Console.Write(array(n) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q16()
        Dim array(4, 4) As Integer
        For x = 0 To 4
            For y = 0 To 4
                Console.Write(array(x, y) & " ")
            Next
            Console.WriteLine("")
        Next
        Console.ReadLine()
    End Sub
    Sub q17()
        Dim array(4, 4) As Integer
        Dim i As Integer = 1
        Dim j As Integer = 1
        Do
            Console.WriteLine("Give me two numbers between 1 and 5 to add 1 to the number in that coordinate in the array. Type 0 to see the array")
            i = Console.ReadLine()
            j = Console.ReadLine()
            If i <= 5 And i >= 1 And j <= 5 And j >= 1 Then
                array(i - 1, j - 1) += 1
            ElseIf i = 0 Or j = 0 Then
                Exit Do
            Else
                Console.WriteLine("That's not a number between 1 and 5")
            End If
        Loop
        For x = 0 To 4
            For y = 0 To 4
                Console.Write(array(x, y) & " ")
            Next
            Console.WriteLine("")
        Next
        Console.ReadLine()
    End Sub
    Sub q18()
        'Write a program that takes as input a character. The program is to output the ASCII code for that character.
        Console.WriteLine("Input a single character, I will give the corresponding ASCII code")
        Dim x As Object
        Do
            x = Console.ReadLine()
            If x.Length = 1 Then
                Console.WriteLine("The corresponding ASCII code is " & Asc(x))
            Else
                Console.WriteLine("Please enter a single character")
            End If
        Loop Until x.Length = 1
        Console.ReadLine()
    End Sub
    Sub q19()
        Console.WriteLine("Input an ASCII integer code, I will give the corresponding ASCII character")
        Dim x As Object = Console.ReadLine()
        Do
            If IsNumeric(x) = True Then
                If x = CInt(x) Then
                    If x >= 0 And x < 256 Then
                        Console.WriteLine("The corresponding ASCII character is " & Chr(x))
                        Exit Do
                    Else
                        Console.WriteLine("Please enter a valid code")
                    End If
                Else
                    Console.WriteLine("Please input an integer")
                End If
            Else
                Console.WriteLine("That is not a number")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q20()
        'Write a program that takes as input a string. The program is to output the number of characters in the input string.
        Console.WriteLine("Please write a sentence, I will tell you the number of letters and spaces in your sentence")
        Dim x As String = Console.ReadLine()
        Console.WriteLine("Your sentence has " & x.Length & " characters")
        Console.ReadLine()
    End Sub
    Sub q21()
        'Write a program that takes as input a string. The program is to output the two leftmost characters.
        Console.WriteLine("Please write a sentence, I will tell you the two leftmost characters")
        Dim x As String = Console.ReadLine()
        Do
            If x.Length > 2 Then
                Console.WriteLine("The two leftmost characters are " & x.Substring(0, 1) & " and " & x.Substring(1, 1))
                Exit Do
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q22()
        'Amend your program from (21) to output the two rightmost characters.
        Console.WriteLine("Please write a sentence, I will tell you the two rightmost characters")
        Dim x As String = Console.ReadLine()
        Do
            If x.Length > 2 Then
                Console.WriteLine("The two rightmost characters are " & x.Substring(x.Length - 2, 1) & " and " & x.Substring(x.Length - 1, 1))
                Exit Do
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q23()
        'Write a program that takes as input a string. The program is to calculate the middle position and output the middle character. If the string length is an even number the two middle characters are to be output.
        Console.WriteLine("Please write a sentence, I will tell you the centremost character(s)")
        Dim x As String = Console.ReadLine()
        Dim y As Decimal = x.Length / 2
        Do
            If x.Length > 2 Then
                If y = Int(y) Then
                    Console.WriteLine("The two centremost characters are " & x.Substring(y - 1, 1) & " and " & x.Substring(y, 1))
                    Exit Do
                ElseIf y <> Int(y) Then
                    Console.WriteLine("The centremost character is" & x.Substring(y - 0.5, 1))
                    Exit Do
                End If
            Else
                Console.WriteLine("Your string is too short")
            End If
            x = Console.ReadLine()
        Loop
        Console.ReadLine()
    End Sub
    Sub q24()
        'Write a program that takes two input strings: a first name and surname. The program is to produce the full name by concatenating the first name and surname with a space in between them. The program is then to output the full name.
        Console.WriteLine("Enter a first name")
        Dim name1 As String = Console.ReadLine()
        Console.WriteLine("Enter a last name")
        Dim name2 As String = Console.ReadLine()
        Console.WriteLine("The full name is " & name1 & " " & name2)
        Console.ReadLine()
    End Sub
    Sub q25()
        'Amend your program from (24) to produce a name string made up from the first letter of the first name, a space and the surname.
        Console.WriteLine("Enter a first name")
        Dim name1 As String = Console.ReadLine()
        Console.WriteLine("Enter a last name")
        Dim name2 As String = Console.ReadLine()
        Dim nameFull As String = name1 & " " & name2
        Console.WriteLine("The full name is " & nameFull)
        Console.ReadLine()
    End Sub
    Sub q26()
        'Write a program that takes as input a number with a decimal point. The program is to output the nearest whole number.
        Console.WriteLine("Give me a decimal number, I will round it to the nearest whole number")
        Dim x As Decimal = Console.ReadLine()
        Console.WriteLine("When rounded, your decimal becomes " & Math.Round(x))
        Console.ReadLine()
    End Sub
    Sub q27()
        'Write a program that generates and outputs five random numbers. Run the program several times to ensure they are not the same numbers each time.
        Console.WriteLine("Enter an integer to get 5 random integers between 1 and your number")
        Dim n As Integer = Console.ReadLine()
        For i As Integer = 0 To 4
            Randomize()
            Console.Write(Math.Round((n - 1) * Rnd() + 1) & " ")
        Next
        Console.ReadLine()
    End Sub
    Sub q28()
        'Create a text file with several lines of text in a text editor (for example NotePad).
        'Write a program to read this text file and output the contents.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileName As String = filePath & "\testfile.htm"
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(fileName, True)
        input.WriteLine("Test")
        input.WriteLine("I don't know what I'm doing")
        input.Write("Send help")
        input.Close()
        Dim output As StreamReader = New StreamReader(fileName)
        Dim outputData As String = output.ReadToEnd()
        Console.WriteLine(outputData)
        output.Close()
        Console.ReadLine()
    End Sub
    Sub q29()
        'Amend your program from (28) to output the text from the first text file to another text file. Open the newly created text file in a text editor to check the program worked successfully.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileInput As String = filePath & "\testfile.htm"
        Dim newFile As String = filePath & "\testfile2.htm"
        Dim output As StreamReader = New StreamReader(fileInput)
        Dim outputData As String = output.ReadToEnd()
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(newFile, True)
        input.WriteLine(outputData)
        input.Close()
        output.Close()
    End Sub
    Sub q30()
        'Amend your program from (28) to add another line of text to the text file (append). Check in the text editor that the program worked successfully.
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim fileName As String = filePath & "\testfile.htm"
        Dim input As System.IO.StreamWriter = New IO.StreamWriter(fileName, True)
        input.WriteLine("Test")
        input.WriteLine("I don't know what I'm doing")
        input.Write("Send help")
        input.Close()
    End Sub
End Module

Hello printCollection

Printing the cars in the order in which they were inserted
Ford
Audi
Chevy
Volvo

Printing the cars in the order of coolness
Ford
Chevy
Audi
Volvo

Last Run:	8:09:50 am
Compile:	0.19s
Execute:	0s
Memory:	0b
CPU:	0s

View IL Code