seleziona8

seleziona istruzioni mediante Select Case e ciclo For
elabora dati numerici codificati in programma o inseribili da tastiera
richiama procedure passando valori immediati o contenuti in variabili

Private Sub CommandButton1_Click()
Rem seleziona mediante Select Case e ciclo For
Rem elaborazione dati codificati da programma
Rem o inseriti da tastiera
Dim a, b, c, e, k As Integer
a = 10
b = 20
c = TextBox1.Text
d = TextBox2.Text
Rem notare la doppia parentesi per inserire valore
Rem delle variabili da passare alle procedure
For k = 1 To 4
Select Case k
Case 1
Rem passaggio per variabili
Call esegue1((a), (b))
Case 2
Rem passaggio per variabili
Call esegue2((c), (d))
Case 3
Rem passaggio per valori
Call esegue3(10, 20, 30)
Case 4
Rem passaggio per vaalori e variabile
Call esegue4(10, 20, (c))
End Select
Next k
End Sub


Sub esegue1(x As Integer, y As Integer)
Dim somma, prodotto As Integer
somma = x + y
prodotto = x * y
ListBox1.AddItem ("somma e prodotto :" & x & " " & y)
ListBox1.AddItem (somma)
ListBox1.AddItem (prodotto)
ListBox1.AddItem ("-----------")
End Sub

Sub esegue2(x As Integer, y As Integer)
Dim somma, prodotto As Integer
somma = x + y
prodotto = x * y
ListBox1.AddItem ("somma e prodotto :" & x & " " & y)
ListBox1.AddItem (somma)
ListBox1.AddItem (prodotto)
ListBox1.AddItem ("-----------")
End Sub

Sub esegue3(x As Integer, y As Integer, z As Integer)
Dim somma, prodotto As Integer
somma = x + y + z
prodotto = x * y * z
ListBox1.AddItem ("somma e prodotto :" & x & " " & y & " " & z)
ListBox1.AddItem (somma)
ListBox1.AddItem (prodotto)
ListBox1.AddItem ("-----------")
End Sub

Sub esegue4(x As Integer, y As Integer, z As Integer)
Dim somma, prodotto As Integer
somma = x + y + z
prodotto = x * y * z
ListBox1.AddItem ("somma e prodotto :" & x & " " & y & " " & z)
ListBox1.AddItem (somma)
ListBox1.AddItem (prodotto)
ListBox1.AddItem ("-----------")
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
ListBox1.Clear
End Sub

vedi seleziona8.ppt