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