numerica1

esercitazione a livello didattico elementare con sintassi e applicazione variabili
numeriche con visual basic su powerpoint

Private Sub commandbutton1_Click()
Rem esempio di assegnazione contenuto a variabili numeriche
Rem mediante codice, input e output
Rem nome e tipo variabili numeriche semplici
Dim a, b, c, somma, prodotto As Integer
Rem valore assegnato a variabile da codice
a = 10
b = 20
c = 30
somma = a + b + c
prodotto = a * b * c
Rem visualizza dati in Listbox1
ListBox1.AddItem ("a=" & a)
ListBox1.AddItem ("b=" & b)
ListBox1.AddItem ("c=" & c)
ListBox1.AddItem ("somma=" & somma)
ListBox1.AddItem ("prodotto=" & prodotto)
Label1.Caption = ("somma=" & somma & " prodotto=" & prodotto)
ListBox1.AddItem ("------------------------------------------")
End Sub

Private Sub CommandButton2_Click()
Rem esempio di assegnazione contenuto a variabili numeriche
Rem mediante tastiera,input output
Rem nome e tipo variabili numeriche semplici
Dim x As Integer
Dim y, z As Long
Rem valore assegnato a variabile da utente mediante TextBox1
Rem controlla che numero sia inferiore a limite indicato 30
x = TextBox1
If x > 30 Then
MsgBox ("deve essere minore o uguale a 30:riprova")
End If
Rem assegna operazione da compiere su x
y = x * x
z = x * x * x
Rem visualizza dati Listbox1
ListBox1.AddItem ("x=" & x)
ListBox1.AddItem ("quadrato=" & y)
ListBox1.AddItem ("cubo=" & z)
ListBox1.AddItem ("--------------------------------")
End Sub

Private Sub CommandButton3_Click()
Rem esempio di assegnazione contenuto a variabili numeriche
Rem mediante codice e ciclo For-Next
Rem input e output
Rem nome e tipo variabili numeriche semplici
Dim c, cp, cq, kp, kq, p, q As Integer
Rem stampa interi da 1 a 5 passo 1 e loro quadrati
cp = 1
kp = cp + 5 'per limite iterazione
p = 1 'per step
cq = 10
kq = cq + 10
q = 2 'per step
Rem valore assegnato a variabile da ciclo for
ListBox1.AddItem ("-----------------------------")
For c = cp To kp Step p
ListBox1.AddItem (c & " " & c * c)
Next c
ListBox1.AddItem ("-----------------------------")
Rem stampa interi da 10 a 20 passo 2 e loro quadrati
For c = cq To kq Step q
ListBox1.AddItem (c & " " & c * c)
Next c
ListBox1.AddItem ("----------------------------")
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
TextBox1 = ""
Label1 = ""
End Sub

vedi numerica1.ppt