7,784
社区成员




dim a
a=1
msgbox typename(a)
a="1"
msgbox typename(a)
a=#2008-10-01 23:59#
msgbox typename(a)
a=1.1
msgbox typename(a)
set a = createobject("scripting.dictionary")
msgbox typename(a)
dim a as long
a = "abc"
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = "90"
b = "10"
Debug.Print a & b
Debug.Print a + b
End Sub
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = "90"
b = "10"
Debug.Print a & b
Debug.Print a + b
End Sub