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 первого символа строки);
Chr (выдача символа, код ASCII которого определяется аргументом функции);
Instr (отыскание места первого появления некоторой строки в другой строке начиная с некоторой позиции).
КОНТРОЛЬНИЙ ОПРОС НА ПРАКТИЧНОМУ ЗАНЯТТІ (Лс,Вс).