MsgBox«нет данных для расчета»,vbExclamation
MsgBox «текстовое сообщение», vbInformation
(экслёмэйшин – восклицание) Для определения констант служит ключевое слово Const. Синтаксическая конструкция для декларирования констант напоминает оператор для декларации переменной и имеет вид: [Public/Private] const имя_ константы [As тип]= значение например: Const PI As Single = 3.14 15 'объявлена именованная числовая константа для значения числа Pi.
15. Встроенные функции VB. Встроенные функции VB обеспечивают сложные виды обработки данных, избавляя пользователя от разработки собственных программ. В VB используется несколько категорий встроенных функций. Это — математические, строковые, функции даты и времени, функции преобразования типов и файловые. При обращении к этим функциям необходимо указать идентификатор функции, а в скобках аргумент. Приоритет вычисления функций выше, чем у арифметических операций. Математические: Abs(x) - |x| Atn(x) – arctg x Sin(x) – sin x Cos (x) – cos x Tan(x) – tg x Exp(x) - (e – основание натурального логарифма) Log(x) – ln x Sqr(x) – квадратный корень Rnd(x) – датчик случайных чисел Fix(x) – отбрасывание дробной части Int(x) – наибольшее целое число, не превосходящее Х Round(x [, A]) – округление числа Х, с точностью до А десятичных знаков; если параметр А не задан, то происходит округление до целого значения Sgn(x) – возвращает +1, если значение аргумента положительное, -1, если отрицательное и 0, если -0 Строковые: Len(Str$) — определение длины строки; Left(Str$,x) — выделение из строки х символов слева; Right(Str$,x) — выделение из строки х символов справа; Mid(Str$,x,y) — выделение из строки у символов начиная с номера х. Функции преобразования типов: Val(Str$) — преобразует строковое значение в число; Str(x) — преобразует число в строковое значение; Chr(x) — преобразует числовой код в символ; Chr(13) — перевод каретки; Chr(10) — переход на начало строки.
16. Запись арифметических выражений в VB. Приоритет операций. Арифметическое выражение – это последовательность чисел, констант, переменных, функций и арифметических выражений, заключённых в круглые скобки, которые соединены между собой знаками арифметических операций. Таких операций 8. Вычисления производятся в соответствии с приоритетом: 1) А^B; 2) –A; 3)A*B, A/B; 4)A\B; 5)A Mod B; 6)A+B, A-B. Для операции 34\5 результат равен 6, а для (34 mod 5) результат 4. Взятие стандартной функции имеет наивысший приоритет. Чтобы изменить последовательность выполнения операций используют круглые скобки.
17. Программирование линейного вычислительного процесса. Пример вычисления по формуле.
Текст программного модуля: Private Sub Форма1_Click() Dim X As Single, Y As Double X = Val(Текст1) Y = 1.736 * Abs(Log(Tan(X / 2))) - Sqr(Atn((Exp(X) - Exp(-X)) / 2)) Текст2 = Str(Y) End Sub
18. Разработка приложения «калькулятор». Текст программы: Private Sub CommandButton1_Click() ‘сложение Dim chislo1 As Single, chislo2 As Single, rez As Single chislo1 = Val(TextBox1.Text) chislo2 = Val(TextBox2.Text) rez = chislo1 + chislo2 TextBox3.Text = rez End Sub
Private Sub CommandButton2_Click() ‘вычитание Dim chislo1 As Single, chislo2 As Single, rez As Single chislo1 = Val(TextBox1.Text) chislo2 = Val(TextBox2.Text) rez = chislo1 - chislo2 TextBox3.Text = rez End Sub
Private Sub CommandButton3_Click() ‘умножение Dim chislo1 As Single, chislo2 As Single, rez As Single chislo1 = Val(TextBox1.Text) chislo2 = Val(TextBox2.Text) rez = chislo1 * chislo2 TextBox3.Text = rez End Sub
Private Sub CommandButton4_Click() ‘деление Dim chislo1 As Single, chislo2 As Single, rez As Single chislo1 = Val(TextBox1.Text) chislo2 = Val(TextBox2.Text) rez = chislo1 / chislo2 TextBox3.Text = rez End Sub
19. Разработка приложения «Переключатели и флажки». Private Sub CheckBox1_Click() ‘ курсив If CheckBox1.Value = 0 Then Label1.Font.Italic = False Else Label1.Font.Italic = True End If End Sub
Private Sub CheckBox2_Click() ‘ жирный If CheckBox2.Value = 0 Then Label1.Font.Bold = False Else Label1.Font.Bold = True End If End Sub
Private Sub ComboBox1_Change() ‘ размер шрифта Label1.Font.Size = ComboBox1.Text End Sub
Private Sub OptionButton1_Click() UserForm1.BackColor = vbYellow ‘ желтый цвет End Sub
Private Sub OptionButton2_Click() UserForm1.BackColor = vbGreen ‘ зеленый цвет End Sub
Private Sub OptionButton3_Click() UserForm1.BackColor = vbCyan ‘ голубой цвет End Sub
Private Sub OptionButton4_Click() Label1.BorderStyle = fmBorderStyleSingle ‘ с рамкой End Sub
Private Sub OptionButton5_Click() Label1.BorderStyle = fmBorderStyleNone ‘ без рамки End Sub
Private Sub UserForm_Initialize() ‘ размер шрифта For r = 8 To 16 ComboBox1.AddItem r Next r End Sub
20. Понятие алгоритма. Свойства алгоритма. Способы описания алгоритма. Примеры Алгоритм - это система точно сформулированных правил, определяющих процесс преобразования допустимых исходных данных (входной информации) в желаемый результат (выходную информацию) за конечное число шагов. Алгоритм обладает следующими основными свойствами: дискретность - разбиение процесса обработки информации на более простые этапы (шаги выполнения), выполнение которых человеком или компьютером не вызывает затруднений; определенность (или детерминированность) - однозначность выполнения каждого отдельного шага преобразования информации; результативность - завершение работы алгоритма в целом за конечное число шагов; массовость - пригодность алгоритма для решения определенное класса задач. В алгоритме отражаются логика и способ формирования результов решения с указанием необходимых расчетных формул, логических условий, соотношений для контроля достоверности выходных результатов.В алгоритме обязательно должны быть предусмотрены всеситуации, которые могут возникнуть в процессе решения задачи. Процесс разработки алгоритма называется алгоритмизацией. Сущность алгоритмизации вычислительного процесса проявляется в следующих действиях: · выделение законченных частей вычислительного процесса; · формальная запись каждого из них; · назначение определённого порядка выполнения выделенных частей; · проверка правильности выбранного алгоритма
Способы описания алгоритмов
Существуют несколько способов представления алгоритмов: · Словесный способ – описание алгоритма состоит из словесного перечня действий (без формул и таблиц). Недостатком этого способа является отсутствие чёткой формализации и наглядности выполнения процесса, но таким способом можно описывать алгоритмы с любой степенью детализации; · Формульно- словесный способ – задание инструкций о выполнении конкретных действий в чёткой последовательности в сочетании со словесными пояснениями. Этот способ более компактен, но не является строго формальным; · Табличный способ – представление алгоритма в виде таблицы и расчётных форм. Этот способ наиболее часто используется в экономических расчётах. · Графический способ – представление алгоритма в виде схемы, состоящей из геометрических фигур – блоков, форма которых зависит от выполняемых операций. Линия соединения блоков показывает направление процесса обработки данных. Каждое направление называется ветвью. Перечень блоков, их наименование, функции, формы, размеры, взаиморасположение определяется ГОСТ 19.701-90
21. Основные структуры алгоритмов. Язык блок-схем. Элементы, правила составления. Блок – схемой называется наглядное графическое представление изображения алгоритма, когда отдельные действия (этапы) алгоритма изображаются при помощи различных геометрических фигур, а связи между ними при помощи линий и стрелок. Основные структуры алгоритмов – это ограниченный набор блоков и стандартных способов их соединения для выполнения типичных последовательностей действий. Структурный подход к программированию предполагает использование только нескольких основных структур (линейных, ветвящихся, циклических), комбинация которых позволяет разрабатывать всё многообразие алгоритмов и программ.
Требования к изображению блок-схем: · Блок-схемы алгоритмов, как и любая техническая документация должны соответствовать требованиям стандартов. · При изображении блок-схем, все элементы должны иметь одинаковые геометрические размеры (например, соотношение высоты и ширины 1:3); вертикально и горизонтально все элементы должны располагаться на одной прямой, т.е. вписываться в регулярную сетку по горизонтали и по вертикали; линии связей не должны иметь множество пересечений, лучше использовать разрыв с элементом соединитель, который ставится в месте выхода и в месте входа линии связи; текст пояснений внутри блоков записывается на естественном языке или с помощью математических формул.
22. Алгоритм и программа решения квадратного уравнения. Текст модуля: Private Sub Комманда1_Click() a = Val(Текст1) b = Val(Текст2) c = Val(Текст3) Текст4 = " ":Текст5 = " " If a <> 0 Then d = b * b - 4 * a * c If d > 0 Then x1 = (-b + Sqr(d)) / 2 / a: x2 = (-b - Sqr(d)) / 2 / a Текст4 = "x1=" & Str(x1):Текст5 = "x2=" & Str(x2): GoTo1 Else Текст4 = «Действит. корней нет": GoTo 1 End If End If If b <> 0 Then x = -c / b: Текст4 = “корень=“ & Str(x): GoTo 1 End If If c <> 0 Then Текст4 = “Нет решения” Else Текст4 = “Мн-во решений” 1: End Sub
23. Программирование разветвляющихся процессов. Две формы условного оператора. Примеры. Алгоритмы, в которых последовательность выполняемых действий зависит от выполнения проверяемых условий, называются нелинейными. Они программируются с помощью условного оператора. В языке VB есть две формы условного оператора: однострочная и многострочная. Однострочная такова: If Условное выражение Then Оператор1 [ElseОператор2] Квадратные скобки содержат конструкции, которые могут отсутствовать. Многострочная форма оператора более сложная: If Условное выражение Then Последовательность операторов1 [Else Последовательность операторов2] End If
Условное выражение – это простое или сложное условие в состав, которого могут входить: переменные, константы, числа, связанные знаками арифметических и логических операций, а также знаками операций отношения. Условное выражение может принимать только два значения True и False. Логические операции в порядке приоритета их выполнения: Not, And, Or. Примеры: If x<y Then max=y Else max=x ‘ однострочный оператор If ((Sex$=“м”) And (Age! >=60)) Or ((Sex$=“ж”) And (Age! >=55)) Then V=P+Z: Goto 1 Else V=Z: Goto 1 End if ‘ многострочный оператор N=N+1: Goto 2 1:Текст1=Str(V)
24. Алгоритм и программа нахождения суммы ряда с заданной точностью. Текст программы: Private Sub Комманда1_Click() n = 1: v = 1: s = 1: s1 = 0 eps = Val(Текст1) 1: n = 2 * n v = 1 / n s = s + v If Abs(s - s1) < eps Then Текст2 = Str(s) Else s1 = s:GoTo 1 Текст2 = str(s) End Sub
Алгоритм:
25.Оператор Select Case. Пример программы. Условный оператор при многократном вложение применять не рекомендуется – программа становится громоздкой и трудной для понимания. В этом случае лучше использовать оператор выбора. Синтаксис оператора:
Select Case Выражение Case ДиапазонЗначений1 ПоследовательностьОператоров1 Case ДиапазонЗначений2 ПоследовательностьОператоров2 …
|