It is not a simple task. Yes! Помогите.

[Rik3D]

It is not a simple task. Yes! - находится в ячейке А1

1) Найти в выражении клетки А1 каких символов больше
2)Считать до точки. Регистр не учитывать
3)Если несколько символов встречаются одинаковое количество раз, то взять первый из них по алфавиту
4)Отобразить на экрате в виде: символ_пробел_количество
Например: U 5

Напишите для Microsoft Visual Bisic

[Memfivosfey]

енто первая часть марлизонского балета.....

на форме:

A1 - TextBox
List1 - ListBox
Command1 - CommandButton

Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim N As Integer
Dim LetterExist As Boolean

Dim X(60, 1) As String
For I = 1 To Len(A1.Text)
If Mid(A1.Text, I, 1) = "." Then Exit For
LetterExist = False
For J = 0 To N - 1
If UCase(X(J, 0)) = UCase(Mid(A1.Text, I, 1)) And UCase(X(J, 0)) <> "" Then
X(J, 1) = Right(Str(Val(X(J, 1)) + 1), Len(Str(Val(X(J, 1)) + 1)) - 1)
LetterExist = True
Exit For
End If
Next J
If LetterExist = False Then
X(N, 0) = X(N, 0) + (Mid(A1.Text, I, 1))
X(N, 1) = Right(Str(Val(X(N, 1)) + 1), Len(Str(Val(X(N, 1)) + 1)) - 1)
N = N + 1
End If
Next I
For I = 0 To N - 1
List1.AddItem X(I, 0) & " - " & X(I, 1)
Next I
End Sub

Осталось только сортировка...
Если будет тайм напишу... а ежели нет, мож ещё кто подкинет....