Advertisement
Guest User

Untitled

a guest
Apr 7th, 2020
252
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.94 KB | None | 0 0
  1. Public Class Form1
  2.     Private Sub btnAction_Click(sender As Object, e As EventArgs) Handles btnAction.Click
  3.         Dim strWord As String
  4.         strWord = txtWord.Text.ToUpper
  5.         If containsAllVowels(strWord) = True Then
  6.             lblOutput.Text = strWord & " contains every vowel."
  7.         Else
  8.             lblOutput.Text = strWord & " does not contain all the vowels."
  9.         End If
  10.     End Sub
  11.  
  12.     Function containsAllVowels(ByVal strWord As String) As Boolean
  13.         If strWord.IndexOf("A") = -1 Then
  14.             Return False
  15.         End If
  16.         If strWord.IndexOf("E") = -1 Then
  17.             Return False
  18.         End If
  19.         If strWord.IndexOf("I") = -1 Then
  20.             Return False
  21.         End If
  22.         If strWord.IndexOf("O") = -1 Then
  23.             Return False
  24.         End If
  25.         If strWord.IndexOf("U") = -1 Then
  26.             Return False
  27.         End If
  28.         Return True
  29.     End Function
  30. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement