2015-02-27
395
Программа выполняет три задачи:
1. Скрывает столбик монет.
2. Создает три случайных числа для вывода в окнах надписей.
3. Показывает рисунок при появлении числа семь.
Каждый раз после щелчка на кнопке «Играем» выполняется программа.
| Текст программы | Пояснение |
| Private Sub CommandButtonl_CHck() | Начало программы |
| Randomize Timer | Инициализация датчика случайных чисел. Используется для генерации различных значений при каждом новом запуске программы. |
| Image 1. Visible = False | Скрыть рисунок (деньги). Установив свойство False стираем рисунок, который может остаться от предыдущей игры. |
| Label 1. Caption = Int(Rnd * 10) | Эти три строки генерируют случайные числа между 0 и 1. Функция Int возвращает целую часть аргумента (в данном случае - произведение случайного числа на 10 и отбрасывает дробную часть аргумента). Затем случайные числа присваиваются названиям первых трех надписей, после чего они появляются на экране в форме. |
| Label2.Caption = Int(Rnd * 10) | |
| Label3.Caption = Int(Rnd * 10) | |
| If(Label1.Caption=7)Or (Label2.Caption = 7) Or (Label3.Caption= 7) Then Image 1. Visible = True | В этой строке проверяется, нет ли семерок среди полученных трех случайных чисел. Если хотя бы одна семерка есть, деньги делаются видимыми. |
| End Sub | Конец программы |
Составьте программу для кнопки «Выход».
Создайте кнопку на листе Excel для вывода формы.
Задание2.
Создайте приложение, в результате работы которого будет известно, принадлежит ли точка с координатами (X, Y) прямоугольнику с координатами (X1,Y1) и (X2,Y2). Разработайте диалоговое окно для ввода исходных данных и вывода результатов. В диалоговом окне расположите рисунок задания. Создайте кнопку на листе Excel для вывода формы.
Задание3.
Создайте приложение, в результате работы которого будет известно, принадлежит ли точка с координатами (X, Y) замкнутому кругу с радиусом R и с центром в начале координат. Разработайте диалоговое окно для ввода исходных данных и вывода результатов. В диалоговом окне расположите рисунок задания. Создайте кнопку на листе Excel для вывода формы.
