равления:
- Форма:
Name - frmMain,
Caption - Точки,
BackColor - белый,
- Таймер:
Name - tmr1,
Interval - 1.
4. Напишите программный код:
объявляем переменные
Dim R, G, B As Variant
Dim X, Y As Variant
Dim C As Variant
Private Sub tmr1Timer()
For C 1 To 10 Step 1
выбираем случайные значения переменных R,G,B для оператора RGB
R Rnd 255
G Rnd 255
B Rnd 255
выбираем случайные значения координат точки
X Rnd frmMain. ScaleWidth
Y Rnd frmMain. ScaleHeight
frmMain. PSet (X, Y), RGB(R, G, B)
Next C
End Sub
5. Запустите программу, при необходимости исправьте ошибки.
6. Измените конечное значение цикла на 100, затем на 1000, что изменилось?
7. Скомпилируйте программу в папку Мои документы под именем Точки.
I.
Игра "Головоломка". Создадим игру "Головоломка", для этого:
1. Запустите Microsoft Visual Basic.
2. На форму поместите два окна списка, две метки и управляющую кнопку:
s
В окно списка 1 запишем 10 чисел, смысл игры заключается в том, чтобы выбрать из этого окна числа, сумма которых равна 50. Выбранные числа будут помещаться в окно списка 2, сумма чисел будет отображаться в метке 2, управляющая кнопка предназначена для выхода из игры.
3. Назначьте следующие свойства элементов управления:
форма:
Name - frmMain,
Caption - Головоломка.
Окно списка 1:
Name - lstNambers,
Style - 1 - Checkbox,
List - 25,27,03,12,06,15,09,30,21,19. (после каждого числа нажимайте CtrlEnter).
Окно списка 2:
Name - lstSelectNam.
Метка 1:
Name - lblAmount,
Caption - Сумма:
sУправляющая кнопка:
Na
Страницы: << < 2 | 3 | 4 | 5 | 6 > >>