户外羽绒服排行榜,它才是女人最好的嫁妆！

Public Function Encrypt(src As String) As String -----加密
Dim i As Integer
Dim aStr As String
Dim num1, num2 As Double
For i = 1 To Len(src)
aStr = aStr + CStr(Asc(Mid(src, i, 1)))
Next
num1 = Val(aStr)
num2 = Int(num1 * num1 / 3) + num1
If num2 = 0 Then
Encrypt = “”
Else
Encrypt = CStr(num2)
End If
End Function
户外羽绒服排行榜,它才是女人最好的嫁妆！

我的出场方式很特别，都是下冬天，

算是你们的寒冬第一个礼物。

我见过10°、0°、-3°、-38°，

也见过在各种户外运动的你。

爱你就像是天上掉下的馅饼，

看着开心并心疼着。

我跟在你身边一般只有3-4个月，

第一次遇到你们，仍然在寒冷到来的第一天。

每次约会中，

你都被众人羡慕，故意靠近着，

我有点害羞也有点开心。

– 思凯乐户外