variante2

considerazioni sull'operatore somma + , con dati numerici e stringa
se i dati numerici sono inseriti in variabili tipo numerico (Integer..) direttamente
da codice (a=5, b=6) ,vengono trattati come numerici (somma=a+b= 11)
se invece vengono ricavati da label, textbox ,verranno trattati come stringhe
a=textbox1.text (5) , b=textbox2.text (6) >>> somma=a+b >>> 56 e non 11
si deve usare somma= Val(a)+Val(b) per ottenere somma numerica=11

Private Sub CommandButton1_Click()
Rem dati tipo stringa
Rem non riconoscono operatore * - ma solo +
Const k = "-----"
Const s = " somma "
Dim a, b, c, somma As String
a = " testo1 "
b = " testo2 "
c = " testo3 "
somma = a + b + c
ListBox1.AddItem (a & " " & b & " " & c)
ListBox1.AddItem (s & somma)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton2_Click()
Rem senza dichiarazione di tipo
Const k = "-----"
Const s = " somma "
Dim a, b, c, somma
a = " testo1 "
b = " testo2 "
c = " testo3 "
somma = a + b + c
ListBox1.AddItem (a & " " & b & " " & c)
ListBox1.AddItem (s & somma)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton3_Click()
Rem senza dichiarazione di variabile e tipo
Const k = "-----"
Const s = " somma "
somma1 = "testo1 " + " testo2 " + "testo3"
ListBox1.AddItem ("testo1+testo2+testo3")
ListBox1.AddItem (s & somma1)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton4_Click()
Rem dichiarazione di variabile e di tipo
Const k = "-----"
Const s = " somma "
Dim a, b, c, somma As Variant
a = " testo1 "
b = " testo2 "
c = " testo3 "
somma = a + b + c

ListBox1.AddItem (a & " " & b & " " & c)
ListBox1.AddItem (s & somma)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton5_Click()
Rem dichiarazione di variabile e di tipo
Rem con somma i dati vengono considerati come stringhe
Rem il segno + somma stringhe e numeri
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza As Integer
Rem inserimento dati da tastiera textbox
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem (a & " " & b & " " & c)
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton6_Click()
Rem dichiarazione di variabili e di tipo
Rem usando Val i dati vengono considerato come numeri anche con somma
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza As Integer
Rem inserimento dati da tastiera textbox
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem (a & " " & b & " " & c)
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

vedi variante2.ppt