Основные возможности Visual Basic. Макова Н.Е. - 57 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

57
Private Sub
Command1_Click()
Начало программы
Randomize Timer Инициализация датчика случайных чисел.
Используется для генерации различных зна-
чений при каждом новом запуске програм-
мы.
Image1.Visible = False Скрыть рисунок. Установив свойство False,
стираем рисунок, который может остаться от
предыдущей игры.
Label1.Caption =
Int(Rnd*10)
Label2.Caption =
Int(Rnd*10)
Label3.Caption =
Int(Rnd*10)
Эти три строки генерируют случайные числа
между 0 и 1. Функция Int возвращает целую
часть аргумента (в данном случае – произве-
дение случайного числа на 10). Затем слу-
чайные числа присваиваются названиям
первых трех надписей, после чего они появ-
ляются на экране в форме.
If (Label1.Caption = 7) Or
(Label2.Caption = 7) Or
(Label3.Caption = 7) Then
Image1.Visible = True
В этой строке проверяется, нет ли семерок
среди полученных трех случайных чисел.
Если хотя бы одна семерка есть, деньги де-
лаются видимыми.
End Sub Конец программы
6. Напишите программу для кнопки «Выход».
Вид законченного диалогового окна приведен ниже на рисунке.
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
                 Private Sub
                                                        Начало программы
              Command1_Click()
          Randomize Timer                 Инициализация датчика случайных чисел.
                                          Используется для генерации различных зна-
                                          чений при каждом новом запуске програм-
                                          мы.
          Image1.Visible = False          Скрыть рисунок. Установив свойство False,
                                          стираем рисунок, который может остаться от
                                          предыдущей игры.
          Label1.Caption =                Эти три строки генерируют случайные числа
          Int(Rnd*10)                     между 0 и 1. Функция Int возвращает целую
          Label2.Caption =                часть аргумента (в данном случае – произве-
          Int(Rnd*10)                     дение случайного числа на 10). Затем слу-
          Label3.Caption =                чайные числа присваиваются названиям
          Int(Rnd*10)                     первых трех надписей, после чего они появ-
                                          ляются на экране в форме.
          If (Label1.Caption = 7) Or      В этой строке проверяется, нет ли семерок
          (Label2.Caption = 7) Or         среди полученных трех случайных чисел.
          (Label3.Caption = 7) Then       Если хотя бы одна семерка есть, деньги де-
          Image1.Visible = True           лаются видимыми.
          End Sub                         Конец программы

              6. Напишите программу для кнопки «Выход».
         Вид законченного диалогового окна приведен ниже на рисунке.




                                                                                   57

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы