Приложение: "ugadaj chislo.rar"
Занятие 20.1. Вложенные операторы ветвления.Задания
Задание 1.Разработка проекта простейшей игры 'Угадай число'.
На форме разместите:
- текстовое поле,
- 2 кнопки(Button1 свойство Text измените на "генерирование случайных чисел", у Button2 - свойство Text = "проверка на совпадение"),
- надпись (Label1⇒ свойство Text измените на "введите число").
- надпись - подсказка (Label2⇒свойство Text измените на "", свойство AutoSize на true).
Вот как это должно выглядеть:
Блок - схема 1 проекта:
 |
Фрагмент программного кода:
Dim A As Integer ' Объявляем переменную A для хранения чисел. В ней будет храниться сгенерированное число
Private Sub Button1_Click(....) Handles Button1.Click ' При нажатии на кнопку 'генерирование случайного числа':
Randomize() ' Этот оператор используется вместе с функцией Rnd, инициализирует генератор случайных чисел
A = Fix(Rnd() * 100) ' Генерируем случайное число в диапазоне [0...99 ] и обрезаем дробную часть.Затем случайное число записывается в переменную A
' Ссылка ⇒funkcii-rnd-fix.rar
TextBox1.Focus()
Label2.Text = Str(A)
End Sub
Возможен такой вариант разработки проекта:
Блок - схема 2 проекта:
|
|
Задание 2
Составьте блок-схему алгоритма вычисления значения выражения ((а + b) - с) / (а - 2b). Исполните его при разных значениях а, b, с. Подберите числа так, чтобы каждый раз исполнение алгоритма происходило поразному.
Задание 3
Создайте проект, который определяет меньшее число среди трех разных чисел. Сохраните проект.
Задание 4*
Создайте проект, в котором кнопка будет перемещаться на 20 пикселей вправо при наведении на нее указателя. После того как кнопка исчезнет за правой границей окна, она должна появиться возле его левой границы.Сохраните проект.
Задание 5
Создайте проект, в котором можно вычислить значение функции:
Сохраните проект.
