vuoto

esci con testvbax.htm

pfunctio2.ppt tabella funzioni varie

Option Explicit
Private Sub CommandButton1_Click()
Dim a As Integer
Dim s As String
Dim s1 As String
a = -25
s = CStr(a)
s1 = Str(a)
Lista.AddItem ("a = -25")
Lista.AddItem ("s = CStr(a)")
Lista.AddItem ("s1 = Str(s)")
Lista.AddItem ("........")
Lista.AddItem ("CStr(-25)")
Lista.AddItem (CStr(-25))
Lista.AddItem ("Str(-26)")
Lista.AddItem (Str(-26))
Lista.AddItem ("Asc(A)")
Lista.AddItem (Asc("A"))
Lista.AddItem ("AscB(A)")
Lista.AddItem (AscB("A"))
Lista.AddItem ("AscW(A)")
Lista.AddItem (AscW("A"))
Lista.AddItem ("........")
Lista.AddItem ("(CBool(A = B))")
Lista.AddItem (CBool("A" = "B"))
Lista.AddItem ("CBool(A < B)")
Lista.AddItem (CBool("A" < "B"))
Lista.AddItem ("CBool(A > B)")
Lista.AddItem (CBool("A" > "B"))
Lista.AddItem ("........")
Lista.AddItem ("CByte(10 = 10)")
Lista.AddItem (CByte(10 = 10))
Lista.AddItem ("CByte(10 < 20)")
Lista.AddItem (CByte(10 < 20))
Lista.AddItem ("CByte(10 > 20)")
Lista.AddItem (CByte(10 > 20))
Lista.AddItem ("........")
Lista.AddItem ("CCur(A = B)")
Lista.AddItem (CCur("A" = "B"))
Lista.AddItem ("CCur(A < B)")
Lista.AddItem (CCur("A" < "B"))
Lista.AddItem ("CCur(A > B)")
Lista.AddItem (CCur("A" > "B"))
Lista.AddItem ("........")
Lista.AddItem ("CDate(Date)")
Lista.AddItem (CDate(Date))
Lista.AddItem ("CDbl(100.34587654345)")
Lista.AddItem (CDbl(100.34587654345))
Lista.AddItem ("CDec(125.3456789)")
Lista.AddItem (CDec(125.3456789))
Lista.AddItem ("Chr(65)")
Lista.AddItem (Chr(65))
Lista.AddItem ("Chr$(65)")
Lista.AddItem (Chr$(65))
Lista.AddItem ("ChrB(66)")
Lista.AddItem (ChrB(66))
Lista.AddItem ("ChrB$(66)")
Lista.AddItem (ChrB$(66))
Lista.AddItem ("ChrW(67)")
Lista.AddItem (ChrW(67))
Lista.AddItem ("ChrW$(68)")
Lista.AddItem (ChrW$(68))
Lista.AddItem ("........")
Lista.AddItem ("CInt(123.456)")
Lista.AddItem (CInt(123.456))
Lista.AddItem ("CLng(123456789)")
Lista.AddItem (CLng(123456789))
Lista.AddItem ("CVar(12)")
Lista.AddItem (CVar(12))
Lista.AddItem ("........")
Lista.AddItem ("CDate(Date)")
Lista.AddItem (CDate(Date))
Lista.AddItem ("DateValue(Date)")
Lista.AddItem (DateValue(Date))
Lista.AddItem ("IsNumeric(10)")
Lista.AddItem (IsNumeric(10))
Lista.AddItem ("IsDate(Date)")
Lista.AddItem (IsDate(Date))
Lista.AddItem ("IsNumeric(A)")
Lista.AddItem (IsNumeric("A"))
Lista.AddItem ("IsDate(12)")
Lista.AddItem (IsDate(12))
End Sub