C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
				
Public Module Module1
	    Sub Main()
        Dim Qnumber As Integer = Nothing ' Declare Qnumber variable
        Console.WriteLine("What question do you want to go to? (input question number...)")
        Qnumber = Console.ReadLine() ' Assign input as Qnumber

        Select Case Qnumber ' e.g if you input 4, you will be taken to the subroutine, question4()
            Case 0
                Test()
            Case 1
                Question1()
            Case 2
                Question2()
            Case 3
                Question3()
            Case 4
                Question4()
            Case 5
                Question5()
            Case 6
                Question6()
            Case 7
                Question7()
            Case 8
                Question8()
            Case 9
                Question9()
            Case 10
                Question10()
            Case 11
                Question11()
            Case 12
                Question12()
            Case 13
                Question13()
            Case 14
                Question14()
            Case 15
                Question15()
            Case 16
                Question16()
            Case 17
                Question17()
            Case 18
                Question18()
            Case 19
                Question19()
            Case 20
                Question20()
            Case 21
                Question21()
            Case 22
                Question22()
            Case 23
                Question23()
            Case 24
                Question24()
            Case 25
                Question25()
            Case 26
                Question26()
            Case 27
                Question27()
            Case 28
                Question28()
            Case 29
                Question29()
            Case 30
                Question30()
            Case Else
                End
        End Select




    End Sub
    Sub Question1()
        Dim w As Decimal = Nothing 'Declare variables for width and length
        Dim l As Decimal = Nothing

        Console.WriteLine("Please input the width of your garden (m)")
        w = Console.ReadLine() ' Assign input to w variable

        Console.WriteLine("Please input the length of your garden (m)")
        l = Console.ReadLine() ' Assign input to l variable

        Console.WriteLine("The area of your garden is " & w * l & " meters squared.") 'w multiplied l
        Console.ReadLine()
        End
    End Sub
    Sub Question2()
        Dim f As Decimal = Nothing ' Declare farenheit variable as f

        Console.WriteLine("I will convert farenheit to celcius")
        Console.WriteLine("Please input a farenheit temperature:")

        f = Console.ReadLine() ' Assign input to f variable

        Console.WriteLine("Your celcuis temperature is " & Math.Round((f - 32) / (9 / 5), 1) & "°C.") ' Counvert to celcius and round to 1 d.p

        Console.ReadLine()
        End
    End Sub
    Sub Question3()
        Dim t As Decimal = Nothing ' Declare variable for temperature

        Console.WriteLine("Please input the air temperature in the room:")

        t = Console.ReadLine() ' Assign input to variable t

        If t <= 0 Then ' water is frozen
            Console.WriteLine("The water is in a frozen state.")
            Console.ReadLine()
        Else ' water is not frozen
            Console.WriteLine("The water is not in a frozen state.")
            Console.ReadLine()
        End If
        End
    End Sub
    Sub Question4()
        Dim t As Decimal = Nothing ' Declare variable for temperature

        Console.WriteLine("Please input the air temperature in the room (in degrees celcius):")

        t = Console.ReadLine() ' Assign input to variable t

        If t <= 0 Then ' Temp below 0 or equal to 0
            Console.WriteLine("The water is in a solid state.")
            Console.ReadLine()
        ElseIf t >= 0 And t < 100 Then ' Temp between 0 and 100
            Console.WriteLine("The water is in a liquid state.")
            Console.ReadLine()
        ElseIf t >= 100 Then ' Temp above 100 or equal to 100
            Console.WriteLine("The water is in a boiling state")
            Console.ReadLine()
        End If

        End
    End Sub
    Sub Question5()
        Dim monthnum As Integer = Nothing ' Declare monthnum variable as Integer
        Dim monthname As String = Nothing ' Declare monthname variable as String

        Console.WriteLine("Please input a month number")
        monthnum = Console.ReadLine() ' Assign input to monthnum variable, monthnum

        Select Case monthnum ' e.g In the case that monthnum is 1 , monthname is January
            Case "1"
                monthname = "January"
            Case "2"
                monthname = "February"
            Case "3"
                monthname = "March"
            Case "4"
                monthname = "April"
            Case "5"
                monthname = "May"
            Case "6"
                monthname = "June"
            Case "7"
                monthname = "July"
            Case "8"
                monthname = "August"
            Case "9"
                monthname = "September"
            Case "10"
                monthname = "October"
            Case "11"
                monthname = "November"
            Case "12"
                monthname = "December"
        End Select

        Console.Write(monthname & " is the month corresponding with the number you entered")
        Console.Read()

        End
    End Sub
    Sub Question6()
        Dim counter As Integer = 0 ' Declare counter variable as Integer and assign it a value of 0
        Dim number As Integer = Nothing ' Declare number variable

        Console.WriteLine("Write a number and I will count up to it from 0")
        number = Console.ReadLine() ' Assign input to number variable

        Do Until counter = number ' Add 1 to counter and display the value, repeat until counter is equal to number
            counter += 1
            Console.Write(counter & " ")
        Loop

        Console.ReadLine()
        End
    End Sub
    Sub Question7()

        Dim number As Integer = Nothing ' Declare variable number

        Console.WriteLine("Write a number and I will count down to 0 from it")

        number = Console.ReadLine() ' Assign input to number variable

        Do Until number = 0 ' Subtract one from the number and display it until number is equal to 0
            number -= 1
            Console.Write(number & " ")
        Loop

        Console.ReadLine()
        End
    End Sub
    Sub Question8()
        Dim number As Integer = Nothing ' Declare number variable
        Console.WriteLine("Write a number and I will count down to 0 in intervals of 4")
        number = Console.ReadLine() ' Assign input to number variable

        Do Until number <= 0 'Subtract four from the number until the result is less than or equal to 0
            number -= 4
            If number >= 0 Then ' If the current number is bigger or equal to 0, then display it with a space afterwards
                Console.Write(number & " ")
            End If
        Loop

        Console.ReadLine()
        End
    End Sub
    Sub Question9()
        Dim arr(9), Max As Integer ' Declare 1D array from 0 to 9, Declare Max variable (both as Integers)

        Max = -2147483648 ' Smallest possible value, so that input number is always going to be bigger than this

        Console.WriteLine("Input ten numbers, and I will output the largest number:")
        Console.ReadLine()

        For x = 0 To 9 Step 1 ' Ask for input for each of the 10 values in the array
            Console.WriteLine("Number " & x + 1 & ":")
            arr(x) = Console.ReadLine()
        Next

        For x = 0 To 9 Step 1 ' Check if each value is bigger than the Max Value so far, if it is, save in the variable Max
            If arr(x) > Max Then Max = arr(x)
        Next

        Console.WriteLine(Max & " is the largest") ' The Max variable contains the largest input value, and is displayed
        Console.ReadLine()
        End
    End Sub
    Sub Question10()
        Dim arr(9), Min As Integer ' Declare 1D array from 0 to 9, Declare Min variable (both as Integers)

        Min = 2147483647 ' Largest possible value, so that input number is always going to be smaller than this

        Console.WriteLine("Input ten numbers, and I will output the smallest number:")
        Console.ReadLine()

        For x = 0 To 9 Step 1 ' Ask for input for each of the 10 values in the array
            Console.WriteLine("Number " & x & ":")
            arr(x) = Console.ReadLine()
        Next

        For x = 0 To 9 Step 1 ' Check if each value is smaller than the next, if it is, save in the variable Min
            If arr(x) < Min Then Min = arr(x)
        Next

        Console.WriteLine(Min & " is the smallest of your numbers")
        Console.ReadLine()

        End
    End Sub
    Sub Question11()

        Dim number As Integer = Nothing 'Declere number variable as Integer
        Dim valid As Boolean = Nothing 'Declare valid variable as Boolean (True or False)

        Do Until valid = True ' Keep repeating this until variable valid is equal to true

            Console.WriteLine("Please input a number between 1 And 5")
            number = Console.ReadLine()

            If number >= 1 And number <= 5 Then ' If number is between and including 1 - 5
                valid = True
                Exit Do ' Get out of the Do/Loop

            Else ' If number is not between and including 1 - 5
                valid = False
                Console.WriteLine("Try again, input a number between 1 And 5")
            End If

        Loop

        Console.WriteLine("Your number Is " & number)
        Console.ReadLine()

        End
    End Sub
    Sub Question12()

        Dim n1, n2, x, y As Integer ' Declare n1, n2, x and y all as Integer variables

        Console.WriteLine("I will display all numbers between two input numbers")
        Console.ReadLine()

        Console.WriteLine("What Is your first number?")
        n1 = Console.ReadLine()

        Console.WriteLine("What Is your second number?")
        n2 = Console.ReadLine()

        If n1 > n2 Then  ' If the first number is bigger than the second
            x = n2
            y = n1
            Console.Write(x & " ") ' Write the smallest number once

        ElseIf n1 < n2 Then ' If the first number is less than the second
            x = n1
            y = n2
            Console.Write(x & " ") ' Write the smallest number once
        End If



        Do Until x = y ' Repeat this until display the smaller number equals the larger
            x += 1
            Console.Write(x & " ")
        Loop

        Console.ReadLine()
        End
    End Sub
    Sub Question13()

        Dim arr(0 To 9) As Integer ' Declare array

        For x = 0 To 9 Step 1 ' Assign array values 0-9 as 0
            arr(x) = 0
        Next

        For i = 0 To 9 Step 1 ' Write each array value with a space afterwards
            Console.Write(arr(i) & " ")
        Next

        Console.Write("are the numbers In the array")
        Console.ReadLine()

        End
    End Sub
    Sub Question14()

        Dim arr(9) As Integer ' Declare Array

        For x = 0 To 9 Step 1 ' Assign array values 0-9 as 1-10
            arr(x) = x + 1
        Next

        For i = 0 To 9 Step 1 ' Write each array value with a space afterwards
            Console.Write(arr(i) & " ")
        Next

        Console.Write("are the numbers In the array")
        Console.ReadLine()
        End
    End Sub
    Sub Question15()
        Dim input As Integer = Nothing
        Dim arr(9) As Integer

        For x = 0 To 9 Step 1 ' Assign array values all as 0
            arr(x) = 0
        Next

        Console.WriteLine("Please enter numbers from 1 To 10, terminate this process by entering 0")
        Console.ReadLine()

        Do Until input = 0 ' If 0 is input the process is teminated
            input = Nothing
            Console.WriteLine("Please enter a number")
            input = Console.ReadLine()
            If input = 0 Then Exit Do
            arr(input - 1) += 1 ' Add a value of 1 to the array value (input - 1)
        Loop

        For i = 0 To 9 Step 1
            Console.Write(arr(i) & " ") ' Write the array values with a space inbetween
        Next

        Console.Write("are the numbers In the array")
        Console.ReadLine()
        End
    End Sub
    Sub Question16()
        Dim arr(4, 4) As Integer
        Dim counter As Integer

        For x = 0 To 4 Step 1 ' Assign all 25 values ( 5x5 ) as 0
            For y = 0 To 4 Step 1
                arr(x, y) = 0
            Next
        Next

        For x = 0 To 4 Step 1 ' Write all 25 values out
            For y = 0 To 4 Step 1
                If counter = 5 Then ' Every 5 values, skip a line
                    Console.WriteLine()
                    counter = 0
                End If
                Console.Write(arr(x, y) & " ")
                counter += 1
            Next
        Next
        Console.ReadLine()
        End
    End Sub
    Sub Question17()

        Dim arr(0 To 4, 0 To 4) As Integer

        For z = 0 To 4 Step 1
            For w = 0 To 4 Step 1
                arr(z, w) = 0
            Next
        Next

        Dim x As Integer
        Dim y As Integer
        Dim dx As Integer
        Dim dy As Integer
        Dim counter As Integer = 0

        Console.WriteLine("Enter x And y co-ordinates between 1 And 5 For Me To plot On the grid As '1' ")
        Console.WriteLine("x co-ordinate:")
        x = Console.ReadLine() - 1 ' Input x co-ord
        Console.WriteLine("y co-ordinate:")
        y = Console.ReadLine() - 1 ' Input y co-ord

        For dy = 0 To 4 Step 1
            For dx = 0 To 4 Step 1

                If arr(x, y) = arr(dx, dy) Then                 ' If the input co-ordinates are the same as the current job

                    arr(dx, dy) = 1
                    Console.Write(arr(x, y) & " ")              ' Input 1 at job location

                Else                                            ' Otherwise 

                    Console.Write(arr(dx, dy) & " ")            ' Input 0 at job location

                End If
                counter += 1
                If counter = 5 Then                             ' Count to 5. then add a line. Reset the counter
                    Console.WriteLine()
                    counter = 0
                End If

            Next
        Next
        Console.ReadLine()

        End
    End Sub
    Sub Question18()

        Dim input As Char ' Input ascii character

        Console.WriteLine("Please input a character, I will show you its ASCII code")
        input = Console.ReadLine() ' Assign input to input variable

        Console.WriteLine(Asc(input) & " is the corresponding value for that character") ' Using Asc() to convert characters into value
        Console.ReadLine()

        End
    End Sub
    Sub Question19()

        Dim input As Integer ' Declare input variable as Integer

        Console.WriteLine("Please input an ASCII code, I will show you its character")
        input = Console.ReadLine() ' Assign input to input variable ( a number )

        Console.WriteLine(Chr(input) & " is the corresponding character for that value") ' Using Chr() to convert from an integer to Ascii character
        Console.ReadLine()
        End
    End Sub
    Sub Question20()

        Dim word As String ' Declare word variable as String
        Dim numofchar As Integer ' Declare numofchar variable as Integer

        Console.WriteLine("I will count how many characters your word has")
        Console.ReadLine()

        Console.WriteLine("Please input a word")
        word = Console.ReadLine() ' Assign input to word variable (string)

        numofchar = Len(word) ' Using Len() find the number of characters in the string variable 'word'. Assigning this value to integer variable 'numofchar'

        Console.WriteLine("Your word contains " & numofchar & " characters.")
        Console.ReadLine()

        End
    End Sub
    Sub Question21()
        Dim word As String 'Declare word variable as String

        Console.WriteLine("Please input a word, I'll give back the first two characters of the word")
        word = Console.ReadLine() ' Assign input to word variable ( string )

        ' Using Left(string, integer) we can extract the number of characters [integer] in the [string] starting from the Left

        Console.WriteLine("'" & Left(word, 2) & "' are the first two characters of the word '" & word & "'.")
        Console.ReadLine()

        End
    End Sub
    Sub Question22()
        Dim word As String ' Declare word variable as String

        Console.WriteLine("Please input a word, I'll give back the last two characters of the word")
        word = Console.ReadLine() ' Assign input to word variable ( string )

        ' Using Right(string, integer) we can extract the number of characters [integer] in the [string] starting from the Right
        Console.WriteLine("'" & Right(word, 2) & "' are the last two characters of the word '" & word & "'.")
        Console.ReadLine()

        End
    End Sub
    Sub Question23()

        Dim input, output As String ' Declaring input and output variable as String
        Dim o1 As Decimal ' Declaring o1 variable as Decimal
        Dim length As Integer ' Declaring length variable as Integer
        Console.WriteLine("Please write a word, I will give you the middle letter")
        Console.WriteLine()
        Console.WriteLine("There will be 2 letters if the word has an even number of letters")
        Console.WriteLine()
        Console.WriteLine("Word:")

        input = Console.ReadLine() ' Assign input to input variable

        length = Len(input) ' Finds the length of the input, then saves this value in length variable

        o1 = length / 2 ' Find the halfway point, may be a decimal (e.g 11/2 = 5.5 )


        ' Using Mid(string, where to start, how many to record)

        If Math.Round(o1, 0) = o1 Then 'For even numbers we need 2 middle characters, and need to start (including) at half the length of the string
            output = Mid(input, o1, 2)

        Else ' For odd numbers we need only 1 middle character, but must add the 0.5 we lost when dividing by 2 (thus add 0.5)
            output = Mid(input, o1 + 0.5, 1) ' Add 0.5 to find middle number (e.g 11/2 = 5.5, middle number is 6)
        End If

        Console.WriteLine("The middle character(s): " & output)
        Console.ReadLine()

        End
    End Sub
    Sub Question24()

        Dim first, last As String ' Declare first and last variable as String

        Console.WriteLine("Input your first and last name, and I'll write them together")
        Console.ReadLine()

        Console.WriteLine("What is your first name?")
        first = Console.ReadLine() ' Assign input as first variable

        Console.WriteLine("What is your last name?")
        last = Console.ReadLine() ' Assign input as last variable

        Console.WriteLine("Your full name is " & first & " " & last & ".")
        Console.ReadLine()

        End
    End Sub
    Sub Question25()

        Dim first, last As String ' Declare first and last variable as String

        Console.WriteLine("Input your first and last name, and I'll write your first initial followed by your last name")
        Console.ReadLine()

        Console.WriteLine("What is your first name?")
        first = Console.ReadLine() ' Assign input as first variable

        Console.WriteLine("What is your last name?")
        last = Console.ReadLine() ' Assign input as last variable

        Console.WriteLine("Your full name is " & Left(first, 1) & " " & last) ' Take the first character from the first name
        Console.ReadLine()

        End
    End Sub
    Sub Question26()

        Dim num As Integer ' Declare variables
        Dim dec As Decimal

        Console.WriteLine("Input a decimal number, and I will give you the nearest number")
        Console.WriteLine("Decimal number")

        dec = Console.ReadLine() ' Assign input to dec variable
        num = Math.Round(dec, 0) ' Using Round(decimal, number of decimal places). Assign this to num variable

        Console.WriteLine("The rounded number is " & num)
        Console.ReadLine()

        End
    End Sub
    Sub Question27()
        Dim counter As Integer

        Console.WriteLine("Here are 5 random numbers between 0 and 100:")

        Randomize() ' Start a random number generator

        Do Until counter = 5 ' Repeat loop 5 times

            Dim value As Integer = Math.Round((100 * Rnd()), 0) ' Round a random number between 0 and 100 to the nearest integer
            Console.Write(value & " ") ' Write the value with a space
            counter += 1

        Loop

        Console.ReadLine()
        End
    End Sub
    Sub Question28()

        Dim content As String ' Declare variable content as String

        Console.WriteLine("I will read to you the contents of a text document:")
        Console.ReadLine()

        Dim sFolderName As String
        sFolderName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim sFileName As String = "text.txt"
        sFileName = (sFolderName & "\" & sFileName)

        content = File.ReadAllText(sFileName) ' Assign the characters inside of the text document to the string variable 'content'

        Console.WriteLine(content)
        Console.ReadLine()

        End
    End Sub
    Sub Question29()

        Dim content As String ' Declare content variable as String

        Console.WriteLine("I will read to you the contents of a text document, and then copy it to a new one:")
        Console.ReadLine()

        content = My.Computer.FileSystem.ReadAllText(file:="C:\text.txt") ' Assign the contents of the text document to string variable 'content'

        ' Using My.Computer.FileSystem.WriteAllText(file location, characters to write, add or not (Boolean))
        My.Computer.FileSystem.WriteAllText(file:="C:\textcopy.txt", text:=content, append:=False)

        Console.WriteLine(content)
        Console.ReadLine()

        End
    End Sub
    Sub Question30()

        Dim content As String ' Declare content variable as String

        Console.WriteLine("Please write something, I will add it on a new line in the text.txt file:")
        content = Console.ReadLine()

        ' Using Environment.NewLine to create a new line
        My.Computer.FileSystem.WriteAllText("C:\text.txt", Environment.NewLine, True)
        My.Computer.FileSystem.WriteAllText("C:\text.txt", text:=content, append:=True) ' Note: append:= True, thus nothing will be overwritten

        Console.WriteLine("Finished!")
        Console.ReadLine()

        End
    End Sub
End Module

​x
 
Imports System
                
Public Module Module1
        Sub Main()
        Dim Qnumber As Integer = Nothing ' Declare Qnumber variable
        Console.WriteLine("What question do you want to go to? (input question number...)")
        Qnumber = Console.ReadLine() ' Assign input as Qnumber
​
        Select Case Qnumber ' e.g if you input 4, you will be taken to the subroutine, question4()
            Case 0
                Test()
            Case 1
                Question1()
            Case 2
                Question2()
            Case 3
                Question3()
            Case 4
                Question4()
            Case 5
                Question5()
            Case 6
                Question6()
            Case 7
                Question7()
            Case 8
                Question8()
            Case 9
                Question9()
            Case 10
                Question10()
            Case 11
                Question11()
            Case 12
                Question12()
            Case 13
                Question13()
            Case 14
                Question14()
            Case 15
                Question15()
            Case 16
                Question16()
            Case 17
                Question17()
            Case 18
                Question18()
            Case 19
                Question19()
            Case 20
                Question20()
            Case 21
                Question21()
            Case 22
                Question22()
            Case 23
                Question23()
            Case 24
                Question24()
            Case 25
                Question25()
            Case 26
                Question26()
            Case 27
                Question27()
            Case 28
                Question28()
            Case 29
                Question29()
            Case 30
                Question30()
            Case Else
                End
        End Select
​
​
​
​
    End Sub
    Sub Question1()
        Dim w As Decimal = Nothing 'Declare variables for width and length
        Dim l As Decimal = Nothing
​
        Console.WriteLine("Please input the width of your garden (m)")
        w = Console.ReadLine() ' Assign input to w variable
​
        Console.WriteLine("Please input the length of your garden (m)")
        l = Console.ReadLine() ' Assign input to l variable
​
        Console.WriteLine("The area of your garden is " & w * l & " meters squared.") 'w multiplied l
        Console.ReadLine()
        End
    End Sub
    Sub Question2()
        Dim f As Decimal = Nothing ' Declare farenheit variable as f
​
        Console.WriteLine("I will convert farenheit to celcius")
        Console.WriteLine("Please input a farenheit temperature:")
​
        f = Console.ReadLine() ' Assign input to f variable
​
        Console.WriteLine("Your celcuis temperature is " & Math.Round((f - 32) / (9 / 5), 1) & "°C.") ' Counvert to celcius and round to 1 d.p
​
        Console.ReadLine()
        End
    End Sub
    Sub Question3()
        Dim t As Decimal = Nothing ' Declare variable for temperature
​
        Console.WriteLine("Please input the air temperature in the room:")
​
        t = Console.ReadLine() ' Assign input to variable t
​
        If t <= 0 Then ' water is frozen
            Console.WriteLine("The water is in a frozen state.")
            Console.ReadLine()
        Else ' water is not frozen
            Console.WriteLine("The water is not in a frozen state.")
            Console.ReadLine()
        End If
        End
    End Sub
    Sub Question4()
        Dim t As Decimal = Nothing ' Declare variable for temperature
​
        Console.WriteLine("Please input the air temperature in the room (in degrees celcius):")
​
        t = Console.ReadLine() ' Assign input to variable t
​
        If t <= 0 Then ' Temp below 0 or equal to 0
            Console.WriteLine("The water is in a solid state.")
            Console.ReadLine()
        ElseIf t >= 0 And t < 100 Then ' Temp between 0 and 100
            Console.WriteLine("The water is in a liquid state.")
            Console.ReadLine()
        ElseIf t >= 100 Then ' Temp above 100 or equal to 100
            Console.WriteLine("The water is in a boiling state")
            Console.ReadLine()
        End If
​
        End
    End Sub
    Sub Question5()
        Dim monthnum As Integer = Nothing ' Declare monthnum variable as Integer
        Dim monthname As String = Nothing ' Declare monthname variable as String
​
        Console.WriteLine("Please input a month number")
        monthnum = Console.ReadLine() ' Assign input to monthnum variable, monthnum
​
        Select Case monthnum ' e.g In the case that monthnum is 1 , monthname is January
            Case "1"
                monthname = "January"
            Case "2"
                monthname = "February"
            Case "3"
                monthname = "March"
            Case "4"
                monthname = "April"
            Case "5"
                monthname = "May"
            Case "6"
                monthname = "June"
            Case "7"
                monthname = "July"
            Case "8"
                monthname = "August"
            Case "9"
                monthname = "September"
            Case "10"
                monthname = "October"
            Case "11"
                monthname = "November"
            Case "12"
                monthname = "December"
        End Select
​
        Console.Write(monthname & " is the month corresponding with the number you entered")
        Console.Read()
​
        End
    End Sub
    Sub Question6()
        Dim counter As Integer = 0 ' Declare counter variable as Integer and assign it a value of 0
        Dim number As Integer = Nothing ' Declare number variable
​
        Console.WriteLine("Write a number and I will count up to it from 0")
        number = Console.ReadLine() ' Assign input to number variable
​
        Do Until counter = number ' Add 1 to counter and display the value, repeat until counter is equal to number
            counter += 1
            Console.Write(counter & " ")
        Loop
​
        Console.ReadLine()
        End
    End Sub
    Sub Question7()
​
        Dim number As Integer = Nothing ' Declare variable number
​
        Console.WriteLine("Write a number and I will count down to 0 from it")
​
        number = Console.ReadLine() ' Assign input to number variable
​
        Do Until number = 0 ' Subtract one from the number and display it until number is equal to 0
            number -= 1
            Console.Write(number & " ")
        Loop
​
        Console.ReadLine()
        End
    End Sub
    Sub Question8()
        Dim number As Integer = Nothing ' Declare number variable
        Console.WriteLine("Write a number and I will count down to 0 in intervals of 4")
        number = Console.ReadLine() ' Assign input to number variable
​
        Do Until number <= 0 'Subtract four from the number until the result is less than or equal to 0
            number -= 4
            If number >= 0 Then ' If the current number is bigger or equal to 0, then display it with a space afterwards
                Console.Write(number & " ")
            End If
        Loop
​
        Console.ReadLine()
        End
    End Sub
    Sub Question9()
        Dim arr(9), Max As Integer ' Declare 1D array from 0 to 9, Declare Max variable (both as Integers)
​
        Max = -2147483648 ' Smallest possible value, so that input number is always going to be bigger than this
​
        Console.WriteLine("Input ten numbers, and I will output the largest number:")
        Console.ReadLine()
​
        For x = 0 To 9 Step 1 ' Ask for input for each of the 10 values in the array
            Console.WriteLine("Number " & x + 1 & ":")
            arr(x) = Console.ReadLine()
        Next
​
        For x = 0 To 9 Step 1 ' Check if each value is bigger than the Max Value so far, if it is, save in the variable Max
            If arr(x) > Max Then Max = arr(x)
        Next
​
        Console.WriteLine(Max & " is the largest") ' The Max variable contains the largest input value, and is displayed
        Console.ReadLine()
        End
    End Sub
    Sub Question10()
        Dim arr(9), Min As Integer ' Declare 1D array from 0 to 9, Declare Min variable (both as Integers)
​
        Min = 2147483647 ' Largest possible value, so that input number is always going to be smaller than this
​
        Console.WriteLine("Input ten numbers, and I will output the smallest number:")
        Console.ReadLine()
​
        For x = 0 To 9 Step 1 ' Ask for input for each of the 10 values in the array
            Console.WriteLine("Number " & x & ":")
            arr(x) = Console.ReadLine()
        Next
​
        For x = 0 To 9 Step 1 ' Check if each value is smaller than the next, if it is, save in the variable Min
            If arr(x) < Min Then Min = arr(x)
        Next
​
        Console.WriteLine(Min & " is the smallest of your numbers")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question11()
​
        Dim number As Integer = Nothing 'Declere number variable as Integer
        Dim valid As Boolean = Nothing 'Declare valid variable as Boolean (True or False)
​
        Do Until valid = True ' Keep repeating this until variable valid is equal to true
​
            Console.WriteLine("Please input a number between 1 And 5")
            number = Console.ReadLine()
​
            If number >= 1 And number <= 5 Then ' If number is between and including 1 - 5
                valid = True
                Exit Do ' Get out of the Do/Loop
​
            Else ' If number is not between and including 1 - 5
                valid = False
                Console.WriteLine("Try again, input a number between 1 And 5")
            End If
​
        Loop
​
        Console.WriteLine("Your number Is " & number)
        Console.ReadLine()
​
        End
    End Sub
    Sub Question12()
​
        Dim n1, n2, x, y As Integer ' Declare n1, n2, x and y all as Integer variables
​
        Console.WriteLine("I will display all numbers between two input numbers")
        Console.ReadLine()
​
        Console.WriteLine("What Is your first number?")
        n1 = Console.ReadLine()
​
        Console.WriteLine("What Is your second number?")
        n2 = Console.ReadLine()
​
        If n1 > n2 Then  ' If the first number is bigger than the second
            x = n2
            y = n1
            Console.Write(x & " ") ' Write the smallest number once
​
        ElseIf n1 < n2 Then ' If the first number is less than the second
            x = n1
            y = n2
            Console.Write(x & " ") ' Write the smallest number once
        End If
​
​
​
        Do Until x = y ' Repeat this until display the smaller number equals the larger
            x += 1
            Console.Write(x & " ")
        Loop
​
        Console.ReadLine()
        End
    End Sub
    Sub Question13()
​
        Dim arr(0 To 9) As Integer ' Declare array
​
        For x = 0 To 9 Step 1 ' Assign array values 0-9 as 0
            arr(x) = 0
        Next
​
        For i = 0 To 9 Step 1 ' Write each array value with a space afterwards
            Console.Write(arr(i) & " ")
        Next
​
        Console.Write("are the numbers In the array")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question14()
​
        Dim arr(9) As Integer ' Declare Array
​
        For x = 0 To 9 Step 1 ' Assign array values 0-9 as 1-10
            arr(x) = x + 1
        Next
​
        For i = 0 To 9 Step 1 ' Write each array value with a space afterwards
            Console.Write(arr(i) & " ")
        Next
​
        Console.Write("are the numbers In the array")
        Console.ReadLine()
        End
    End Sub
    Sub Question15()
        Dim input As Integer = Nothing
        Dim arr(9) As Integer
​
        For x = 0 To 9 Step 1 ' Assign array values all as 0
            arr(x) = 0
        Next
​
        Console.WriteLine("Please enter numbers from 1 To 10, terminate this process by entering 0")
        Console.ReadLine()
​
        Do Until input = 0 ' If 0 is input the process is teminated
            input = Nothing
            Console.WriteLine("Please enter a number")
            input = Console.ReadLine()
            If input = 0 Then Exit Do
            arr(input - 1) += 1 ' Add a value of 1 to the array value (input - 1)
        Loop
​
        For i = 0 To 9 Step 1
            Console.Write(arr(i) & " ") ' Write the array values with a space inbetween
        Next
​
        Console.Write("are the numbers In the array")
        Console.ReadLine()
        End
    End Sub
    Sub Question16()
        Dim arr(4, 4) As Integer
        Dim counter As Integer
​
        For x = 0 To 4 Step 1 ' Assign all 25 values ( 5x5 ) as 0
            For y = 0 To 4 Step 1
                arr(x, y) = 0
            Next
        Next
​
        For x = 0 To 4 Step 1 ' Write all 25 values out
            For y = 0 To 4 Step 1
                If counter = 5 Then ' Every 5 values, skip a line
                    Console.WriteLine()
                    counter = 0
                End If
                Console.Write(arr(x, y) & " ")
                counter += 1
            Next
        Next
        Console.ReadLine()
        End
    End Sub
    Sub Question17()
​
        Dim arr(0 To 4, 0 To 4) As Integer
​
        For z = 0 To 4 Step 1
            For w = 0 To 4 Step 1
                arr(z, w) = 0
            Next
        Next
​
        Dim x As Integer
        Dim y As Integer
        Dim dx As Integer
        Dim dy As Integer
        Dim counter As Integer = 0
​
        Console.WriteLine("Enter x And y co-ordinates between 1 And 5 For Me To plot On the grid As '1' ")
        Console.WriteLine("x co-ordinate:")
        x = Console.ReadLine() - 1 ' Input x co-ord
        Console.WriteLine("y co-ordinate:")
        y = Console.ReadLine() - 1 ' Input y co-ord
​
        For dy = 0 To 4 Step 1
            For dx = 0 To 4 Step 1
​
                If arr(x, y) = arr(dx, dy) Then                 ' If the input co-ordinates are the same as the current job
​
                    arr(dx, dy) = 1
                    Console.Write(arr(x, y) & " ")              ' Input 1 at job location
​
                Else                                            ' Otherwise 
​
                    Console.Write(arr(dx, dy) & " ")            ' Input 0 at job location
​
                End If
                counter += 1
                If counter = 5 Then                             ' Count to 5. then add a line. Reset the counter
                    Console.WriteLine()
                    counter = 0
                End If
​
            Next
        Next
        Console.ReadLine()
​
        End
    End Sub
    Sub Question18()
​
        Dim input As Char ' Input ascii character
​
        Console.WriteLine("Please input a character, I will show you its ASCII code")
        input = Console.ReadLine() ' Assign input to input variable
​
        Console.WriteLine(Asc(input) & " is the corresponding value for that character") ' Using Asc() to convert characters into value
        Console.ReadLine()
​
        End
    End Sub
    Sub Question19()
​
        Dim input As Integer ' Declare input variable as Integer
​
        Console.WriteLine("Please input an ASCII code, I will show you its character")
        input = Console.ReadLine() ' Assign input to input variable ( a number )
​
        Console.WriteLine(Chr(input) & " is the corresponding character for that value") ' Using Chr() to convert from an integer to Ascii character
        Console.ReadLine()
        End
    End Sub
    Sub Question20()
​
        Dim word As String ' Declare word variable as String
        Dim numofchar As Integer ' Declare numofchar variable as Integer
​
        Console.WriteLine("I will count how many characters your word has")
        Console.ReadLine()
​
        Console.WriteLine("Please input a word")
        word = Console.ReadLine() ' Assign input to word variable (string)
​
        numofchar = Len(word) ' Using Len() find the number of characters in the string variable 'word'. Assigning this value to integer variable 'numofchar'
​
        Console.WriteLine("Your word contains " & numofchar & " characters.")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question21()
        Dim word As String 'Declare word variable as String
​
        Console.WriteLine("Please input a word, I'll give back the first two characters of the word")
        word = Console.ReadLine() ' Assign input to word variable ( string )
​
        ' Using Left(string, integer) we can extract the number of characters [integer] in the [string] starting from the Left
​
        Console.WriteLine("'" & Left(word, 2) & "' are the first two characters of the word '" & word & "'.")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question22()
        Dim word As String ' Declare word variable as String
​
        Console.WriteLine("Please input a word, I'll give back the last two characters of the word")
        word = Console.ReadLine() ' Assign input to word variable ( string )
​
        ' Using Right(string, integer) we can extract the number of characters [integer] in the [string] starting from the Right
        Console.WriteLine("'" & Right(word, 2) & "' are the last two characters of the word '" & word & "'.")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question23()
​
        Dim input, output As String ' Declaring input and output variable as String
        Dim o1 As Decimal ' Declaring o1 variable as Decimal
        Dim length As Integer ' Declaring length variable as Integer
        Console.WriteLine("Please write a word, I will give you the middle letter")
        Console.WriteLine()
        Console.WriteLine("There will be 2 letters if the word has an even number of letters")
        Console.WriteLine()
        Console.WriteLine("Word:")
​
        input = Console.ReadLine() ' Assign input to input variable
​
        length = Len(input) ' Finds the length of the input, then saves this value in length variable
​
        o1 = length / 2 ' Find the halfway point, may be a decimal (e.g 11/2 = 5.5 )
​
​
        ' Using Mid(string, where to start, how many to record)
​
        If Math.Round(o1, 0) = o1 Then 'For even numbers we need 2 middle characters, and need to start (including) at half the length of the string
            output = Mid(input, o1, 2)
​
        Else ' For odd numbers we need only 1 middle character, but must add the 0.5 we lost when dividing by 2 (thus add 0.5)
            output = Mid(input, o1 + 0.5, 1) ' Add 0.5 to find middle number (e.g 11/2 = 5.5, middle number is 6)
        End If
​
        Console.WriteLine("The middle character(s): " & output)
        Console.ReadLine()
​
        End
    End Sub
    Sub Question24()
​
        Dim first, last As String ' Declare first and last variable as String
​
        Console.WriteLine("Input your first and last name, and I'll write them together")
        Console.ReadLine()
​
        Console.WriteLine("What is your first name?")
        first = Console.ReadLine() ' Assign input as first variable
​
        Console.WriteLine("What is your last name?")
        last = Console.ReadLine() ' Assign input as last variable
​
        Console.WriteLine("Your full name is " & first & " " & last & ".")
        Console.ReadLine()
​
        End
    End Sub
    Sub Question25()
​
        Dim first, last As String ' Declare first and last variable as String
​
        Console.WriteLine("Input your first and last name, and I'll write your first initial followed by your last name")
        Console.ReadLine()
​
        Console.WriteLine("What is your first name?")
        first = Console.ReadLine() ' Assign input as first variable
​
        Console.WriteLine("What is your last name?")
        last = Console.ReadLine() ' Assign input as last variable
​
        Console.WriteLine("Your full name is " & Left(first, 1) & " " & last) ' Take the first character from the first name
        Console.ReadLine()
​
        End
    End Sub
    Sub Question26()
​
        Dim num As Integer ' Declare variables
        Dim dec As Decimal
​
        Console.WriteLine("Input a decimal number, and I will give you the nearest number")
        Console.WriteLine("Decimal number")
​
        dec = Console.ReadLine() ' Assign input to dec variable
        num = Math.Round(dec, 0) ' Using Round(decimal, number of decimal places). Assign this to num variable
​
        Console.WriteLine("The rounded number is " & num)
        Console.ReadLine()
​
        End
    End Sub
    Sub Question27()
        Dim counter As Integer
​
        Console.WriteLine("Here are 5 random numbers between 0 and 100:")
​
        Randomize() ' Start a random number generator
​
        Do Until counter = 5 ' Repeat loop 5 times
​
            Dim value As Integer = Math.Round((100 * Rnd()), 0) ' Round a random number between 0 and 100 to the nearest integer
            Console.Write(value & " ") ' Write the value with a space
            counter += 1
​
        Loop
​
        Console.ReadLine()
        End
    End Sub
    Sub Question28()
​
        Dim content As String ' Declare variable content as String
​
        Console.WriteLine("I will read to you the contents of a text document:")
        Console.ReadLine()
​
        Dim sFolderName As String
        sFolderName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim sFileName As String = "text.txt"
        sFileName = (sFolderName & "\" & sFileName)
​
        content = File.ReadAllText(sFileName) ' Assign the characters inside of the text document to the string variable 'content'
​
        Console.WriteLine(content)
        Console.ReadLine()
​
        End
    End Sub
    Sub Question29()
​
        Dim content As String ' Declare content variable as String
​
        Console.WriteLine("I will read to you the contents of a text document, and then copy it to a new one:")
        Console.ReadLine()
​
        content = My.Computer.FileSystem.ReadAllText(file:="C:\text.txt") ' Assign the contents of the text document to string variable 'content'
​
        ' Using My.Computer.FileSystem.WriteAllText(file location, characters to write, add or not (Boolean))
        My.Computer.FileSystem.WriteAllText(file:="C:\textcopy.txt", text:=content, append:=False)
​
        Console.WriteLine(content)
        Console.ReadLine()
​
        End
    End Sub
    Sub Question30()
​
        Dim content As String ' Declare content variable as String
​
        Console.WriteLine("Please write something, I will add it on a new line in the text.txt file:")
        content = Console.ReadLine()
​
        ' Using Environment.NewLine to create a new line
        My.Computer.FileSystem.WriteAllText("C:\text.txt", Environment.NewLine, True)
        My.Computer.FileSystem.WriteAllText("C:\text.txt", text:=content, append:=True) ' Note: append:= True, thus nothing will be overwritten
​
        Console.WriteLine("Finished!")
        Console.ReadLine()
​
        End
    End Sub
End Module

View IL Code