QUOTE(wanklik @ 5 Jun, 2009 - 11:26 PM)
A program that will accept string input from the user. the program will determin the number of vowel character(s) in a string and convert it * symbol.
Here is a my simple code:
CODE
Private Sub Command1_Click()
Dim vowels As Integer, x As Integer
Dim c As String, ss As String 'ss the output string
x = 0
Do While x < Len(Text1.Text)
c = Mid(Text1.Text, x + 1, 1) 'Get a character
If LCase(c) = "a" Or LCase(c) = "e" Or _
LCase(c) = "i" Or LCase(c) = "o" Or _
LCase(c) = "u" Then
vowels = vowels + 1
End If
x = x + 1
Loop
ss = Replace(Text1.Text, "A", "*")
ss = Replace(ss, "A", "*")
ss = Replace(ss, "a", "*")
ss = Replace(ss, "E", "*")
ss = Replace(ss, "e", "*")
ss = Replace(ss, "I", "*")
ss = Replace(ss, "i", "*")
ss = Replace(ss, "O", "*")
ss = Replace(ss, "o", "*")
ss = Replace(ss, "U", "*")
ss = Replace(ss, "u", "*")
End Sub
Forum Index:
Programming Help |
C and C++ |
VB6 |
Java |
VB.NET |
C# |
ASP.NET |
PHP |
ColdFusion |
Perl and Python |
Ruby |
Databases |
Other Languages |
Game Programming |
Mobile Development |
Software Development |
Computer Science |
Industry News |
Programming Tutorials |
C++ Tutorials |
Visual Basic Tutorials |
Java Tutorials |
VB.NET Tutorials |
C# Tutorials |
Linux Tutorials |
PHP Tutorials |
ColdFusion Tutorials |
Windows Tutorials |
HTML/JavaScript Tutorials |
CSS Tutorials |
Flash Tutorials |
Web Promotion Tutorials |
Graphic Design & Photoshop Tutorials |
Software Development Tutorials |
Database Tutorials |
Other Language Tutorials |
ASP.NET Tutorials |
Game Programming Tutorials |
WPF & Silverlight Tutorials |
5 Jun, 2009 - 11:26 PM
and i gues it is faster to put just * in there 
| 
