Binom Hesaplama?

Katılım
17 Mayıs 2006
Mesajlar
34

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
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
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
 
Üst