seleziona1

esempio di selezione multipla con Select Case k e chiamata di procedure
per eseguire operazioni :somma, prodotto, quadrato, cubo
su numeri inseriti da tastiera

Private Sub CommandButton1_Click()
Rem non controllati i valori inseriti
Rem usare interi piccoli come indicato
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
Case 2
Call prodotto
Case 3
Call quadrato
Case 4
Call cubo
End Select

End Sub

Private Sub somma()
Dim somma, a, b As Integer
a = TextBox1.Text
b = TextBox2.Text
somma = a + b
ListBox1.AddItem ("somma = " & somma)
End Sub


Private Sub prodotto()
Dim prodotto, a, b As Integer
a = TextBox1.Text
b = TextBox2.Text
prodotto = a * b
ListBox1.AddItem ("prodotto= " & prodotto)
End Sub

Private Sub quadrato()
Dim quadrato, a As Integer
a = TextBox1.Text
quadrato = a * a
ListBox1.AddItem ("quadrato= " & quadrato)
End Sub

Private Sub cubo()
Dim cubo, a As Integer
a = TextBox1.Text
cubo = a * a * a
ListBox1.AddItem ("cubo = " & cubo)
End Sub

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

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

vedi seleziona1.ppt