1. (2019高一下·浦东月考) 奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若为奇数，则校验值为0，否则校验值为1。小明编写了一个计算奇偶校验值的VB程序。

程序功能：在文本框Text1中输入1~255十进制待校验数，单击“计算”按钮后，在文本框Text2中显示该数对应的二进制值，并在标签Label1中显示该数的校验位值。

1. （1） 如果在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是。
3. （2） 部分程序代码如下，请完善划线处内容，完成上述功能。

   Private Sub Command1_Click()

   Dim a As Integer, s As String

   Dim n As Integer, t As Integer, v As Integer

   n = Val(Text1.Text)                    ' 输入一个1~255的十进制数

   t = 0

   s = ""

   Do While n > 0

         a = n Mod 2

          n = n \ 2

          t =

          s = Str(a) + s                    ' str(a)将变量a的值转换为字符串

   Loop

   v =  

   Text2.Text = s                                   ' 显示对应的二进制数值

   Label1.Caption = "校验位值：" + Str(v)              ' 显示输出校验位值

   End Sub