costanti

esercitazione didattica a livello elementare per descrivere e applicare costanti
con visual basic su powerpoint

Private Sub commandbutton1_Click()
Rem sintassi per valori costanti
rem assegna nome, tipo, valore a costanti:due modi
Rem const nomecostante as tipo = valorecostante
Const k As Integer = 5
Const g As Double = 3.14
Rem const nomecostante = valore costante
Const h = 10
Const s = "stringa testo"
Const t = "-------------------"
Const prodotto = "stampa prodotto "
Const quadrato = "stampa quadrato "
Const cubo = "stampa cubo "
Rem visualizza costanti
ListBox1.AddItem ("nome costante e suo valore")
ListBox1.AddItem ("k=" & k)
ListBox1.AddItem ("g=" & g)
ListBox1.AddItem ("h=" & h)
ListBox1.AddItem ("s=" & s)
ListBox1.AddItem ("prodotto=" & prodotto)
ListBox1.AddItem ("quadrato=" & quadrato)
ListBox1.AddItem ("cubo=" & cubo)
ListBox1.AddItem ("-----------------=" & t)
Rem uso di costante
ListBox1.AddItem (t)
ListBox1.AddItem (" 10*k " & prodotto & 10 * k)
ListBox1.AddItem (" 10*10 " & quadrato & 10 * 10)
ListBox1.AddItem (" 10*10*10 " & cubo & 10 * 10 * 10)
ListBox1.AddItem ("100*g " & prodotto & 100 * g)
ListBox1.AddItem ("10*h " & prodotto & 10 * h)
ListBox1.AddItem (s & " prova con costanti stringa")
ListBox1.AddItem (t)

End Sub

vedi costante.ppt