Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btnAction_Click(sender As Object, e As EventArgs) Handles btnAction.Click
- Dim strWord As String
- strWord = txtWord.Text.ToUpper
- If containsAllVowels(strWord) = True Then
- lblOutput.Text = strWord & " contains every vowel."
- Else
- lblOutput.Text = strWord & " does not contain all the vowels."
- End If
- End Sub
- Function containsAllVowels(ByVal strWord As String) As Boolean
- If strWord.IndexOf("A") = -1 Then
- Return False
- End If
- If strWord.IndexOf("E") = -1 Then
- Return False
- End If
- If strWord.IndexOf("I") = -1 Then
- Return False
- End If
- If strWord.IndexOf("O") = -1 Then
- Return False
- End If
- If strWord.IndexOf("U") = -1 Then
- Return False
- End If
- Return True
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement