Imports System

​

Public Module Module1

​

    Public Sub Main()

        Q2()

    End Sub

​

    Sub Q1()

        Dim a as String

        Dim number as Integer

        Console.WriteLine("Q1: Enter a number")

        Do

            number = console.ReadLine()

            If number <= 0 Then

                Console.writeline("Enter a valid number")

            End If

        Loop until number > 0

        a = number

        For i = 1 to number

            Console.writeline(a)

            a = a & number

        Next

    End Sub

​

    Sub Q2()

        Dim x as String = " "

        Dim a as String

        Dim number as Integer

        Console.WriteLine("Q2: Enter a number")

        Do

            number = console.ReadLine()

            If number <= 0 Then

                Console.writeline("Enter a valid number")

            End If

        Loop until number > 0

        a = number

        For i = 1 to number

            For j = number to i step -1

                Console.Write(x)

            Next

            Console.Writeline(a)

            a = a & number

        Next

    End Sub

​

    Sub Q3()

        Dim sItems(4) as String

        For i = 0 to 4

            sItems(i) = "x"

        Next

        For i = 0 to 4

            Console.Writeline(sItems(i))

        Next

        For i = 0 to 4

            sItems(i) = Console.ReadLine()

        Next

        For i = 0 to 4

            Console.Writeline(sItems(i))

        Next

    End Sub

​

    Sub Q4()

        Dim max as Decimal

        Dim min as Decimal

        Dim sum as Decimal = 0

        Dim average as Decimal

        Dim x as String = "False"

        Dim number(10) as Decimal

        Dim count as Integer = 0

        Dim icount as Integer = 0

        Console.WriteLine("Q4: enter a number")

        For i = 0 to 9

            count = count + 1

            number(i) = Console.ReadLine()

            If number(i) = -1 Then

                Exit For

            End If

            If number(i) > 0 Then

                icount = icount + 1

            End If

            If number(i) = 100 Then

                x = "True"

            End If

        Next

        max = number(0)

        min = number(0)

        Console.WriteLine()

        For j = 0 to count - 1

            Console.Writeline(number(j))

        Next

        For k = 0 to count - 1

            sum = sum + number(k)

            average = sum / count

            If number(k) > max Then max = number(k)

            If number(k) < min Then min = number(k)

        Next

        Console.writeline

        Console.Writeline(icount & " numbers > 0 ")

        Console.WriteLine("sum of the number is " & sum)

        Console.Writeline("average of the number is " & average)

        Console.Writeline("highest value is " & max & " lowest value is " & min)

        Console.Writeline(x)

    End Sub

End Module

​