Лабораторная работа №6

Создать приложение: «Использование процедуры – функции»

Решение:

Расставим имена объектов на эскизе экранной формы.

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

Dim t As Single, x As Single, y As Single, a As Single, _

b As Single, x1 As Single, y1 As Single

Private Sub command2_Click()

Beep

End

End Sub

Private Sub command1_Click()

Randomize Timer

a = Int(Rnd * 5) - 10

b = Int(Rnd * 10) - 5

x1 = Val(InputBox("Ввести данные", , "x= "))

y1 = Val(InputBox("Ввести данные ", , "y= "))

If a > x1 Or b > y1 Then

Text1.Text = Str(Mul(a, b)): Text2.Text = ""

Else

Text2.Text = Str(Mul(x1 + 1, y1 + 2)): text1.Text = ""

End If

End Sub

Public Function Mul(x As Single, y As Single) As Single

Mul = x ^ 2 * y ^ 3 / (Sqr(Abs(x * 2 * y)) + Sin(x ^ 3 + 0.45)) * Log(Abs(x + 1))

End Function

Private Sub Form_Load()

Label2.Caption = "Функция от процедуры отличается тем, что у нее нет _

выходных параметров " + Chr(13) + Chr(10) + _

"а все ее входные параметры называются аргументами (см. функцию с именем MUL)"

End Sub

В конце программного кода в окне Label2весь текст представлен в виде конкатенации строк, где 13 и 10 – этокоды ASCII, особых невидимых символов перехода на новую строку и символа возврата на левую сторону страницы (перенос и возврат каретки).

Ответ

После щелчка по кнопке приложения «Вычислить» появится окно ввода

После ввода значений Х и У в текстовых окнах появится число

Лабораторная работа №7

Создать приложение: «Использование процедуры – функции»

Решение:

Расставим имена объектов на эскизе экранной формы.

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

Dim n, i As Integer

Dim x() As Single

Private Sub Command1_Click()

n = InputBox("Ввести длину массива ", , "n=")

ReDim x(n) As Single

Max = 100: Min = -100

Randomize Timer

For i = 1 To n

x(i) = Int(Rnd * (Max - Min) - Max)

Next

End Sub

Private Sub Command10_Click()

Command8.Caption = "Найти Max"

End Sub

Private Sub Command11_Click()

s = 0

For i = 1 To n

If x(i) < 0 Then s = s + 1

Next

Text2.Text = "s = " & Str(s)

End Sub

Private Sub Command12_Click()

Text2.Text = " "

End Sub

Private Sub Command2_Click()

Text1.Text = " "

For i = 1 To n

Text1.Text = Text1.Text + " " + Str(x(i))

Next

End Sub

Private Sub Command3_Click()

s = 0

For i = 1 To n

If x(i) < 0 Then s = s + x(i)

Next

Command3.Caption = "Сумма =" & Str(s)

End Sub

Private Sub Command4_Click()

Text1.Text = " "

End Sub

Private Sub Command5_Click()

Command3.Caption = "Найти сумму отрицательных элементов"

End Sub

Private Sub Command6_Click()

Text1.Text = " "

End Sub

Private Sub Command7_Click()

End

End Sub

Private Sub Command8_Click()

Max = x(1)

For i = 2 To n

If x(i) > Max Then Max = x(i)

Next

Command8.Caption = "Max =" & Str(Max)

End Sub

Private Sub Command9_Click()

m:

f = 0

For i = 1 To n - 1

If x(i) > x(i + 1) Then p = x(i): x(i) = x(i + 1): x(i + 1) = p: f = 1

Next

Text1.Text = " "

If f = 1 Then GoTo m

For i = 1 To n

Text1.Text = Text1.Text + " " + Str(x(i))

Next

End Sub

Ответ

После щелчка мышью по кнопке «Ввод одномерного массива» появится окно ввода

Введем длину массива (число 35) и щелкнем кнопку « Вывод массива в текстовом окне», после чего в этом окне появится массив чисел

Теперь мы можем выполнить любую из предложенных на кнопках операций, например, нахождение суммы отрицательных элементов массива. Для этого необходимо щелкнуть соответствующую кнопку на форме и получим результат

Вывод:

Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи