Пример 1. ‘ построить треугольник, если интерпретировать a, b, c

Sub условие()

Dim a, b, c

‘ Даны три числа: a, b, c. Определить, можно ли

‘ построить треугольник, если интерпретировать a, b, c

‘ как длины сторон треугольника.

a=Val(InputBox(“Введите 1 число ”))

b= Val(InputBox(“Введите 2 число ”))

c= Val(InputBox(“Введите 3 число ”))

If (a+b)>c And (a+c)>b And (b+c)>a Then

MsgBox “ треугольник построить можно”

Else

MsgBox “ треугольник построить нельзя”

End If

End Sub

При: а=8, в=5, с=4 а=10, в=5, с=4

Пример 2. Вычисление остатка

Используя функцию IsNumeric - проверки значений переменных A и B, вычислить и напечатать остаток C= A MOD B, если значение проверки условия True, иначе напечатать “Переменная не является числом”.

Sub Ostatok()

Dim A,B,C As Integer

A= Val(InputBox(“Вычисление остатка”, “Bвод A”))

B= Val(InputBox (“Вычисление остатка ”,” Bвод B”))

If IsNumeric (A) And IsNumeric (B) THEN

C=A MOD B

MsgBox ”C=A MOD B” & (Chr(13)) & (C(10)) & _

“При:” & ” A= ” & A &” B= ” & B & (Chr(13) & Chr(10)) & “Остаток:” & “ C= ” & C, _

Vbinformation,”Сегодня: ” & Date & “ Выполнила Ким.”

Else

MsgBox “Переменная не является числом”

End Sub