Imports System
Public Class Program
Public Shared Sub count(ByVal s As String)
Dim letters As Integer = 0, spaces As Integer = 0, numbers As Integer = 0
Dim otherchars As Integer = 0
For i As Integer = 0 To s.Length - 1
If Char.IsLetter(s(i)) Then
letters += 1
ElseIf Char.IsDigit(s(i)) Then
numbers += 1
ElseIf Char.IsWhiteSpace(s(i)) Then
spaces += 1
Else
otherchars += 1
End If
Next
Console.WriteLine("letters: " & letters)
Console.WriteLine("spaces: " & spaces)
Console.WriteLine("numbers: " & numbers)
Console.WriteLine("others: " & otherchars)
End Sub
Public Shared Sub Main()
Dim s As String = "VB.NET $100% Prog()ramming 99 !!!"
count(s)
End Sub
End Class
' run:
'
' letters: 16
' spaces: 10
' numbers: 5
' others: 8
'
