In this article I would like to share with you this program that I wrote using Microsoft Visual Basic 5 to require our user to give a string or sentence and then our program will remove the vowels from it. I hope you will find my work useful. Thank you.
I am currently accepting programming work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Private Sub Command1_Click()
Dim x As Integer
Dim str1 As String
str1 = Text1.Text
For x = 1 To Len(UCase(str1))
a = Mid(str1, x, 1)
Select Case UCase(a)
Case "A", "E", "I", "O", "U"
str1 = Left(str1, x - 1) & " " & Right(str1, (Len(str1) - x))
Case Else
End Select
Next x
Label2.Caption = "The remaining string is " & str1 & "."
End Sub
Private Sub Command2_Click()
Label2.Caption = ""
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
