Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Fattoriale - Form1.frm

Form1.frm

Caricato da:
Scarica il programma completo

  1. Private Sub Command1_Click()
  2. Dim n As Integer
  3. Dim fatt As Integer
  4. fatt = 1
  5. n = Val(InputBox("Inserisci il numero"))
  6. i = n
  7. While i > 1
  8. fatt = fatt * i
  9. i = i - 1
  10. Wend
  11. Text2 = fatt
  12. End Sub