variante1

gestione variabili,tipo,contenuto
comportamento variabile con operatore + (somma)
che può considerare i dati da elaborare come stringhe o numeri
necessario indicare con Val il valore come numerico
dichiarare come variabili con Dim a,b,c,somma
assegnare tipo di variabile con As Integer ( se non assegnato, automatico tipo Variant)
assegnare contenuto a variabili con nomevariabile=valore

Private Sub CommandButton1_Click()
Rem gestione variabili,tipo,contenuto
Rem comportamento variabile con operatore + (somma)
Rem che può considerare i dati da elaborare come stringhe o numeri
Rem necessario indicare con Val il valore come numerico
Rem dichiarare come variabili con Dim a,b,c,somma
Rem assegnare tipo di variabile con As Integer
Rem assegnare contenuto a variabili con nomevariabile=valore
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza As Integer
a = 50
b = 20
c = 10
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton2_Click()
Rem senza dichiarazione di tipo
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza
a = 50
b = 20
c = 10
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton3_Click()
Rem senza dichiarazione di variabile e tipo
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
somma1 = 50 + 20 + 10
prodotto1 = 50 * 20 * 10
differenza1 = 50 - 20 - 10
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma1)
ListBox1.AddItem (p & prodotto1)
ListBox1.AddItem (d & differenza1)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton4_Click()
Rem dichiarazione di variabile e di tipo
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza As Variant
a = 50
b = 20
c = 10
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
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
Label1.Caption = 50
Label2.Caption = 20
Label3.Caption = 10
a = Label1.Caption
b = Label2.Caption
c = Label3.Caption
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
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
Label1.Caption = 50
Label2.Caption = 20
Label3.Caption = 10
a = Val(Label1.Caption)
b = Val(Label2.Caption)
c = Val(Label3.Caption)
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton7_Click()
Rem dichiarazione di variabili e non di tipo
Rem automaticamente assegnato tipo Variant
Rem usando Val i dati vengono considerato come numeri
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza
Label1.Caption = 50
Label2.Caption = 20
Label3.Caption = 10
a = Val(Label1.Caption)
b = Val(Label2.Caption)
c = Val(Label3.Caption)
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

Private Sub CommandButton8_Click()
Rem dichiarazione di variabili di tipo Variant
Rem usando Val i dati vengono considerato come numeri
Const k = "-----"
Const s = " somma "
Const p = " prodotto "
Const d = " differenza "
Dim a, b, c, somma, prodotto, differenza
Label1.Caption = 50
Label2.Caption = 20
Label3.Caption = 10
a = Val(Label1.Caption)
b = Val(Label2.Caption)
c = Val(Label3.Caption)
somma = a + b + c
prodotto = a * b * c
differenza = a - b - c
ListBox1.AddItem ("50,20,10")
ListBox1.AddItem (s & somma)
ListBox1.AddItem (p & prodotto)
ListBox1.AddItem (d & differenza)
ListBox1.AddItem (k)
End Sub

vedi variante1.ppt