КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
End Sub. VBA-3. Разветвляющиеся программыСтр 1 из 2Следующая ⇒ VBA-3. Разветвляющиеся программы Пример 1. Программа вычислений по формулам с использованием строчного условного оператора If: ; ; Sub CommandButton1_Click() Dim x As Single, y As Single, w As Single, n As Single x = Val(InputBox(«Введите x»)) n = Val(InputBox(«Введите n»)) y = Exp(-2 * x) + 1 z = Log(x) / (x + 1) If x < z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2 Msgbox (“w=” & w) End Sub Пример 2. Вычислить значение функции yдля вводимых с клавиатуры некоторых значений n и x: . Sub CommandButton1_Click() Dim x As Single, n As Single, y As Single 'Ввод исходных данных x = Val(InputBox("Введите x ")) n = Val(InputBox("Введите n")) 'Проверка условий и расчет значений If x >= 0 And n >= 0 Then y = Sqr(x) If x < 0 And n < 0 Then y = n * x + 2 MsgBox (y) 'Вывод результата End Sub Пример 3. Вычислить значение функции yдля вводимого с клавиатуры некоторого значения x: .
|