Private Sub Проверка1_Click()

v1% = Проверка1.Value: v2% = Проверка2.Value

v3% = Проверка3.Value: v4% = Проверка4.Value

v5% = Проверка5.Value

Call Summa(v1%, v2%, v3%, v4%, v5%, s%, m%) Текст1.Text = s

Текст2.Text = m End Sub

Системные функции, функции RND, Timer, IIf

К системным функциям относятся функции, действие которых напрямую зависит от работы Windows. Мы рассмотрим функцию InputBox - используемую для ввода данных пользователем через системное окно и функцию MsgBox – служащую для выдачи сообщений пользователю через системное окно. Синтаксис функции следующий:

InputBox (Приглашение [, Заголовок] [,НачЗначение]) Приглашение – любой текст, который находится в Окне ввода и служит для подсказки.

Заголовок – необязательная надпись в строке заголовка. НачЗначение – это значение, которое будет введено автоматически, если пользователь с этим согласен. Возвращаемым значением данной функции является информация вводимая пользователем. VB автоматически приписывает этой информации тип String. В программе функция InputBox может входить в состав выражения, значение которого присваивается переменной. При обращении к функции, на экране появляется Окно ввода. После щелчка по кнопке ОК происходит присваивание и окно ввода исчезает.

Текст модуля

Private Sub CommandButton1_Click()

Dim Fam, Im, Ot As String

Fam = InputBox("Введите Вашу фамилию:", "Ввод фамилии") Im = InputBox("Введите Ваше имя :", "Ввод имени")

Ot = InputBox("Введите Ваше отчество:", "Ввод отчества") TextBox1.Text = Fam: TextBox2.Text = Im: TextBox3.Text = Ot End Sub

Функция MsgBox служит для выдачи сообщени пользователю через системное окно.

Синтаксис функции следующий: MsgBox (Текст [,Опция ] [,Заголовок ])

Это традиционная форма синтаксиса, когда функци возвращает значение, которое затем используется программе, если скобки отсутствуют, то функция н возвращает никакого значения, а действует как операто т.е. просто выдаёт информацию в Окно сообщения.

Текст- это строка сообщения. Она может содержат до 1024 символов;

Опция – это целое число, которое определяется п формуле ОР=ОР1 + ОР2

Значение ОР1 определяет вид сообщения и пиктограмму, которая помещается в Окно сообщения

-Критическое сообщение, код=16

-Вопрос, код=32

-Предупреждение, код=48

-Информация, код=64

Значение ОР2 определяет набор кнопок в Окне сообщения:

Простая экранная форма – приветствие приведена на рисунке. В этом окне имеются три объекта: кнопка OK, надпись “Здравствуй друг!” и рисунок. В VBA экранная форма хранится в отдельном файле, имя которого имеет расширение frm.

Общий вид экранной формы представлен на рисунке.

Программный модуль, относящийся к данной экранной форме, хранится в файле с расширением bas и для нашего примера выглядит так:

Private Sub КоманднаяКнопка_Click()

MsgBox “Здравствуй, друг!”, 64, “Приветствие” End Sub

Рассмотрим использование ещё нескольких функций: датчика случайных чисел, счётчика времени и IIf.

В процессе решения вычислительных задач часто требуется программировать вероятность появления случайных событий. Для этого используют функцию RND значением, которой является число случайным образом выбираемое из интервала от 0 до 1. На самом деле при использование RND число берётся из очень длинной последовательности псевдослучайных чисел. Поэтому надо случайным образом определить место в этой последовательности с помощью оператора рандомизации Randomize, а для того, чтобы это число при каждом новом запуске программы было разным – используют ещё встроенный счётчик времени – функцию Timer без параметров.

Для программирования условного перехода можно использовать функцию IIF. Её синтаксис таков:

IIF(Условное_выражение, Значение1, Значение2), функция возвращает Значение1, если выражение истинно и Значение2, если оно ложно.

Private Sub Комманда1 _Click()

Randomize Timer

Dim Ver As Single: Ver = Rnd

Текст1 = IIf(Ver < 0.75, "Яблоки", "Грибы")

Текст2 = IIf(Ver < 0.75, "Яблочный пирог", "Пирог с грибами") End Sub