variante4

i numeri inseriti in textbox vengono considerati tipo Variant e nella somma con + come stringhe e non numeri
con altri operatori * / - come numeri : usando Val si ottengono valori numerici

Private Sub CommandButton1_Click()
Rem i numeri inseriti in textbox vengono considerati tipo Variant
Rem e nella somma con + come stringhe e non numeri
Rem con altri operatori * / - come numeri
Rem usando Val si ottengono valori numerici
Const ke = " esatto "
Const kn = " errato "

rem assegnazione di tipo
Dim a, b, c, d, e, f As Integer
Dim x, y, sommaxy As Integer
Dim somma1, somma2, somma3, prodotto1, prodotto2, prodotto3 As Integer
a = TextBox1.Text 'considerato Variant, stringa con +, numero con *
b = TextBox2.Text 'considerato Variant,stringa con +, numero con *
c = Val(TextBox3.Value) 'trasforma in numero anche per +
d = Val(TextBox4.Value) 'traforma in numero anche per +
e = Val(TextBox5.Text) 'trasforma in numero anche per +
f = Val(TextBox6.Text) 'trasforma in numero anche per +
somma1 = a + b
somma2 = c + d
somma3 = e + f
prodotto1 = a * b
prodotto2 = c * d
prodotto3 = e * f
x = 10
y = 5
sommaxy = x + y
ListBox1.AddItem (kn & somma1)
ListBox1.AddItem (ke & prodotto1)
ListBox1.AddItem ("---------------")
ListBox1.AddItem (ke & somma2)
ListBox1.AddItem (ke & prodotto2)
ListBox1.AddItem ("---------------")
ListBox1.AddItem (ke & somma3)
ListBox1.AddItem (ke & prodotto3)
ListBox1.AddItem ("---------------")
ListBox1.AddItem ("10+5 " & sommaxy)
ListBox1.AddItem ("---------------")

End Sub



Private Sub CommandButton2_Click()
Rem i numeri inseriti in textbox vengono considerati tipo Variant
Rem e nella somma con + come stringhe e non numeri
Rem con altri operatori * / - come numeri
Rem usando Val si ottengono valori numerici
Const ke = " esatto "
Const kn = " errato "

rem senza assegnare tipo
Dim a, b, c, d, e, f
Dim x, y, sommaxy
Dim somma1, somma2, somma3, prodotto1, prodotto2, prodotto3 As Integer
a = TextBox1.Text 'considerato Variant, stringa con +, numero con *
b = TextBox2.Text 'considerato Variant,stringa con +, numero con *
c = Val(TextBox3.Value) 'trasforma in numero anche per +
d = Val(TextBox4.Value) 'traforma in numero anche per +
e = Val(TextBox5.Text) 'trasforma in numero anche per +
f = Val(TextBox6.Text) 'trasforma in numero anche per +
somma1 = a + b
somma2 = c + d
somma3 = e + f
prodotto1 = a * b
prodotto2 = c * d
prodotto3 = e * f
x = 10
y = 5
sommaxy = x + y
ListBox1.AddItem (kn & somma1)
ListBox1.AddItem (ke & prodotto1)
ListBox1.AddItem ("---------------")
ListBox1.AddItem (ke & somma2)
ListBox1.AddItem (ke & prodotto2)
ListBox1.AddItem ("---------------")
ListBox1.AddItem (ke & somma3)
ListBox1.AddItem (ke & prodotto3)
ListBox1.AddItem ("---------------")
ListBox1.AddItem ("10+5 " & sommaxy)
ListBox1.AddItem ("---------------")

End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

vedi variante4.ppt