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