Разработать информационную технологию вычисления предела последовательности - VB

Формулировка задачи:

Помогите пожалуйста с решением вот этих заданий: 1. Разработать информационную технологию, позволяющую исследовать изменение значений угла между двумя прямыми, заданными уравнениями в общем виде, при изменении коэффициента А1 от начального значения А10 до конечного значения А1k с шагом A1 и коэффициента B2 от начального значения B20 до конечного значения B2k с шагом B2. Значения коэффициентов В1 и А2 не изменяются. Внешний цикл – с постусловием, внутренний цикл – с предусловием. Для отладки принять: А10 = 17, А1k = 21, A1 = 2; B20 = 0, B2k = 10, B2 = 5. 2. Разработать информационную технологию вычисления предела последовательности с точностью до эпсилант. Начальное значение n принять равным 1.

Решение задачи: «Разработать информационную технологию вычисления предела последовательности»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim n As Single, f1 As Single, f2 As Single
e = Val(Text1.Text)
n = 1
f1 = (n + 1) / n
n = 2
f2 = (n + 1) / n
Do
f1 = f2
n = n + 1
f2 = (n + 1) / n
Loop While f1 - f2 >= e
MsgBox "Ответ с точностью до " & e & Chr(10) & "равен   " & f1, 64, "ОТВЕТ"
End Sub