Примеры выполнения программ на VBA
Вычислить где
Cоставить блок-схему и программу алгоритма линейной структуры. Создать интерфейс пользователя на листе Excel.
• На листе Excel (см. рисунок) для создания интерфейса пользователя разместить элементы управления: надпись x=; поле Text. Box 1 для ввода значения x; надпись z=; поле Text. Box 2 для вывода значения z. Кроме того, на лист Excel поместить кнопку Command. Button 1 с надписью Вычислить и написать процедуру для вычисления указанных функций.
Щёлкнуть 2 раза по кнопке вычислить. Откроется окно редактора. В редакторе VBA автоматически появится строки Private Sub Command. Button 1_Click() End Sub Между этими строками нужно набрать текст программы.
Text. Box 1 Label 1 Command Button 1 Label 2 Text. Box 2
Private Sub Command. Button 1_Click() Dim y, a, b, x, z As Single x = Text. Box 1. Value b = 3 + 2 * x ^ (1 / 3) y = (b * x^ 2 + Sin (b) ^ 3) / (b + x) a = Log (Abs ( 1. 4 – x)) / Log(10) + Tan(b*y) z = y ^ (2 / 3)*Cos(x * y) ^ 2 – Exp(Sqr(Abs(a ^ 2 – 1. 3))) Text. Box 2. Text = Format(z, ” 0. 00000”) End Sub
Алгоритм разветвляющейся структуры Вычислить , где
Cоставить блок-схему и программу алгоритма разветвляющейся структуры. Создать интерфейс пользователя на листе Excel.
• Добавить необходимые элементы управления, используя панель элементов (см. рисунок): надпись y=; поле Text. Box 1 для вывода значения y; кнопку Command. Button 1 с надписью Вычислить.
Private Sub Command. Button 1_Click() Dim y, a, b, c, d As Single b = 3. 7 a = 4. 6 * Exp(-Sqr(b)) If a*b >sin(a) Then y = 0. 65 * Cos(a)^3 - Atn(b^2) Else. If a*b = sin(a) Then y = 3 * a * b + Tan(b) Else y = Log(Abs(a^2 – b^2)) End If Text. Box 1. Text = Format(y, ” 0. 00000”) End Sub
Циклические структуры Cоставить блок-схему и программу алгоритма циклической структуры. Создать интерфейс пользователя на листе Excel.
Вычислить значения аргумента и функции. где
• На листе Excel разместить необходимые элементы управления: надпись X=; список List. Box 1 для вывода значений x; надпись Y=; список List. Box 2 для вывода значений y; кнопку Command. Button 1 с надписью Вычислить – см. рисунок.
Label 1 Label 2 List. Box 1 List. Box 2 Command. Button 1
Событийная процедура кнопки Вычислить. Private Sub Command. Button 1_Click() Dim x, y, a, b As Single List. Box 1. Clear List. Box 2. Clear For x=-2 To 1 Step 0. 6 a = Log(x^2) b = Sqr(Abs(x))-a If x < - 1 Then y = Cos(a+x) ^ 2 Else. If x = - 1 Then y = b *Abs(x) Else y=Exp(x - 2) End If List. Box 1. Add. Item (x) List. Box 2. Add. Item (Format(y, ” 0. 000”)) Next x End Sub
Скачать презентацию Примеры выполнения программ на VBA Вычислить где
Примеры выполнения программ на VBA.ppt