number of time a charcter occur

1.	number of time a charcter occur
Answer» Dim lit As Char Dim Count As Integer = 0 Dim Count1 As Integer = 0 Dim Duplicate As Char = "A" Dim STR As String = "1 3 2 6 2 4 2 6 7 2 5 2" Dim i As Integer For i = 0 To str.Length- 1 Step i + 1 lit = str(i) Dim j As Integer For j = 1 To str.Length- 1 Step j + 1 If lit = str(j) Then Count = Count + 1 End If NEXT If Count > Count1 Then Count1 = Count Duplicate = str(i) End If Next Response.Write(Duplicate.ToString())

Discussion