Bikkulov8

Для создания стандартных диалоговых окон необходимо поместить на форму элемент управления CommonDialog (В меню Разработать – Компоненты…установить флажок на элементе Microsoft Common Dialog Control 6.0 ) и заполнить его Свойства : Имя CD1, (Пользовательский).

42

Примеры программ на языке Microsoft Visual Basic

Пример 1. Простейшие вычисления

Вычислить функцию y = 2,72 - Cos(u + 5,3 v), где

u = a сos x + lg(5 + | a | ), v 23,2 cos(x b) . При выводе значения y, v , u

округлить до 0,00001.

Блок-схема

Интерфейс

43

Программный код

'Переменные объявляются как десятичные

Dim a, b, x, u, v, y As Single

Private Sub Form_Load()

'Отображение текста в заголовке формы и метках

Форма1.Caption = "Простейшие вычисления" Метка1 = "Введите данные"

Метка2.Caption = " Параметр а = "

Метка3.Caption = " Параметр b = " Метка4.Caption = " Аргумент x = "

Метка5 = "Результаты вычислений"

End Sub

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

'Удаление(сброс) текста

Метка6 = "" Метка7 = "" Метка8 = "" Текст1 = "" Текст2 = "" Текст3 = ""

End Sub

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

'Ввод данных и преобразование типа данных

a= Val(Текст1)

b= Val(Текст2)

x= Val(Текст3)

'Вывод в TextBox полученных чисел

Текст1 = a: Текст2 = b: Текст3 = x

'Вычисление заданных функции

u= a * Cos((x) + Log(5 + Abs(a)))

v= 2 ^ (3.2 - Cos(x + b))

y= 2.72 - Cos(u + 5.3 * v)

'Отображение полученных результатов c округлением

Метка6 = " u = " & Round(u, 5) Метка7 = " v = " & Round(v, 5) Метка8 = " y = " & Round(y, 5) End Sub

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

'Завершение работы

End End Sub

44

Результаты работы программы

Пример 2. Разветвляющиеся процессы

Вычислить с точностью до 0,001 значение функции:

Блок-схема

45

Интерфейс

Программный код

'Переменные объявляются как десятичные

Dim x, y, z, k As Single

Private Sub Кнопка1_Click()

Рисунок1.Cls: ‘Очистка рисунка

'Ввод данных и преобразование типа данных

x= Val(Текст1.Text)

y= Val(Текст2.Text)

Текст1.Text = x Текст2.Text = y

‘Проверка условий и вычисление функции

If (x < 0) And (y - 1 > Cos(x)) Then z = 6 + 2 * Atn(x * Sin(y))

46

k = 1 Else

If (x > 0) And (y > Exp(1) ^ (-x)) Then z = x * Cos(y)

k = 2 Else

If (y < 0) And (x < 5 Or y > -9) Then z = Log((y - x) ^ 2 + Exp(1))

k = 3 Else

z = 0 k = 4

End If End If

End If

‘Вывод результатов вычислений

Рисунок1.Print " Z = " + CStr(Round(z, 3))

Рисунок1.Print " Ветвь решения №" + CStr(k)

End Sub

Private Sub Кнопка2_Click()

‘Завершение работы

End End Sub

Результаты работы программы

Пример 3. Циклические процессы

Для заданного значения n вычислить с точностью до 0,001

Блоксхема

Интерфейс

Программный код

‘Переменная n объявляется как целочисленная переменная

Dim n As Integer

’ Переменная s объявляется как строковая переменная

Dim s As Single

Private Sub Текст_Change()

'Ввод данных и преобразование типа данных

48

t = Текст

n = Val(Текст)

If n = 0 Then Текст = ""

‘Задание черного цвета символам в окне Метка

Метка.ForeColor = &H0&

If n < 1 Or n > 100 Or Val(Right(Текст, 1)) = 0 Then

Текст = ""

‘Задание красного цвета в окне Метка при неправильном вводе

Метка.ForeColor = &HC0&

Метка = t & " не принадлежит отрезку [1;100]"

Exit Sub End If

Метка = "" s = 0

‘Организация цикла с параметром i от 1 до n с шагом 1 для ‘суммирования

For i = 1 To n

s = s + (-1) ^ i * (i + 2) ^ 5 * Atn(n + 2) / (i * 3 ^ I) Метка = "Сумма S = " & Format(s, "###0.000")

Next I End Sub

Результаты работы программы

Пример 4. Вычисление суммы и произведения

Вычислить сумму S 1 i i 1 i 2 k первых значений i!

функции больших по модулю числа 0,0001; 0,1 .

49

Блоксхема

Интерфейс

50