seleziona9

selezione di istruzioni e chiamata di procedura con K e Select Case
elaborazione dati numerici e stringa
codificati da programma, assegnati a label, inseriti da tastiera
notare le doppie parentesi((q)) o la sigla val(q) per passare valori a procedure

Private Sub CommandButton1_Click()
Dim a, b, k As Integer ' inserire valori in textbox1,2,3
Dim n1, n2 As Integer ' inserire valori in label1,2
Dim c, d, e As Integer ' assegnare valori a variabili in codice
Dim s1, s2 As String ' assegnare testo a variabili in codice
Rem valori assegnati a variabili da programma
c = 10
d = 20
e = 30
n1 = Label1.Caption
n2 = Label2.Caption
s1 = "testo1 stringa"
s2 = "testo2 stringa"
Rem valoiri assegnati a variabili da tastiera
a = TextBox1.Value
b = TextBox2.Value
k = TextBox3.Value
Rem esegue operazioni su istruzioni seguenti
If k = 1 Then
ListBox1.AddItem (a * b)
ListBox1.AddItem (s1 & " " & s2)
ListBox1.AddItem (c + d + e)
ListBox1.AddItem (n1 * n2)
End If
If k = 2 Then
ListBox1.AddItem (a * b)
End If
If k = 3 Then
ListBox1.AddItem (s1 & " " & s2)
End If
Rem esegue chiamata di procedura
Select Case k
Case 4
Call esegue((c), (d))
Case 5
Call esegue((n1), (n2))
Case 6
Call esegue((a), (b))
Case 7
Call esegue(Val(a), Val(b))
Case 8
Call esegue(Val(n1), Val(n2))
Case 9
Call esegue2((s1), (s2))
End Select
End Sub

Private Sub esegue(x As Integer, y As Integer)
Dim calcola As Integer
calcola = x * y
ListBox1.AddItem (calcola)
End Sub

Private Sub esegue2(x As String, y As String)
Dim calcola As String
calcola = x + y
ListBox1.AddItem (calcola)
End Sub

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

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

vedi seleziona9.ppt