pvaria1

esci con testvbax.htm

pvaria1.ppt sintassi per funzioni di vario tipo

Option Explicit

Private Sub CommandButton1_Click()
Dim posizione As Integer
Lista.AddItem ("Asc(A )" & "fornisce codice ASCI del carattere A")
Lista.AddItem (Asc("A"))
Lista.AddItem ("CHR$(65) fornisce carattere codificato dal numero 65")
Lista.AddItem (Chr$(65))
Lista.AddItem ("RND() fornisce numero casuale inferiore a 1")
Lista.AddItem (Rnd())
Lista.AddItem ("case$(stringa) trasforma tutto in minuscolo PADOVA VERONA")
Lista.AddItem (LCase$("PADOVA"))
Lista.AddItem (LCase$("Verona"))
Lista.AddItem ("Ucase$(stringa) trasforma tutto in maiuscolo padova verona")
Lista.AddItem (UCase$("padova"))
Lista.AddItem (UCase$("Padova"))
Lista.AddItem ("Weekday(date) fornisce numero relativo a giorno")
Lista.AddItem (" domenica,2 lunedi,3 martedi ..7 sabato")
Lista.AddItem (WeekDay(Date))
Lista.AddItem (WeekDay(#2/25/2002#)) '(mese,giorno,anno)
Lista.AddItem ("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))
Lista.AddItem ("Space$(numero) crea stringa con n spazi padova 10spazi verona")
Lista.AddItem ("padova" & Space$(10) & " verona")

Lista.AddItem ("Date$ fornisce data corrente")
Lista.AddItem (Date$)
Lista.AddItem ("Time$() fornisce ora corrente")
Lista.AddItem (Time$())

Lista.AddItem ("Instr(stringa originaria,sottostringa) fornisce posizione")
Lista.AddItem ("nella quale comincia la sottostringa padova do ")
Lista.AddItem (InStr("padova", "do"))
Lista.AddItem ("Mid$(stringa1,n,stringa2)sostituisce stringa 2 in stringa1")
Lista.AddItem ("Mid$(stringa1,n,stringa2)sostituisce maria rosa ,,,maria teresa")
Dim prima As String
Dim seconda As String
prima = "maria,rosa "
Lista.AddItem (prima)
Mid$(prima, 6) = "teresa"
Lista.AddItem (prima)

End Sub

Private Sub UserForm_Click()

End Sub