intero1

esercitazione didattica per sintassi con visual basic e uso di formati diversi
per gestione numeri inseriti da tastiera in textbox e visualizzati in listbox
operazioni eseguite:somma, prodotto

Private Sub CommandButton1_Click()
Rem variabile con textbox.text tipo Variant
Rem inserimento dati da tastiera con textbox
Const linea = "------------------"
Dim a, b As Integer
Dim c, d As Integer
Dim e, f As Integer
Dim g, h As Integer
Dim somma1, somma2, prodotto, prodotto2, somma3, prodotto3 As Integer
Dim somma4, prodotto4 As Integer
Dim testo As String
Dim s, t As String
a = TextBox1.Text
b = TextBox2.Text
somma1 = a + b
prodotto1 = a * b
c = TextBox3.Text
d = TextBox4.Text
somma2 = c + d
prodotto2 = c * d
e = TextBox5.Value
f = TextBox6.Value
somma3 = e + f
prodotto3 = e * f
s = TextBox7.Text
t = TextBox8.Text
testo = s + t
g = Val(TextBox9.Text)
h = Val(TextBox10.Text)
somma4 = g + h
prodotto4 = g * h
ListBox1.AddItem (a + b)
ListBox1.AddItem (a * b)
ListBox1.AddItem (somma1)
ListBox1.AddItem (prodotto1)
ListBox1.AddItem (linea)
ListBox1.AddItem (c + d)
ListBox1.AddItem (c * d)
ListBox1.AddItem (somma2)
ListBox1.AddItem (prodotto2)
ListBox1.AddItem (linea)
ListBox1.AddItem (e + f)
ListBox1.AddItem (e * f)
ListBox1.AddItem (somma3)
ListBox1.AddItem (prodotto3)
ListBox1.AddItem (linea)
ListBox1.AddItem (testo)
ListBox1.AddItem (linea)
ListBox1.AddItem (somma4)
ListBox1.AddItem (prodotto4)
ListBox1.AddItem (linea)
End Sub

per attivazione vedi intero1.ppt

altri esempi intero2.htm