intero3

esercitazione su gestione interi inseriti da tastiera con textbox
e visualizzati come somma su textbox e listbox
usando diversi formati e dimensionamento variabili
(Variant, integer)

Private Sub CommandButton1_Click()
Dim a, b, c, d, e, f, g, h, k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = a + b
TextBox3 = c
d = TextBox4
e = TextBox5
f = d + e
TextBox6 = f
g = Val(TextBox7.Text)
h = Val(TextBox8.Value)
k = g + h
TextBox9 = k
ListBox1.AddItem (c)
ListBox1.AddItem ("errato.." & f)
ListBox1.AddItem (k)
End Sub

per vedere intero3.ppt