小婷编写了一个VB程序，实现如下功能，在文本框text1中输入一个4位整数zs，单击解密按钮后，在list1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如第图所示。
解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为 3715。
（1）观察程序代码，可知“解密”按钮的对象名是 。
（单选，填字母：
| A．Command1 | B．List1 | C．Decryp_Click( ) | D．Decryp | E．解密） |
（2）实现上述功能，请在划线处填入合适的代码。
Private Sub Decryp_Click( )
Dim zs As Long, g As Integer, s As Integer, b As Integer, q As Integer
Dim jmh As String, m As Integer
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
jmh =
② List1.AddItem Str(m) + " " + jmh
Next m
End Sub
（3）由上述算法可知，四位数“6124”对应的解密数值是
。
