这个运算后的值是多少

Question

Dim Tx As String, Txlen As Integer, Sum As Integer
Tx="*01C"
Txlen=Len(Tx)
Sum=0
For  i=1 To Txlen
      Sum=Sum+Asc(Mid(Tx,i,1))
Next i
Sum=((0-Sum)And  127)   Or  64Tx=Tx+Chr(Sum)+vbCrLf
TX的值是多少，谢谢

Answer 1

不是*01CrCRLF吗
Tx=Tx+Chr(Sum)+vbCrLf这句后面的vbCrLf是什么意思，不是专业写VB的

Answer 2

不是*01CrCRLF吗
Tx=Tx+Chr(Sum)+vbCrLf这句后面的vbCrLf是什么意思，不是专业写VB的

Answer 3

vbCrLf是Visual Basic中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思

Answer 4

不是*01CrCRLF吗
Tx=Tx+Chr(Sum)+vbCrLf这句后面的vbCrLf是什么意思，不是专业写VB的
结果就是：
"*01Cr" + 回车 + 换行符
vbCrLf 在 VB6中是一个字符串常量，是“回车符+换行符”。
Tx = Tx + Chr(Sum) + vbCrLf　这儿的加号左右的参数都是字符串类型的数据，
　　这个时候 + 运算符的作用就是字符串连接操作，跟用 &  运算符的效果相同。。