seleziona4

richiamo di procedure per eseguire operazioni su valori assegnati da codice
uso di Select Case in modo vario, per valori di K singoli o associati in gruppi

Private Sub CommandButton1_Click()
Rem assegnati valori su quali operare nelle procedure
Rem di somma, prodotto, quadrato, cubo
Rem uso di procedure richiamate con Select case k
Rem osservare vario modo di richiamare procedure in funzione di k
Dim k As Integer
Rem indicare opzione per chiamata procedura
k = TextBox3.Text
Select Case k
Case 1, 2
Rem chiama somma per 1 , 2
Call somma(2, 3, k)
Case 3
Rem chiama prodotto per 3
Call prodotto(3, 4, k)
Case 4
Rem chiama quadrato per 4
Call quadrato(2, k)
Case 5, 6, 7
Rem chiama cubo per 5,6,7
Call cubo(2, k)
Case 8 To 12
Rem chiama differenza per k tra 8 e 12
Call differenza(30, 5, k)
Case Is > 20
Rem chiama prodotto1 per k > 20
Call prodotto1(20, 30, k)
Case 13, 14 To 17
Rem chiama prodotto2 per k=13 e per k tra 14 e 17
Call prodotto2(4, 10, k)
Case 19
Rem chiama linea per k=19
Call linea
End Select
End Sub

Private Sub somma(x As Integer, y As Integer, q As Integer)
Dim somma As Integer
somma = x + y
ListBox1.AddItem (q & " somma: " & x & " + " & y & " = " & somma)
End Sub


Private Sub prodotto(x As Integer, y As Integer, q As Integer)
Dim prodotto As Integer
prodotto = x * y
ListBox1.AddItem (q & " prodotto: " & x & " * " & y & " = " & prodotto)
End Sub

Private Sub quadrato(x As Integer, q As Integer)
Dim quadrato As Integer
quadrato = x * x
ListBox1.AddItem (q & " quadrato: " & x & " * " & x & " = " & quadrato)
End Sub

Private Sub cubo(x As Integer, q As Integer)
Dim cubo As Integer
cubo = x * x * x
ListBox1.AddItem (q & " cubo: " & x & " * " & x & " * " & x & " = " & cubo)
End Sub

Private Sub differenza(x As Integer, y As Integer, q As Integer)
Dim differenza As Integer
differenza = x - y
ListBox1.AddItem (q & " differenza: " & x & " - " & y & " = " & differenza)
End Sub

Private Sub prodotto1(x As Integer, y As Integer, q As Integer)
Dim prodotto As Integer
prodotto = x * y
ListBox1.AddItem (q & " prodotto: " & x & " * " & y & " = " & prodotto)
End Sub

Private Sub prodotto2(x As Integer, y As Integer, q As Integer)
Dim prodotto As Integer
prodotto = x * y
ListBox1.AddItem (q & " prodotto: " & x & " * " & y & " = " & prodotto)
End Sub

Private Sub linea()
ListBox1.AddItem ("----------")
End Sub
Private Sub CommandButton2_Click()
TextBox3 = ""
End Sub

Private Sub CommandButton3_Click()
TextBox3 = ""
ListBox1.Clear
End Sub

vedi seleziona4.ppt