Kód: Vybrať všetko
Private Sub Command1_Click()
Dim x As Integer
Dim total As Long
total = CLng(Text1.Text)
For x = Int(Text1.Text) - 1 To 2 Step -1
total = total * x
Next
Text2.Text = total
End SubVISUAL BASIC 6, potrebujem pomoct, faktorialy, mam skript
-
tom1597530
Zablokovaný
- Príspevky: 170
- Registrovaný: 18 okt 2008, 14:28
VISUAL BASIC 6, potrebujem pomoct, faktorialy, mam skript
Dobrý deň. Ak mám tento skript:
No a keď dám do textboxu vacsie cislo ako 12, tak mi vypise error: Owerflow. Ale ako to mozem spravit tak, aby to povolilo aj vacsie cisla ako 12. Prosim si uz len skripty. Dakujem