Написать программу, проверяющую можно ли из букв составить данное слово - 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