Tuesday, May 1, 2012

Acronym - unresolved

I haven't figured this out yet:
the original mess:
Dim numEntered As String
        Dim numWords As Integer
        Dim acronym As String
        Dim wordEntered As String
        Dim letter As String
        Dim fullWord As String

        numEntered = InputBox("Number of words", "Enter the number of words in the acronym")
        numWords = Val(numEntered)

        fullWord = Nothing
        For count As Integer = 1 To numWords
            wordEntered = InputBox("Word", "Enter the word.")
            wordEntered.ToUpper()
            letter = wordEntered.Chars(0)
            letter = fullWord.Chars(count)
            acronym = Nothing
            acronym = String.Concat(acronym, letter)
        Next count


No comments:

Post a Comment