Создать проект, который проверяет можно ли из слова M составить слово N - VB

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

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

На информатике дали такое задание: написать программу, которая проверяет, можно ли из слова M составить слово N. Я попробовал написать, но что-то не так, вот:
Помогите пожалуйста написать так, чтоб все работало

Решение задачи: «Создать проект, который проверяет можно ли из слова M составить слово N»

textual
Листинг программы
Function ChkWords(Wi As String, Wr As String) As Boolean
      ChkWords = True
      For i% = 1 To Len(Wr)
          s$ = Mid$(Wr, i%, 1)
          If InStr(UCase$(Wi), UCase$(s$)) = 0 Then
             ChkWords = False
             Exit Function
          End If
       Next i%
End Function
 
Sub Test()
    W1$ = "пробка"
    'W2$ = "коробка"     ' вывод "можно"
    W2$ = "корова"       ' вывод "нельзя"
    If ChkWords(W1$, W2$) Then
       Debug.Print "Можно"
    Else
       Debug.Print "Нельзя"
    End If
End Sub

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


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

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

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