leggimi

come utilizzare i listati dei programmi forniti:

1-copiare il listato fornita con la pagina web
2-aprire visual basic e preparare la finestra (form)per lavorare
3-inserire gli oggetti che servono(sono indicati nel disegno se fornito,
  ma si possono riconoscere leggendo il listato:in questo caso servono
  solo tre pulsanti(commandButton con nome modificabile):attivare CODICE
4-inserire negli oggetti(pulsanti) le istruzioni presenti nel listato
  osservando la corretta attribuzione
5-copiare le istruzioni delle sub,anche una dopo l'altra
6-attivare con ESEGUI:dovrebbe funzionare...
NOTA:in modo più semplice:dalla finestra di lavoro,una volta inseriti
gli oggetti(o anche prima),passare a CODICE:cancellare quanto appare
nella area di lavoro e incollare il listato completo:poi tornare a 
OGGETTO e attivare con ESEGUI.

Private Sub provax(a As Integer, b As Integer, c As Integer)
Dim totale As Integer
If (a > 0) And (b > 0) And (c > 0) Then
 totale = a + b + c
 MsgBox ("somma=" & totale)
 Else
 MsgBox ("almeno un numero minore di 0=") & a + b + c
 End If
End Sub

Private Sub CommandButton1_Click()
Call provax(1, 2, 3)
Call provax(0, 1, 2)
Call provax(1, 2, -6)
End Sub

Private Sub provay(a As Integer, b As Integer, c As Integer)
Dim totale As Integer
If (a > 0) And (b > 0) And (c > 0) Then
 totale = a * b * c
 MsgBox ("prodotto=" & totale)
 Else
 MsgBox ("almeno un numero minore o uguale di 0=") & a * b * c
 End If
End Sub

Private Sub CommandButton2_Click()
Call provay(1, 2, 10)
Call provay(0, 2, 8)
End Sub

Private Sub provaz(a As Integer, b As Integer, c As Integer)
Dim totale As Integer
If ((a > 0) And (b > 0)) Or (c < 0) Then
 totale = a + b + c
 MsgBox ("somma=" & totale)
 Else
 MsgBox ("almeno un numero minore di 0")
 End If
End Sub

Private Sub CommandButton3_Click()
Call provaz(0, -2, -4)
Call provaz(-3, 4, 2)
End Sub

ritorna