Hi,
This problem looks pretty simple but I am having a devil of a time getting it right.
What I am looking to do is using Inputbox input a character and then use an IF statement to produce the words in a picbox "The character you entered was a vowel" and if the character was not a,e,i,o,u then print "The Character you entered is not a vowel".
The main problem I am having is how to input the letters a,e,i,o,u in the code itself.
Option Explicit
Private Sub cmdStart_Click()
'Declare required storage
Dim Var1 As String
'Invite user to enter character
Var1 = InputBox("Please enter a character ", "Character")
If Var1 = Chr(int)a,e,i,o,u Then
picMessage.Print "The Character you entered is a vowel "
End If
End Sub
Thanks
Charlie
This message was edited by Charlie on 2002-10-17 15:44
This message was edited by Charlie on 2002-10-17 16:08
This problem looks pretty simple but I am having a devil of a time getting it right.
What I am looking to do is using Inputbox input a character and then use an IF statement to produce the words in a picbox "The character you entered was a vowel" and if the character was not a,e,i,o,u then print "The Character you entered is not a vowel".
The main problem I am having is how to input the letters a,e,i,o,u in the code itself.
Option Explicit
Private Sub cmdStart_Click()
'Declare required storage
Dim Var1 As String
'Invite user to enter character
Var1 = InputBox("Please enter a character ", "Character")
If Var1 = Chr(int)a,e,i,o,u Then
picMessage.Print "The Character you entered is a vowel "
End If
End Sub
Thanks
Charlie
This message was edited by Charlie on 2002-10-17 15:44
This message was edited by Charlie on 2002-10-17 16:08