小婷编写了一个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”对应的解密数值是
。