问题如下:
dim i as integer
dim s as string
i=1
s="05555555"+str(i)
's=0555555 1
s="0555555"&str(i)
's=0555555 1
解决方法:
一、Private Sub Command1_Click()
Dim i As Integer
Dim s As String
i = 1
's=0555555 1
s = "0555555" & Trim(Str(i))
Debug.Print s
End Sub
二、Private Sub Command1_Click()
Dim i As Integer
Dim s As String
s = "0555555" & i
Print s
End Sub
三、Dim i As Integer
Dim s As String
i = 1
s = "05555555" & CStr(i)