| 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()) | | |