Примеры кода VB.
1.Найти первое число Фибоначчи, превышающее m (m>1)
Sub Fbn()
Dim f As Integer, F1 As Integer, F2 As Integer 'числа Фибоначи
Dim m As Integer 'вводимое значение
Dim k As Integer
m = Val(InputBox("m-?", , 120))
If m > 1 Then
F1 = 1: F2 = 1: f = 2 'первые два числа Фибоначи
k = 2 'номер числа
Do While F2 <= m 'цикл ПОКА меньше введенного значения
k = k + 1
f = F1 + F2 'следующее число
F1 = F2: F2 = f 'запомним два последних как предпоследние
Loop 'выходим из цикла, когда число станет больше
MsgBox "F" & k & " = " & F2
Else
MsgBox "m>1 !"
End If
End Sub
2.Вычислить exp(x) путем разложения в ряд с заданной точностью
Sub z_2()
Dim S As Single,A As Single,x As Single, eps As Single
Dim f
Dim i As Integer 'счетчик
eps =0.001
x = Val((InputBox("x-?", , 0.5))
If eps > 0 Then 'проверка
S = 1 'нач. сумма и первое слагаемое
A = 1
i = 0
f = 1 'начальное значение факториала
Do 'цикл ПОКА с постусловием
i = i + 1 'переходим к следующему
A = A * x 'каждый раз считаем (увеличиваем) степень х и считаем факториал
f = f * i
S = S + A / f 'накапливаем сумму
Loop While Abs(A / f) > eps 'выходим из цикла, когда очередное слагаемое станет меньше eps
MsgBox "S=" & S
Else
MsgBox "eps>0 !"
End If
End Sub
| 