Question

VB语言中And和&是什么意思？

s4 = Mid$(s3, 8, 2) And &H1
s5 = Mid$(s3, 8, 2) And &H2
为什么s4=1,s5=2？

Answer 1

这要知道s3的内容是什么才能回答为什么。
Mid$(s3, 8, 2) 是把s3从左算起第8位数提取出两位数；
&H1 是数字1的16进制表示方式，其实直接写1也行的；
Mid$(s3, 8, 2) And &H1 就是把提取出的两位数与1进行And（与）运算。
如果对位运算和进制等不理解，建议你先去看看教材掌握这些基础知识再说。

追问

非常感谢您的回答，还有两个问题想要请教。
Dim Buf$, TT As Long 请问buf后面为什么要加$，以及这句话是什么意思？
Buf = Buf & Comm.Input 还有这句话是什么意思？

追答

$表示类型为字符串，Dim Buf$, TT As Long相当于：
Dim Buf As String, TT As Long
Buf = Buf & Comm.Input表示在Buf的后面再接上Comm.Input，比如Buf原来的内容是abc，Comm.Input的内容是def，那么经过这样运行后，Buf的内容就会变为abcdef