Reference no: EM13780121

1. Determine the output displayed when the button is clicked.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

Dim num As Double = 0

Dim max As Double = -1

Dim prompt As String = " Enter a nonnegative number. " & Enter -1 to terminate entering numbers."

Num = CDbl(Input Box(prompt))

Do While num >= 0

If num > max Then

Max = num

End If

Num = CDbl(InputBox(prompt))

Loop

If max <> -1 Then

MessageBox.Show("Maximum number: " & max)

Else

MessageBox.Show("No numbers were entered.")

End If

Assu;me that the responses are 4, 7, 3, and -1)

2. Replace each phrase containing "Until" with an equivalent phrase containing "While", and vice versa. For instance, the phrase (Until sum = 100) would be replaced by (While sum <> 100).

While (ans = "Y") And (n < 7)

3. Determine the output displayed when the button is clicked.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

Dim word As String = "courage"

Dim letter As String = ""

Dim numVowels As Integer = 0

For i As Integer = 0 To word.length - 1

Letter = word.Substring(I, 1)

If IsVowel (letter) Then

numVowels += 1

End If

Next

txtBox.Text = CStr(numVowels)

End Sub

Function IsVowel(ByVal letter As String) As Boolean

Letter = letter.ToUpper

If (letter = "A" Or (letter = "E") Or (letter = "I") Or (letter = "O") Or (letter = "U") Then

Return True

Else

Return False

End If

End Function

4. Rewrite the program using a For...Next loop.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

Dim num as Integer = 1

Do While num <= 9

lstBox.Items.Add(num)

num += 2

Loop

End Sub

5. Identify the errors.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

‘Display all numbers from 0 through 20 except for 13

For i As Integer = 20 to 0

If i = 13 Then

i = 12

End If

Next

End Sub

(Assume that the five lines of the file DATA.TXT contain the following entries: 3, 2, 4, 7, 2.)

6. Determine the contents of the text box after the code is executed.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click

Dim total As Integer = 0

For n As Integer = 0 To lstBox.Items.Count - 1

If CStr(lstBox.Items(n)).Length = 6 Then

Total += 1

End If

Next

txtOutput.Text = CStr(total)

End Sub

7. Write a program to find the largest of five numbers obtained from the user with an input dialog box.