Вычисление интеграла в Visual Basic - VB

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

Помогите пожалуйста! Попыталась написать программку для вычисления интеграла в Visual Basic, но у меня подсчитывается только одно значение. Она не берет весь ряд значений. Я не могу понять, что я сделала не так. Помогите!! Условие: интеграл (он в программе - для Microsoft Office Excel ) Для

α= 0,1; 0,2; 0,3; … 1:

β= α+1; N = 200.

                    Листинг программы
                
 
                        
                          
                    
Sub in()
Dim a, b As Double
n = Cells(1, 4)
[B]For a = 0.1 To 1[/B]
b = a + 1
h = (b - a) / n
Next a
S = 0.1
For x = a To b Step h
S = S * Exp(1 / x) * Log(x ^ (1 / 4))
Next x
intg = S * h
Cells(5 + i, 1) = b
Cells(5 + i, 2) = intg
End Sub

Заранее спасибо!!!

Решение задачи: «Вычисление интеграла в Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub in_()
   n = Cells(1, 4)
   Cells(5, 1) = "a"
   Cells(5, 2) = "b"
   Cells(5, 3) = "Integral"
   
   For a = 0.1 To 1 Step 0.1
      b = a + 1
      
      s = 0
      h = 1 / n
      For x = a To b Step h
         s = s + Exp(1 / x) * Log(x ^ (1 / 4))
      Next x
      s=s*h
 
      i = i + 1
      
      Cells(5 + i, 1) = a
      Cells(5 + i, 2) = b
      Cells(5 + i, 3) = s
   Next a
End Sub