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