numerica3

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

Private Sub CommandButton1_Click()
Rem variabili indicizzate da 1 a 12
Rem stampa tutti i mesi
Dim x As Integer
Dim mesi(12) As String
mesi(1) = "gennaio" & " inverno"
mesi(2) = "febbraio" & " inverno"
mesi(3) = "marzo" & " inverno-primavera"
mesi(4) = "aprile" & " primavera"
mesi(5) = "maggio" & " primavera"
mesi(6) = "giugno" & " primavera ed estate"
mesi(7) = "luglio" & " estate"
mesi(8) = "agosto" & " estate"
mesi(9) = "settembre" & " estate-autunno"
mesi(10) = "ottobre" & " autunno"
mesi(11) = "novembre" & " autunno"
mesi(12) = "dicembre" & " autunno-inverno"
Rem assegna con ciclo For contenuto a variabili indicizzate vettore
Dim nomi(12) As String
For x = 1 To 12
ListBox1.AddItem (mesi(x))
Next x
ListBox1.AddItem ("----------------")
End Sub

Private Sub CommandButton2_Click()
Rem inserire numero per indicare il mese richiesto da 1 a 12
Rem stampa mese richiesto
Label2 = nomemese(TextBox1)
End Sub

Private Function nomemese(numero As Integer)
Rem assegna mesi a numeri
Dim mesi(12) As String
Dim x As Integer
mesi(1) = "gennaio" & " inverno"
mesi(2) = "febbraio" & " inverno"
mesi(3) = "marzo" & " inverno-primavera"
mesi(4) = "aprile" & " primavera"
mesi(5) = "maggio" & " primavera"
mesi(6) = "giugno" & " primavera-estate"
mesi(7) = "luglio" & " estate"
mesi(8) = "agosto" & " estate"
mesi(9) = "settembre" & " estate-autunno"
mesi(10) = "ottobre" & " autunno"
mesi(11) = "novembre" & " autunno"
mesi(12) = "dicembre" & " autunno-inverno"
nomemese = mesi(numero)
TextBox1.SetFocus
End Function

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

vedi numerica3.ppt