Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim c As String
Dim
asc1 As Integer
c = TextBox1.Text
asc1 = Asc(c)
'
MsgBox(asc1)
If c = "a" Or c
= "A" Or
c = "e" Or
c = "E" Or
c = "i" Or
c = "I" Or
c = "o" Or
c = "O" Or
c = "u" Or
c = "U" Then
If
asc1 <= 122 And asc1 >= 97 Then
MsgBox("vowel
in Lowercase")
Else
MsgBox("vowel
in Uppercase")
End
If
ElseIf
asc1 <= 122 And asc1 >= 97 Then
MsgBox("Not
Vowel in Lowercase")
Else
MsgBox("Not
Vowel in Uppercase")
End If
End Sub
End Class
No comments:
Post a Comment
Note: only a member of this blog may post a comment.