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
Media Scolastica - Media.frm

Media.frm

 Caricato da: Roberto VB
Scarica il programma completo

  1. Option Explicit
  2. Dim iQuantità As Integer
  3. Dim iSomma As Integer
  4.  
  5. Private Sub Command1_Click()
  6. iQuantità = Text1.Text
  7. iSomma = Text2.Text
  8. lblRisultato.Caption = iSomma / iQuantità
  9. End Sub
  10.  
  11. Private Sub Command2_Click()
  12. 'Termino il programma
  13. End
  14. End Sub
  15.  
  16. Private Sub Command3_Click()
  17. Text1.Text = ""
  18. Text2.Text = ""
  19. lblRisultato.Caption = ""
  20. iQuantità = 0
  21. iSomma = 0
  22. End Sub
  23.  
  24. Private Sub Form_Unload(Cancel As Integer)
  25. MsgBox "Creato da Roberto VB - 17/4/2007", vbInformation
  26. End Sub