numerica33

esercitazione a livello didattico con variabili indicizzate tipo stringa e visual basic
su powerpoint:indicizzazione 12 animali, assegnazione contenuto a variabili indicizzate
in maniera diretta o con ciclo For; visualizzazione singoli contenuti
o lista completa animali ;chiamata di Funzione: simile a numerica3.htm (cambia da mesi a animali)

Private Function nomeanimale(numero As Integer)
Rem assegna animale a numeri
Dim animale(12) As String
Dim x As Integer
animale(1) = "spugna" & " poriferi"
animale(2) = "corallo" & " celenterati"
animale(3) = "farfalla" & " insetti"
animale(4) = "merlo" & " uccelli"
animale(5) = "rana" & " anfibi"
animale(6) = "vipera" & " rettili"
animale(7) = "canarino" & " uccelli"
animale(8) = "gambero" & " artropodi"
animale(9) = "leone" & " mammiferi"
animale(10) = "leopardo" & " mammiferi"
animale(11) = "tartaruga" & " rettili"
animale(12) = "orbettino" & " rettili"
nomeanimale = animale(numero)
TextBox1.SetFocus
End Function

Private Sub CommandButton1_Click()
Rem stampa tutti gli animali
Dim x As Integer
Dim animale(12) As String
animale(1) = "spugna" & " poriferi"
animale(2) = "corallo" & " celenterati"
animale(3) = "farfalla" & " insetti"
animale(4) = "merlo" & " uccelli"
animale(5) = "rana" & " anfibi"
animale(6) = "vipera" & " rettili"
animale(7) = "canarino" & " uccelli"
animale(8) = "gambero" & " artropodi"
animale(9) = "leone" & " mammiferi"
animale(10) = "leopardo" & " mammiferi"
animale(11) = "tartaruga" & " rettili"
animale(12) = "orbettino" & " rettili"
Dim amimale(12) As String
For x = 1 To 12
ListBox1.AddItem (animale(x))
Next x
ListBox1.AddItem ("---------------------")
End Sub

Private Sub CommandButton2_Click()
Rem stampa animale richiesto
Label8 = nomeanimale(TextBox1)
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub

vedi numerica33.ppt