seleziona3

uso di Select Case con selezione multipla e chiamata di procedure
per operare su valori numerici assegnati da codice
notare diverso modo di selezionare con

Case 1,2....uguale effetto selezionando 1 o 2 : somma
Case 3......unico effetto:prodotto

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, 2
Call somma(2, 3)
Case 3
Call prodotto(3, 4)
Case 4
Call quadrato(2)
Case 5
Call cubo(2)
Case 6
Call differenza(30, 5)
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 differenza(x As Integer, y As Integer)
Dim differenza As Integer
differenza = x - y
ListBox1.AddItem ("differenza: " & x & " - " & y & " = " & differenza)
End Sub


Private Sub CommandButton2_Click()
TextBox3 = ""
End Sub

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

vedi seleziona3.ppt