Вычислить сумму 10 членов ряда - VB

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

Никак не могу написать программу на Visual Basic, по причине того, что вообще ничего не понимаю, а задание скоро надо сдавать! Помогите пожалуйста! вот что только смог написать:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
X = 1.99
S = " "
F = 1
For i = 2 To 10 Step 1
F = F * i
Y = (X ^ i) / F
S = S + Str(Y) + vbNewLine
Next i
Load Form2
Form2.Show
End Sub

программа должна состоять из двух форм. Как пример: Внешний вид первой экранной формы: Внешний вид второй экранной формы:

Решение задачи: «Вычислить сумму 10 членов ряда»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function Sum(x As Double, n As Integer) As Double
    a# = x
    s# = 0
    For i% = 1 To n
        s# = s# + a#
        a# = a# * x / i%
    Next i%
    Sum# = s#
End Function
 
Sub Test()
 
    Debug.Print Sum(1, 10)
    Debug.Print Sum(1.99, 10)
 
End Sub

Оцени полезность:

12 голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы