Приложение: "Msgbox_реализация повторения.rar"
Занятие 31.1
Тема. Функция вывода сообщений Msgbox. Использование значения функции при реализации повторения в проектах.
PS!!! 1. Функция вывода сообщений Msgbox() позволяет выводить сообщения с помощью окна сообщений, в котором можно разместить определенны набор кнопок и информационный значок о типе сообщения:
Msgbox("Сообщение", Числовой Код информационного значка + Числовой Код определенной кнопки , "Заголовок окна"),
где Числовой Код информационного значка + Числовой Код определенной кнопки определяется с помощью таблицы значений кодов:
2. Но так как Msgbox - функция, то правильнее будет использовать ее так:
- завести для нее целую переменную, и присвоить ей значение функции Msgbox;
- значение функции Msgbox - это код нажатой кнопки в окне сообщения, значение которого можно найти в таблице кодов кнопок.
Таблица кодов кнопок:
Пример Использование значений функции Msgbox как условия выхода / продолжения выполнения цикла.
Проект с использованием цикла do <условие>while .....loop.
1. Интерфейс проекта.
2. Реализация управления работой цикла.
3. Программный код
Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click
Dim s, z, c As Single
Dim i, k As Short
Dim w, s1 As String
s = 0 : i = 0 : k = 0 : z = 0 : c = 0
Do While MsgBox("будут покупки?", 64 + 4, "покупки") = 6
i = i + 1
z = Val(InputBox("введите цену" , Str(i) & "-й товар"))
k = Val(InputBox("введите количество" , Str(i) & "-й товар"))
c = z * k
s = s + c
Loop
w = "стоимость всех покупок:"
s1 = Str(s) & "грн"
MsgBox(w + s1, 64 + 0, "благодарим за покупки")
End Sub
Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click
End
End Sub
занятие 31.2
| 
