1. (2017高二上·台州月考) 小婷编写了一个VB程序，实现如下功能，在文本框Text1中输入一个4位整数zs，单击解密按钮后，在List1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如图所示。

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

1. （1） 观察程序代码，可知“解密”按钮的对象名是
3. （2） 实现上述功能，请在划线处填入合适的代码。

   Private Sub Decryp_Click( )
   

   Dim zs As Long, g As Integer

   Dim b As Integer, q As Integer

   Dim m As Integer, s As Integer

   Dim jmh As String

   zs = Val(Text1.Text)

   For m = zs To

   q = (m \ 1000) * 5 Mod 8

   b = ((m \ 100) Mod 10) * 5 Mod 8

   s = ((m \ 10) Mod 10) * 5 Mod 8

   g = (m Mod 10) * 5 Mod 8

   List1.AddItem Str(m) + "  " + jmh

   Next m

   End Sub

5. （3） 由上述算法可知，四位数“6124”对应的解密数值是