План работы

1. Составить программу приветствия (строковые функции).

2. Даны два числа. Найти сумму этих чисел.

3. Даны две стороны прямоугольника. Найти периметр прямоугольника.

4. Составить программу расчета функции y = 5x² + 10x + 2 при любых допустимых значениях x.

5. Составить программу расчета функции y = 14x⁴ - 5х³ + 11x - 17 при любых допустимых значениях x.

6. Составить программу расчета функции Z = x³ – 2,25xy + 1,78x² – 12,5y + 1 при любых допустимых значениях x и y.

7. Дан радиус круга. Составить программу расчета площади круга при любых допустимых значения радиуса круга

8. Вычислить z = x³ - 2,15xy + 1,67x² – 9,5y + 1.

Технология работы

1. Запустить одним из известных способов редактор Visual Basic for Application.

2. Записать в тетради постановку задачи и алгоритм ее решения в виде блок-схемы.

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

4. Записать программу решения задачи в тетрадь.

Пример оформления работы

Программа на языке Visual Basic for Application

Задача № 8.

Sub prog8()

Постановка задачи Dim x, y, z As Single

Дано: X, Y x= Csng(InputBox("Введите х =”, "Ввод переменной")) y= Csng(InputBox("Введите y =”, "Ввод переменной"))

Найти: Z Z = x^3 – 2.15*x*y + 1.67*x^2 – 9.5*y + 1

Связь: MsgBox("Значение функции z=" + CStr(z))

z = x³ - 2,15xy + 1,67x² – 9,5y + 1 End Sub

Ограничения: нет

Алгоритм

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Работа со строковыми переменными

Задача № 1. Ваше имя.

Программа на VB for Application:

Sub prog1()

Dim Yourname As String

Yourname = InputBox("Как тебя зовут?")

MsgBox(«Я рада приветствовать» + CStr(Yourname))

End Sub

Рис. 1

Линейные структуры

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Работа с числовыми переменными

Задача № 2. Найти сумму двух чисел.

Постановка задачи.

Дано: a, b - числа.

Найти: S – сумму чисел а и b.

Связь: S= a+ b.

Программа на VB for Application:

Sub prog2()

Dim a, b, S As Integer

a = Cint(InputBox("а=", " Ввод числа а"))

b = Cint(InputBox("b=", " Ввод числа b"))

S

Рис. 2

= a+ b

MsgBox("Значение S =" + CStr(S))

End Sub

Примечание. В строках а =… и в =… первая пара кавычек – текст в окне, вторая пара кавычек – название окна.

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 3. Найти периметр прямоугольника.

Постановка задачи.

Дано: a, b –стороны прямоугольника.

Найти: P – периметр прямоугольника.

Связь: P= (a+ b)2.

Программа на VB for Application:

Sub prog3()

Dim a, b, P As Integer

a

Рис. 3

= Cint(InputBox("Длина стороны а=", "Ввод длины стороны"))

b = Cint(InputBox("Длина стороны b=", "Ввод длины стороны"))

Р= (a+ b)*2

MsgBox("Периметр прямоугольника Р=" + CStr(Р))

End Sub

Составить блок-схему алгоритма и программу на языке Visual Basic for Application

Задача № 4. Вычислить y = 5x² + 10x + 2.

Постановка задачи.

Дано:x.

Найти:y.

Связь: y = 5*x^2 + 10*x + 2.

Программа на VB for Application:

Sub prog4()

Dim x, y As Integer

x= Cint(InputBox("Введите значение х =”, "Ввод переменной"))

y = 5*x^2 + 10*x + 2

M

Рис. 4

sgBox("Значение функции y =" + CStr(y))

End Sub