I.
Проект "Случайные числа". Создадим игральный кубик, позволяющий выбирать случайные числа от 1 до 6, для этого:
1. Запустите Microsoft Visual Basic.
2. Поместите на форму управляющую кнопку и шесть Картинок (Image):
3. Задайте следующие свойства для элементов управления:
Форма:
- Name - frmMain,
- Caption - Кубик.
Управляющая кнопка:
oo Name - cmdStart,
oo Caption - Жми!!!.
Картинка 1:
oo Name - img1,
oo Picture - вставить рисунок 1 из папки, указанной учителем.
oo Visible - False.
Картинка 2:
oo Name - img2,
oo Picture - рисунок 2.
oo Visible - False.
Картинка 3:
oo Name - img3,
oo Picture - рисунок 3.
Картинка 4:
oo Name - img4,
oo Picture - рисунок 4.
Картинка 5:
oo Name - img5,
oo Picture - рисунок 5.
Картинка 6:
oo Name - img6,
oo Picture - рисунок 6.
4. Переместите картинки таким образом, чтобы они налагались друг на друга:
5. Напишите программный код:
Dim x As Integer
Private Sub cmdStartClick()
img1. Visible False
img2. Visible False
img3. Visible False
img4. Visible False
img5. Visible False
img6. Visible False
Randomize
x Int((Rnd 6) 1)
If x 1 Then
img1. Visible True
ElseIf x 2 Then
img2. Visible True
ElseIf x 3 Then
img3. Visible True
ElseIf x 4 Then
img4. Visible True
ElseIf x 5 Then
img5. Visible True
Else
img6. Visible True
End If
End Sub
6. Запустите программу, при необходимости исправьте ошибки.
7. Скомпилируйте программу в папку Мои документы под именем Кубик.
Страницы: << < 5 | 6 | 7 | 8 > >>