Binom Hesaplama?

[maxcoder]

amacım bu formulu excel vba da yazmak şöyle bir şey denedim hata nerde acaba
------------
Private Sub CommandButton1_Click()
n = Val(TextBox1.Text)
x = Val(TextBox2.Text)
p = Val(TextBox3.Text)
q = 1 - Val(TextBox3.Text)
n = 1
x = 1
For i = 1 To m
For j = 1 To k
For t = 1 To a
n = n * i

x = x * t
Next t
Next j
Next i
s = n / x
k = (p ^ n) * (q) ^ (n - x)
l = s * k
MsgBox "İşlem Sonucunuz:" & l, vbInformation, "Excel Team"
End Sub
----------------
ekrana sürekli textbox3 ün degerini yazıyo.

iyi günler

 

[danersin]

Bu döngüde kullandığınız m,k,a,t,j,i değerlerini başka bir proceduredenmi alıyor? Keşke dosya ekleseydiniz.

For i = 1 To m
For j = 1 To k
For t = 1 To a
n = n * i

x = x * t
Next t
Next j
Next i