[Visual Basic] Ciagle wychodzi zero

[sleeper_s7 0]

Mialem dzisiaj spr z visual basica, z petli for.

Na sprawdzian wchodzilem z przekonaniem, ze wszystko umiem, bo w domu nie mialem z tym zadnych problemow. Jednak moje zadanie mnie przeroslo...

 

Ten programik ma na podstawie podanej liczby n obliczyc sume n wyrazow ciagu

a(n)= (i + 1) \ ((1 + i + i ^ 2) ^ 2)

 

Doszedlem do:

 

Dim n, i As Integer

Dim liczba, ciag As Single

Private Sub cmd1_Click()

n = CInt(txt1.Text)

ciag = 0

i = 1

Do While i <= n

liczba = (i + 1) \ ((1 + i + i ^ 2) ^ 2)

ciag = ciag + liczba

i = i + 1

Loop

lbl1.Caption = CSng(ciag)

End Sub

 

Nie wiem co zrobic... wynik zawsze wychodzi 0

 

Co zrobic?

[mar-81 0]

a(n)= (i + 1) \ ((1 + i + i ^ 2) ^ 2)

Znak dzielenia, to chyba się zapisuje "/", a nie "\"

[sleeper_s7 0]

lol, w szkole zmienialem ten znak dzielenia i ciagle bylo zle, a teraz go zmienilem i jest ok

przez taka brednie znowu poprawka...