Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д