H/W 7

Module Module1

    Sub Main()
        'RandomPerson()
        'BiggestNumber()
        LetterCount()
    End Sub

    Sub RandomPerson()
        Dim Rand As Integer = CInt(Math.Ceiling(Rnd() * 10)) + 1
        Dim RandomPerson As String
        Dim Name(9)

        For i = 0 To 9
            Console.WriteLine("Please enter name number #" & (i + 1))
            Name(i) = Console.ReadLine()
        Next
        RandomPerson = Name(Rand)
        Console.WriteLine("Random Name: " & Name(Rand))
        Console.ReadKey()
    End Sub

    Sub BiggestNumber()
        Dim Number(4) As Integer
        Dim Output As Integer = 1

        For i = 0 To 4
            Console.WriteLine("Please intput Number " & i + 1)
            Number(i) = Console.ReadLine()
            If Number(i) > Output Then
                Output = Number(i)
            End If
        Next


        Console.WriteLine("The biggest number is: " & Output)
        Console.ReadKey()
    End Sub

    Sub LetterCount()
        Dim UserInput As String
        Dim Count As Integer = 0
        Dim StringLength As Integer

        Console.WriteLine("Please input a string of characters")
        UserInput = Console.ReadLine()
        StringLength = Len(UserInput)

        For i = 0 To (StringLength - 1)
            If UserInput(i) = "a" Then
                Count = Count + 1
            End If
        Next

        Console.WriteLine("There are " & Count & " a's")
        Console.ReadLine()
    End Sub
End Module