Текст программы:

Sub Summa(v1%, v2%, v3%, v4%, v5%, s%, m%)

s% = -(v1% * 6 + v2% * 6 + v3% * 9 + v4% * 9 + v5% * 12)

Select Case s%

Case Is < 15

m% = 2

Case 15 To 24

m% = 3

Case 25 To 34

m% = 4

Case Is > 35

m% = 5

Case Else

m% = 0

End Select

End Sub

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

26. Объект CheckBox. Пример программы.

27.Системная функция: InputBox. Пример.

Функция InputBox используется для ввода данных пользователем через системное окно.

Синтаксис функции следующий:

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

28. Системная функция: MsgBox. Пример.

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

Синтаксис функции следующий:

MsgBox (Текст [,Опция ] [,Заголовок ])

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

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

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

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

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

0 – ОК; 1 – ОК, ОТМЕНА; 2 – СТОП, ПОВТОР, ПРОПУСТИТЬ;

3 – ДА, НЕТ, ОТМЕНА;

4 – ДА, НЕТ;

5 – ПОВТОР, ОТМЕНА.

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

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

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

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

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

End Sub

29. Системные функции: функции RND, Timer, Iif. Пример.

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

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

IIF(Условное_выражение, Значение1, Значение2),

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