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

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


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

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

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