Найти сумму ряда - VB (60426)

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

Добрый день! Прошу помочь с решением следующей задачи: Дано число X типа Single . Необходимо разработать фрагмент программы вычисления следующего выражения: 5X^4 – 7X^3 + 3X^2 – 2X + 6 Для вычисления в данном алгоритме используйте цикл и только один цикл.

Решение задачи: «Найти сумму ряда»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Module Module1
 
    Sub Main()
        Dim sngRes, sngX As Single
        Dim intS, intC, intN As Integer 'задаем знак, коэффициент и степень
        sngRes = 0
        sngX = InputBox("Ждем от вас число")
        intS = 1 'чередуем знака -/+
        intN = 5 'Переменная степени (end-start)\step+1
 
        For intC = 2 To 6 'Цикл для множителя
            intN = intN - 1 'Степень уменьшается
            sngRes = sngRes + intS * intC * sngX ^ intN 'Формула для каждого слагаемого в выражении
            intS = -intS
 
        Next
        MsgBox(sngRes)
 
 
    End Sub
 
End Module