Visual Basic for Application. Проект «Анаграмма».

Visual Basic Application Проект «Анаграмма». Постановка задачи. Человек, работающий с программой, получает набор из букв, из которых надо составить все возможные слова (рисунок 1). Для того чтобы букву поместить в слово, надо щелкнуть по  объекту, в котором должна появится выбранная буква. Каждую букву использовать только один раз. Поэтому после того, как буква   выбрана   и   вставлена   в   слово,   соответствующая   радиокнопка становится недоступной. После нажатия на кнопку «Проверка», компьютер проверяет, существует ли такое слово, подсчитывает, сколько слов еще не составлено. Нажатие на кнопку «Новое слово» делает все радиокнопки снова доступными и очищает место для записи нового слова. Если слово правильное, отображается список ранее составленных слов. Если составленного слова нет, на экране появится сообщение  об этом. Рисунок 1 Ход работы Расположите на форме объекты в соответствии с рисунком 2. Установите   значения   свойств объектов   в   соответствии   с рисунком  3. Рисунок 2 Проанализируйте, а затем наберите программный код: Рисунок 3 Dim slovo(10) As String Public n As Integer Public k As Integer Public yes As Boolean Public nrw As String Private Sub Userform_initialize() slovo(0) = "ПРИРОДА" slovo(1) = "ПОРА" slovo(2) = "ПИР" slovo(3) = "ОДА" slovo(4) = "ДАР" slovo(5) = "ДРАП" slovo(6) = "ПАР" slovo(7) = "РОД" slovo(8) = "ОРДА" slovo(9) = "ПОД" n = 10 End Sub Private Sub CommandButton3_Click() End End Sub Private Sub Label1_Click() If OptionButton1.Value = True Then Label1.Caption = OptionButton1.Caption OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label1.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label1.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label1.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label1.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label1.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label1.Caption = OptionButton7.Caption  OptionButton7.Enabled = False  End If End Sub Private Sub Label2_Click() If OptionButton1.Value = True Then  Label2.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label2.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label2.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label2.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label2.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label2.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label2.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If    End Sub Private Sub Label3_Click() If OptionButton1.Value = True Then  Label3.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label3.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label3.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label3.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label3.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label3.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label3.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If End Sub Private Sub Label4_Click() If OptionButton1.Value = True Then  Label4.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label4.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label4.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label4.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label4.Caption = OptionButton5.Caption OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label4.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label4.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If End Sub Private Sub Label5_Click() If OptionButton1.Value = True Then  Label5.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label5.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label5.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label5.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label5.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label5.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label5.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If End Sub Private Sub Label6_Click() If OptionButton1.Value = True Then  Label6.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label6.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label6.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label6.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label6.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label6.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label6.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If End Sub Private Sub Label7_Click() If OptionButton1.Value = True Then  Label7.Caption = OptionButton1.Caption  OptionButton1.Enabled = False End If If OptionButton2.Value = True Then  Label7.Caption = OptionButton2.Caption  OptionButton2.Enabled = False End If If OptionButton3.Value = True Then  Label7.Caption = OptionButton3.Caption  OptionButton3.Enabled = False End If If OptionButton4.Value = True Then  Label7.Caption = OptionButton4.Caption  OptionButton4.Enabled = False  End If  If OptionButton5.Value = True Then  Label7.Caption = OptionButton5.Caption  OptionButton5.Enabled = False  End If  If OptionButton6.Value = True Then  Label7.Caption = OptionButton6.Caption  OptionButton6.Enabled = False  End If  If OptionButton7.Value = True Then  Label7.Caption = OptionButton7.Caption  OptionButton7.Enabled = False End If End Sub Private Sub CommandButton1_Click() nrw = "" If Label1.Caption <> "" Then nrw = nrw & Label1.Caption End If If Label2.Caption <> "" Then nrw = nrw & Label2.Caption End If If Label3.Caption <> "" Then nrw = nrw & Label3.Caption End If If Label4.Caption <> "" Then nrw = nrw & Label4.Caption End If If Label5.Caption <> "" Then nrw = nrw & Label5.Caption End If If Label6.Caption <> "" Then nrw = nrw & Label6.Caption End If If Label7.Caption <> "" Then nrw = nrw & Label7.Caption End If yes = False For k = 0 To 7 If nrw = slovo(k) Then yes = True n = n ­ 1 End If Next k If yes = True Then Label8.Caption = Label8.Caption + nrw + "," Label11.Caption = n Else MsgBox "Нет такого слова" End If End Sub Private Sub CommandButton2_Click() Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" Label4.Caption = "" Label5.Caption = "" Label6.Caption = "" Label7.Caption = "" OptionButton1.Enabled = True OptionButton2.Enabled = True OptionButton3.Enabled = True OptionButton4.Enabled = True OptionButton5.Enabled = True OptionButton6.Enabled = True OptionButton7.Enabled = True End Sub Литература : Паутова А.Г. Visual Basic. Творческое проектирование в школе и дома. В 3 ч. Ч.1. – М.: Классик Стиль, 2003 Паутова А.Г. Visual Basic. Творческое проектирование в школе и дома. В 3 ч. Ч.2. – М.: Классик Стиль, 2003