G2A Many GEOs
SHARE
TWEET

Untitled

a guest Apr 7th, 2020 202 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top