加密整数.对于一个4位正整数,将每一位上的数字加7,

题目

加密整数.对于一个4位正整数,将每一位上的数字加7,
然后对10取余数代替原来的数字,再将该4位整数进行左右两边数字互换,第一位与第四位换,第二位与第三位互换.希望能将详细代码发来.最搞不懂定义完变量后,转换也可以,但是不知道该怎样把每个数字再连起来显示在text2.text上面.比如a= 1 b=2 c= 3 d=4 text2.text = "abcd"为什么显示abcd,而不是1234……

答案

Private Sub Command1_Click()Dim a%,b%,c%,d%,e%e = CInt(Text1.Text)a = (e 1000 + 7) Mod 10b = (e 100 Mod 10 + 7) Mod 10c = (e 10 Mod 10 + 7) Mod 10d = (e Mod 10 + 7) Mod 10e = a:a = d:d = ee = b:...