Работа с текстом. Строка символов Visual Basic - VB

Узнай цену своей работы

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

Написать программу используя форму. Вывод текста через Edit Само задание: Дана строка символов. Вывести или все слова, в которых есть одинаковые буквы, или количество слов, в которых все буквы разные (использовать OptionButtons). Название поля результатов менять в зависимости от информации. Вывести сообщения, если нужных слов нет (использовать MsgBox). Считываем текст с едита в переменную, но как уже запускать текст на проверки? Подскажите, пожалуйста, что необходимо прописывать в коде?

Решение задачи: «Работа с текстом. Строка символов Visual Basic»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
Static re As Object
Dim words As Object, w, i As Long, s As String
If re Is Nothing Then
  Set re = CreateObject("vbscript.regexp")
  re.Global = True
  re.IgnoreCase = True
  re.Pattern = "[A-ZА-ЯЁ]{2,}"
End If
Text3 = ""
Set words = re.execute(Text1.Text)
If Option1 Then
  For Each w In words
    If Not AllDiff(w) Then s = s & " " & w
  Next
  If Len(s) Then
    Text3 = Mid$(s, 2)
  Else
    MsgBox "Нет слов, которые имеют одинаковые буквы", vbExclamation
  End If
Else
  For Each w In words
    If AllDiff(w) Then i = i + 1
  Next
  If i Then
    Text3 = i
  Else
    MsgBox "Нет слов, в которых все буквы разные", vbExclamation
  End If
End If
    
End Sub
 
Private Sub Form_Load()
  Option1 = True
End Sub
 
Private Sub Option1_Click()
  Label3 = "Слова, которые имеют одинаковые буквы"
End Sub
 
Private Sub Option2_Click()
  Label3 = "Количество слов, в которых все буквы разные"
End Sub
 
Function AllDiff(x) As Boolean
Dim i As Long
  For i = 1 To Len(x) - 1
    If InStr(i + 1, x, Mid$(x, i, 1), vbTextCompare) Then Exit Function
  Next
  AllDiff = True
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4 из 5
Похожие ответы