me - cmdExit,
Caption - Выход.
4. Напишите программный код:
объявляем переменные
Dim s As Integer
Dim i As Integer
Private Sub cmdExitClick()
End выход из программы при нажатии на кнопку од
End Sub
Private Sub lstNambersItemCheck(Item As Integer)
If lstNambers. Selected(Item) Then
lstSelectNam. AddItem lstNambers. List(Item) в окно списка 2 выводим выбранные в окне списка 1 значения
Else
For i 0 To lstSelectNam. ListCount - 1
If lstSelectNam. List(i) lstNambers. List(Item) Then
lstSelectNam. RemoveItem i
End If
Next i
End If
s 0слаживаем числа, находящиеся в окне списка 2
For i 0 To lstSelectNam. ListCount - 1
s s Val(lstSelectNam. List(i))
Next i
выводим значение суммы в метку 1
lblAmount. Caption "Сумма" Str(s)
If s 50 Then
lblAmount. Caption "Победа" Str(s)
делаем окно списка 1 и 2 неактивным
lstNambers. Enabled False
lstSelectNam. Enabled False
End If
End Sub
5. Запустите программу, при необходимости исправьте ошибки.
6. Добавьте в проект управляющие элементы по своему усмотрению.
7. Скомпилируйте проект в папку Мои документы под именем Головоломка.
II. Игра "Поймай кнопку".
Создадим игру, на поле формы будет появляться в разных местах небольшая кнопка, задача - щелкнуть мышью по ней, для этого:
1. Запустите Microsoft Visual Basic.
2. Поместите на форму управляющую кнопку и таймер.
3. Задайте следующие свойства для элементов управления:
Форма:
- Name - frmMain,
- BorderStyle - 1-Fixed Single,
- Caption - Поймай кнопку,
- Height - 8000,
- ScaleHeight
Страницы: << < 3 | 4 | 5 | 6 | 7 > >>