Matematikten hiç anlamam, yaptım sanırım. Birbiriyle çarpışıyolar :D Function Faktoriyel As Double For carpilacaklar = 1 To x List1. AddItem carpilacaklar Next carpilacaklar sonuc = 1 For Faktoriyella = 1 To List1. ListCount - 1 sonuc = sonuc List1. List Next Faktoriyella MsgBox sonuc End Function Private Sub Form_Load Dim y, x As Integer x = Val(InputBox Faktoriyel End Sub

oncelikle herkese kolay gelsin vb6da fonksiyon yazıp çağırma olayı nasıl oluyo yada kısaca bi faktoriyel hesabı yapan bişey yazabilirmisiniz iki dakka ben boyle yapıyorum hata veriyo sorun nerde Option Explicit Function Faktoriyel As Double Dim i As Integer, sonuc As Double sonuc = 1 For i = 2 To x sonuc = sonuc i Next Faktoriyel = sonuc End Function Private Sub Form_Load Dim y, x As Integer x = Val(InputBox y = Faktoriyel MsgBox y End Sub