Dim L1 As Integer, L2 As Integer, i As Integer, j As Integer

Dim Index As Integer

Dim a(1 To 10) As String

Private Sub chk_Click(Index As Integer)

Ответ = Ответ + chk(Index).Caption 'При щелчке по кнопке с выбранной буквой к перемнной Ответ 'добавляется буква с кнопки

txtОтвет.Text = Ответ

chk(Index).Visible = False 'Кнопка с выбранной буквой становится невидимой

End Sub

Private Sub Form_Activate()

TxtСлово.SetFocus

Ответ = ""

End Sub

Private Function Letter(a As String, i As Integer) As String 'Функция удаления букв

Select Case i

Case 1

Letter = Right(a, Len(a) - 1)

Case Len(a)

Letter = Left(a, Len(a) - 1)

Case Else

Letter = Left(a, i - 1) + Right(a, Len(a) - 1)

End Select

End Function

Private Sub сmd_Click()

txtСлово.PasswordChar = ""

For Index = 1 To 10

chk(Index).Enabled = True

Next Index

For Index = 1 To 10

chk(Index).Value = 0

chk(Index).Visible = True

chk(Index).Caption = ""

Next Index

TxtСлово.SetFocus

txtОтвет.Text = ""

txtСлово.Text = ""

Ответ = ""

End Sub

Private Sub сmdАнаграмма_Click()

Слово = txtСлово.Text 'Загаданное слово

L1 = Len(Слово) 'Длина загаданного cлова

c = Слово

L2 = Len(c)

Randomize Timer

For i = 1 To L1

j = 1 + Int(L2 * Rnd()) 'j - случайная позиции буквы в загаданном слове

chk(i).Caption = Mid(c, j, 1) 'Выделение одной буквы слова на позиции j и ‘ размещение этой буквы на кнопке с номером i

a(i) = chk(i).Caption 'Запоминание выделенной буквы в массиве a

c = Left(c, j - 1) + Right(c, L2 - j) 'Из слова удаляется буква на позиции j

L2 = L2 - 1 'Длина слова уменьшается на 1

Next i

End Sub

Private Sub сmdВыход_Click()

End

End Sub

Private Sub сmdПроверка_Click()

If Ответ = Слово Then 'Если слово угадано

txtСлово.PasswordChar = ""

txtСлово.Text = Слово 'Оно появляется на месте'загаданного

MsgBox "Слово угадано!!!", vbOKOnly, "Проверка"

Else 'Если слово не угадано.

MsgBox "Не угадал! Попробуй еще!", vbOKOnly, "Проверка" 'предлагается ‘следующая попытка

For Index = 1 To L1

chk(Index).Value = 0

chk(Index).Visible = True

chk(Index).Caption = a(Index)

Next Index

txtОтвет.Text = ""

Ответ = ""

End If

End Sub

9. Проверьте правильность работы проекта. Устраните возможные ошибки.

10. Сохраните изменения в проекте.

Подведем итоги: В работе были использованы новые Функции:

Len (определение длины строки);

Mid (выделение строки символов в строке);

UCase (перевод всех строчных букв строки в прописные)

Asc (выдача цифрового значения, которое соответствует коду ASCII первого символа строки);