qvaria1

esci con testvbax.htm

qpvaria1.xls vba variante1

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

qvvaria1.xls vba su excel variante2

Option Explicit

Private Sub CommandButton1_Click()
Dim posizione As Integer
Dim prima As String
Dim seconda As String
prima = "maria,rosa "
Mid$(prima, 6) = "teresa"

Cells(1, 1) = ("Asc(A )" & "fornisce codice ASCI del carattere A")
Cells(2, 1) = (Asc("A"))
Cells(3, 1) = ("CHR$(65) fornisce carattere codificato dal numero 65")
Cells(4, 1) = (Chr$(65))
Cells(5, 1) = ("RND() fornisce numero casuale inferiore a 1")
Cells(6, 1) = (Rnd())
Cells(7, 1) = ("case$(stringa) trasforma tutto in minuscolo PADOVA VERONA")
Cells(8, 1) = (LCase$("PADOVA"))
Cells(9, 1) = (LCase$("Verona"))
Cells(10, 1) = ("Ucase$(stringa) trasforma tutto in maiuscolo padova verona")
Cells(11, 1) = (UCase$("padova"))
Cells(12, 1) = (UCase$("Padova"))
Cells(13, 1) = ("Weekday(date) fornisce numero relativo a giorno")
Cells(14, 1) = (" domenica,2 lunedi,3 martedi ..7 sabato")
Cells(15, 1) = (Weekday(Date))
Cells(16, 1) = (Weekday(#2/25/2002#)) '(mese,giorno,anno)
Cells(17, 1) = ("assegnare lunedi come giorno codificato da 1 con vbMonday")
Cells(18, 1) = (Weekday(#2/25/2002#, vbMonday))
Cells(19, 1) = (Weekday(#2/25/2002#, vbSaturday))
Cells(20, 1) = (Weekday(Date, vbUseSystemDayOfWeek))
Cells(21, 1) = (Weekday(Date, vbWednesday))
Cells(22, 1) = ("Space$(numero) crea stringa con n spazi padova 10spazi verona")
Cells(23, 1) = ("padova" & Space$(10) & " verona")
Cells(24, 1) = ("Date$ fornisce data corrente")
Cells(25, 1) = (Date$)
Cells(26, 1) = ("Time$() fornisce ora corrente")
Cells(27, 1) = (Time$())
Cells(28, 1) = ("Instr(stringa originaria,sottostringa) fornisce posizione")
Cells(29, 1) = ("nella quale comincia la sottostringa padova do ")
Cells(30, 1) = (InStr("padova", "do"))
Cells(31, 1) = ("Mid$(stringa1,n,stringa2)sostituisce stringa 2 in stringa1")
Cells(32, 1) = ("Mid$(stringa1,n,stringa2)sostituisce maria rosa ,,,maria teresa")

Rem Dim prima As String
Rem Dim seconda As String
Rem prima = "maria,rosa "
Cells(33, 1) = (prima)
Rem Mid$(prima, 6) = "teresa"
Cells(34, 1) = (prima)


End Sub

Private Sub UserForm_Click()

End Sub