variabili di vario tipo

esercitazione didattica con visual basic su powerpoint
sintassi per variabili di vario tipo

Option Explicit

Private Sub CommandButton1_Click()
Rem variabili di vario tipo
Dim posizione As Integer
'(Asc("stringa") fornisce codice ASCI del carattere)
Lista.AddItem (Asc("A"))
'(CHR$(65) fornisce carattere codificato dal numero)
Lista.AddItem (Chr$(65))
'(RND() fornisce numero casuale inferiore a 1)
Lista.AddItem (Rnd())
'(Lcase$(stringa) trasforma tutto in minuscolo)
Lista.AddItem (LCase$("PADOVA"))
Lista.AddItem (LCase$("Verona"))
'(Ucase$(stringa) trasforma tutto in maiuscolo)
Lista.AddItem (UCase$("padova"))
Lista.AddItem (UCase$("Padova"))
'(Weekday(date) fornisce numero relativo a giorno)
'(1 domenica,2 lunedi,3 martedi ..7 sabato)
Lista.AddItem (Weekday(Date))
Lista.AddItem (Weekday(#2/25/2002#)) '(mese,giorno,anno)
'(assegnare lunedi come giorno codificato da 1 con vbMonday)
Lista.AddItem (Weekday(#2/25/2002#, vbMonday))
Lista.AddItem (Weekday(#2/25/2002#, vbSaturday))
Lista.AddItem (Weekday(Date, vbUseSystemDayOfWeek))
Lista.AddItem (Weekday(Date, vbWednesday))
'(Space$(numero) crea stringa con n spazi )
Lista.AddItem ("padova" & Space$(10) & " verona")
'(Cint(numero) arrotonda a intero successivo)
Lista.AddItem (CInt(45.67))
'(Csng(numero) arrotonda con precisione singola)
Lista.AddItem (123.456789 & " " & CSng(123.4567))
'(Date$ fornisce data corrente)
Lista.AddItem (Date$)
'(Fix(numero) fornisce parte intera del numero)
Lista.AddItem (Fix(58.75))
'(Hex$(numero) fornisce valore esadecimale del numero)
Lista.AddItem (Hex$(32))
'(Instr("stringa originaria","sottostringa") fornisce posizione
'(nella quale comincia la sottostringa
Lista.AddItem (InStr("padova", "do"))
'(Mid$("stringa1",n,"stringa2")sostituisce stringa 2 in stringa1
Dim prima As String
Dim seconda As String
prima = "maria,rosa "
Lista.AddItem (prima)
Mid$(prima, 6) = "teresa"
Lista.AddItem (prima)
'(Oct$(numero) cambia da decimale a ottale)
Lista.AddItem (Oct$(18))
'(Time$() fornisce ora corrente)
Lista.AddItem (Time$())
End Sub

vedi variabilix.ppt