Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза - VB

Формулировка задачи:

Добрый вечер. Столкнулся с проблемой в написании программы в VBA для excel, а конкретно не могу понять, как строку из текст бокса внести в переменную, которая как бы массив Private Sub CommandButton1_Click() Dim Str() As String Dim num, i, j As Integer Dim check As Boolean Str = TextBox1.Text num = 0 For i = 0 To Len(Str) check = False For j = i + 1 To Len(Str) If Str(j) = Str(i) Then check = True Erase Str(j, 1) End If Next j If (check) Then num = num + 1 End If Next i Label2.Caption = num End Sub

Решение задачи: «Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim s As String, c As String, n As Long
Caption = ""
s = TextBox1
While Len(s)
  c = VBA.Left$(s, 1)
  n = Len(s) - Len(Replace(s, c, ""))
  If n > 1 Then Caption = Caption & c
  s = Replace(s, c, "")
Wend
Caption = Caption & ": " & Len(Caption) & " символов"
End Sub
 
Private Sub UserForm_Initialize()
TextBox1 = "Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза - VB"
End Sub

Оцени полезность:

12 голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы