- •____________________________________________________________
- •Задачи, решения и ответы
- •3. Программный код
- •4. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •2. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •4. Ответ
- •2. Программный код :
- •5. Ответ
- •2. Программный код :
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ
- •2. Программный код
- •3. Ответ:
- •2. Программный код
- •4. Программный код
- •5. Ответ
- •Литература
4. Ответ
После запуска приложения появится форма с окном сообщения рис.3.
.
Рис. 3.
4.1 Щелкаем поле Text1, в результате появляется окно ввода (рис.4), в которое вводим число(числовое значение переменной А) - это первый способ ввода. Затем с клавиатуры вводим число(числовое значение переменной В) в поле Text2 – это второй способ ввода. С помощью горизонтальной полосы прокрутки вводим число(числовое значение переменной С) в поле Text3 – это третий способ ввода числа.
Рис. 4.
4.2 Для того чтобы вывести в текстовом окне Text4 результат вычислений, щелкнем кнопку «Щелкните кнопку и получите результат Z» (см. рис.5)
Рис. 5.
Вывод:
Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи (например, следующие задачи №2-4).
Задача №2
Создать приложение: «Ввод данных»
Решение:
Эскиз экранной формы представлен на рис. 1.
1. Расставим имена объектов на эскизе экранной формы.
Рис. 1.
2. Программный код
Dim Фамилия As String, Имя As String, Дата As Date
Dim Оценка1 As Integer, Оценка2 As Integer, Оценка3 As Integer
Dim Оценка As Integer
Private Sub Form_Click()
MsgBox "За ввод данных Вам ставится оценка " & Оценка & ". Конец работы."
End Sub
Private Sub Form_Load()
Фамилия = InputBox("Введите Вашу Фамилию", "Ввод Фамилии")
Оценка1 = MsgBox("Ввод фамилии " + Фамилия + " закончен!", 65, _
" Примите к сведению.")
Имя = InputBox("Введите Ваше Имя ", "Ввод Имени")
Оценка2 = MsgBox("Ввод Имени " + Имя + " закончен", 65, _
" Еще раз примите к сведению")
Дата = InputBox("Введите дату своего рождения", " Ввод даты рождения")
Оценка3 = MsgBox("Ввод даты рождения" & Дата & " закончен", 65, _
"Последний раз примите к сведению.")
Оценка = 8 - (Оценка1 + Оценка2 + Оценка3)
End Sub
3. Ответ
3.1. После щелчка мышью по экранной форме, появится окно ввода рис. 1.
Рис. 1.
3.2. Введемданные рис. 2, после чего появится окно сообщения рис. 3.
Рис. 2.
Рис. 3.
3.3. Аналогично вводим Имя и Год рождения рис.4.
Рис. 4.
3.4. Щелкнем мышью по форме и получим ответ в виде окна сообщения рис. 5
Рис. 5.
Задача №3
Создать приложение: «Вычисление функции по заданным значениям аргумента (например, вычислить Y=2sin(x-2), где х – произвольное число)»
Решение:
Эскиз экранной формы представлен на рис. 1.
Рис. 1.
1. Расставим имена объектов на эскизе экранной формы.
2. Программный код
Dim x As Single, y As Single
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Click()
x = InputBox("Ввод данных", "Ввести Х")
y = 2 * Sin(x + 2)
Print " x="; x, " y="; y
End Sub