Написать программу, проверяющую можно ли из букв составить данное слово - VB
Формулировка задачи:
Помогите пожалуйста.
Двумерный массив М N содержит некоторые буквы русского алфавита, расположенные в произвольном порядке. Написать программу, проверяющую можно ли из этих букв составить данное слово S.
Решение задачи: «Написать программу, проверяющую можно ли из букв составить данное слово»
textual
Листинг программы
Sub Test() Dim sArray M = InputBox("M:") N = InputBox("N:") ReDim sArray(1 To M, 1 To N) sWord = InputBox("Введите слово:") sTmp = LCase(sWord) For i = 1 To M For j = 1 To N sArray(i, j) = Chr(Int(Rnd * 32 + 224)) sStr = sStr & sArray(i, j) & " " For k = 1 To Len(sTmp) If sArray(i, j) = Mid(sTmp, k, 1) Then Mid(sTmp, k, 1) = " " Next Next sStr = sStr & vbNewLine Next sStr1 = IIf(Len(Trim(sTmp)) = 0, "Можно!", "Нельзя!") MsgBox sStr & vbNewLine & sWord & vbNewLine & sStr1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д