Программный код проекта
Для написания программного кода кликаем дважды по элементу Button1. Объявляем переменные A, B, C, Z. В событие записываем ввод исходных данных, реализацию алгоритма и вывод результата. Полный текст процедуры имеет такой вид:
PrivateSubCommand1_Click()
Dim A, B, C, Z As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A + B >= 0 Then
If A<=B Then
Z=0.5*A+A*sin(B^2+1)
Else
Z=0.5*B+A*sin(B^2+1)
End if
Else
If A >= 0.5*B Then
Z=(A+B^2)^(1/2)
Else
Z=(0.5*B+B^2)^(1/2)
End if
End if
Text4.Text = Str(Z)
End Sub
Тестовый пример и экранная форма разработанного проекта
Зададим следующие значения для решения задачи:
А = -1.5;
В = 2.5;
С = 0.
Результат выполнения программы приведен на рисунке:
Задание 3
Разработать алгоритм и приложение в среде Visual Basic, позволяющее для последовательности элементов массива M с использованием циклов
вычислить значение Z, определяемое из таблицы. Алгоритм представить в виде
блок-схемы. В заголовке формы указать фамилию студента, шифр и номер задания.
Блок-схема алгоритма задачи
Порядок разработки приложения
Создадим новый проект Visual Basic: для этого запустим Microsoft Visual Basic, далее создадим новый проект. Добавим на форму следующие элементы: два элемента TextBox, два элемента Label и один элемент Button. Установим для формы и элементов размеры и следующие свойства:
Form1: Внешний вид_Text_` Гузова Шифр 31201713-05 Задание 3`
Label1: Внешний вид_Text_` Значение Z `
Button1: Внешний вид_Text_` Ввести элементы массива и выполнить расчет`
Выравниваем элементы формы.
Программный код проекта
Private Sub Command1_Click()
Dim M(15), A, B, C, K, L, D, S As Single
Dim N As Integer
L = Val(Text1.Text)
K = Val(Text2.Text)
S=99999
For i = 1 To 15
M(i) = Val(InputBox("Ввести элементы"))
Print M(i)
Next i
For i = 1 To 15 Step 2
D=D+M(i)
N=N+1
Next i
A=D/N
For i = 1 To 15
If M(i) >= K AND M(i) <=L Then
B=B+1
End If
Next i
D=0
For i = 1 To 15
If M(i)<=S Then
S=M(i)
End if
Next i
C=abs(S)
Z=A+B/(10+C)
Text3.Text = Str(Z)
EndSub
Тестовый пример и экранная форма разработанного проекта
Результат выполнения программы приведен на рисунке:
Литература
1. Сидорович Е.М., Солодов Б.П. “ИНФОРМАТИКА: практика работы в текстовых редакторах и программироване на Visual Basic 6.0 и Fortran”, 2011 г.