Çok teşekkürler manyakkedi

Kodla Büyü
Re: (YARDIM) Visual Basic 6.0 While DÖNGÜSÜ İle Faktöriyel

Private Sub Command1_Click()
Sayac = 0
Carpim = 2
Sayac = Sayac + 1
Sayac = Carpim * Sayac
Do While Sayac <= 0
Print "5!", carpim
Loop

Boyle yaptım ama hata veriyor yardim lutfen
 
Re: (YARDIM) Visual Basic 6.0 While DÖNGÜSÜ İle Faktöriyel

Dim sayac as Integer
Dim carpim as Integer
sayac = 1
carpim = 1

Do While sayac <= 5
carpim = carpim * sayac
sayac = sayac + 1
Loop
Print "5!= ", carpim
 
Geri
Üst