seleziona2

chiamata di procedure per eseguire operazioni su dati numerici codificati
nel programma, usando Select Case K

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
Dim k As Integer
Rem indicare opzione per chiamata procedura
k = TextBox3.Text
Select Case k
Case 1
Call somma(2, 3)
Case 2
Call prodotto(3, 4)
Case 3
Call quadrato(2)
Case 4
Call cubo(2)
End Select
End Sub

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


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

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

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

Private Sub CommandButton2_Click()
TextBox3 = ""
End Sub

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

vedi seleziona2.ppt