Практическая часть

( Программа «выбор максимального числа из двух чисел с помощью структурированной программы, состоящей из главной и вспомогательной подпрограмм»)

Private Sub userform1(ByVal x As Integer, ByVal b As Integer, ByRef c As Integer)

(вспомогательная подпрограмма)

If a > b Then

a = b

Else

If a < b Then ''

c = b

(Оператор ветвления If … Then … Else)

Else 'Блок из 2х операторов

MsgBox "числа равные": c = a

End If

End If

End Sub

Private Sub CommandButton1_Click()

Dim a As Integer, b As Integer, c As Integer, max2 As Integer, max3 As Integer

(инструкция задания переменных и их типа)

a = CInt(TextBox1.Text)

b = CInt(TextBox2.Text)

c = CInt(TextBox3.Text)

(Операторы присваивания целочисленным переменным значений)

UserForm a, b, max3 'вызов

TextBox3.Text = max3

(вывод значения целочисленной переменной max3 в текстовое поле)

End Sub

Форма программы(рис.1)

Рис.1

(После запуска программы появляется следующая форма, в которой имеется Textbox1, Textbox2, Textbox3, Textbox4 и один CommandButton. В Textbox1, Textbox2, Textbox3 вводим целочисленные значения, после чего активируем CommandButton и наибольшее из трёх чисел выводится в Textbox4.)

Задача для нахождения решения квадратного уравнения.

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

Dim D As Single, x1 As Single, x2 As Single

re:

a = Val(InputBox("Введите а"))

If a = 0 Then

MsgBox "а не должно быть равно 0"

GoTo re

End If

b = Val(InputBox("Введите b"))

c = Val(InputBox("Введите c"))

D = b ^ 2 - 4 * a * c

If D < 0 Then

MsgBox "уравнение действительных корней не имеет"

Else

If D = 0 Then

MsgBox "уравнение имеет 2 равных действительных корня x1=x2=" & -b / (2 * a)

Else

MsgBox "уравнение имеет 2 разных действительных корня" & vbCrLf & _

"x1= " & (-b + Sqr(D)) / (2 * a) & _

vbCrLf & " x1=" & (-b - Sqr(D)) / (2 * a)

End If

End If

End Sub

(Подставляем коэффициенты в Textbox, активируем Commandbutton получаем корни)

ВЫВОДЫ:

Проделав данную лабораторную работу, мы научились составлять алгоритм, эскиз и программный код для решения задач.

Дата добавления: 2014-12-24