seleziona6

esegue selezione con Select Case e assegna valore a K mediante ciclo For
attiva selezione in modo singolo o per gruppi
visualizza risultati in ListBox1
inserisce valori interi da tastiera

Private Sub CommandButton1_Click()
Rem selezione istruzioni mediante Select Case e ciclo For
Rem senza chiamata di procedure o funzioni
Rem elaborando valori inseribili da tastiera
Const h = "-------------"
Dim a, b, c, k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
For k = 1 To 8
Select Case k
Case 1
Rem per k=1 esegui
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 (a + b)
ListBox1.AddItem (a * b)
ListBox1.AddItem (a + b + c)
ListBox1.AddItem (h)
Case 5 To 7
Rem per k compreso tra 5 e 7 esegui stesse operazioni
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 (a - b)
ListBox1.AddItem (a - b)
ListBox1.AddItem (h)
End Select
Next k
End Sub

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

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

vedi seleziona6.ppt