seleziona7

selezione opzioni con Select Case e ciclo For
chiamata di una procedura e altre istruzioni immediate

Private Sub CommandButton1_Click()
Rem selezione istruzioni mediante Select Case e ciclo For
Rem una chiamata di procedura, altre istruzioni immediate
Rem elaborando valori inseribili da tastiera
Rem notare il vario formato per inserimento interi in textbox1,2,3,4
Const h = "-------------"
Dim a, b, c, d, k As Integer
a = TextBox1.Value
b = Val(TextBox2)
c = TextBox3
d = TextBox4.Text

For k = 1 To 8
Select Case k
Case 1
Rem per k=1 esegui
ListBox1.AddItem ("case=1")
ListBox1.AddItem (a + b)
ListBox1.AddItem (a * b)
ListBox1.AddItem (h)
Case 2, 3, 4
Rem per k = 2,3 4 esegui stesse operazioni
ListBox1.AddItem ("case=2,3,4")
ListBox1.AddItem (a + b)
ListBox1.AddItem (a * b)
ListBox1.AddItem (a + b + c + d)
ListBox1.AddItem (h)
Case 5 To 7
Rem per k compreso tra 5 e 7 esegui stesse operazioni
ListBox1.AddItem ("case=5 to 7")
ListBox1.AddItem (a + b - c)
ListBox1.AddItem (a * c)
ListBox1.AddItem (a * b * c)
ListBox1.AddItem (h)
Case 8
Rem per k=8 esegui operazioni
ListBox1.AddItem ("case=8")
ListBox1.AddItem (a - b)
ListBox1.AddItem (a - b)
ListBox1.AddItem (h)
Call calcola(10, 4)
End Select
Next k
End Sub

Private Sub calcola(x As Integer, y As Integer)
Dim somma, prodotto, differenza As Integer
somma = x + y
prodotto = x * y
differenza = x - y
ListBox1.AddItem ("valori : " & x & " " & y)
ListBox1.AddItem ("somma=" & somma)
ListBox1.AddItem ("prodotto=" & prodotto)
ListBox1.AddItem ("differenza=" & differenza)

End Sub

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

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

vedi seleziona7.ppt