NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLE
ID: 3756649 • Letter: N
Question
NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLEASE
Write an app that uses random-number generation to create sentences.
Use four arrays of strings, called article, noun, verb and preposition. Create a sentence by selecting a word at random from each array in the following order:
article, noun, verb, preposition, article, noun.
As each word is picked, concatenate it to the previous words in the sentence.
The words should be separated by spaces. When the sentence is output, it should start with a capital letter and end with a period. The program should generate 10 sentences and output them to a text box.
The arrays should be filled as follows:
The article array should contain the articles “the”, “a”, “one”, “some” and “any”;
the noun array should contain the nouns “boy”, “girl”, “dog”, “town” and “car”;
the verb array should contain the past-tense verbs “drove”, “jumped”, “ran”, “walked” and “skipped”;
and the preposition array should contain the prepositions “to”, “from”, “over”, “under” and “on”.
NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLEASE NEED IN VISUAL BASIC PLEASE
Explanation / Answer
Public Class generate
' String arrays for articles, nouns, verbs and prepositions
Dim articles As String() = {"the", "a", "one", "some", "any"}
Dim nouns As String() = {"boy", "girl", "dog", "town", "car"}
Dim verbs As String() = {"drove", "jumped", "ran", "walked", "skipped"}
Dim prepositions As String() = {"to", "from", "over", "under", "on"}
Private Sub GenerateBtn_Click(sender As System.Object, e As System.EventArgs) Handles GenerateBtn.Click
Dim rndm As Random = New Random
Dim Sentence As String = ""
Dim myCounter As Integer
Dim Sentences = {articles, nouns, verbs, prepositions}
For myCounter = 0 To 9
Dim randomArticle = articles(rndm.Next(0, articles.Count))
Dim randomNoun = nouns(rndm.Next(0, articles.Count))
Dim randomVerb = verbs(rndm.Next(0, verbs.Count))
Dim randomPrep = prepositions(rndm.Next(0, prepositions.Count))
OutputWindow.Items.Add(StrConv(randomArticle, VbStrConv.ProperCase) & " " & randomNoun & " " & randomVerb & " " & randomPrep)
Next
End Sub
End Class
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.