visual basic

[zzzorik]

мне сказали написать цикличную задачу. учитель взял тетрадь и написал ето уравнение.
все.

[EUGY]

Private Sub Command1_Click()
Dim n As Integer, a, AA
a = 4
AA = 1
For n = 1 To 7
   AA = AA * (i - a ^ i)
Next
Debug.Print AA
End Sub

[zzzorik]

сегодня мьі должньі бьіли написать програму на цикличность.
ето наша первая програма на цикличность. и учительница каждому отдельно писала в тетради условие. мне написала вот ету формулу и все. а дальше делай и решай как хочешь(
другим напр. давала числа..напр от -23 до 15 и нужно бьіло написать програму,которая посчитала бьі сумму всех кратньіх на 3.

мне вот написала просто ету формулу.