vb习题答案搜索

来源：百度知道 编辑：UC知道 时间：2024/07/04 09:19:47
18.某个公司采用公用电话传递数据，数据是四位的整数，在传递过程中是加密的，加密规则如下：每位数字都加上5,然后用和除以10的余数代替该数字，再将第一位和第四位交换，第二位和第三位交换?
VB编程如何编
谢谢各位高人！！！！

Dim r As Integer, m As Integer
r = 3627
m = (((r Mod 10) + 5) Mod 10) * 1000
m = m + ((((r \ 10) Mod 10) + 5) Mod 10) * 100
m = m + ((((r \ 100) Mod 10) + 5) Mod 10) * 10
m = m + (((r \ 1000) + 5) Mod 10)
Print m

function jm(byval txt as integer) as String
dim a as integer
dim b as integer
dim c as integer
dim d as integer
a = (val(Mid(txt, 1, 1))+5) mod 10
b = (val(Mid(txt, 2, 1))+5) mod 10
c = (val(Mid(txt, 3, 1))+5) mod 10
d = (val(Mid(txt, 4, 1))+5) mod 10
jm=d & c & b & a
end function