VB提问, 给高分400分,

来源：百度知道 编辑：UC知道 时间：2024/06/26 00:59:00
某单位希望 通过电话传送数据
但担心电话被窃听
试着编写1个为这些数据加密的程序
以便安全传输
已知所有的数据都是4位的整数
程序应该读取1个4位的整数
然后按如下方式加密
首先每位数加上7然后对10去膜
来取代这个数
在将第一位与第三位交换
第2位与第四位交换
最后打印经过加密的整数

写成VB源码发到我的邮箱, 我就把分数给你.
我不懂VB,我是艺术类的,
这是我老婆选科的考试,她叫我去帮她问下,
我也不知道哪个正确

Private Function Jiami(ByVal x As Integer) As Integer
Dim i As Integer, Y As Integer
For i = 0 To 3
Y = Y + (((x \ 10 ^ (3 - i)) + 7) Mod 10) * 10 ^ (3 - i)
Next i
Jiami = Jiami + (Y \ 1000) * 10 + ((Y \ 100) Mod 10) + ((Y \ 10) Mod 10) * 1000 + (Y Mod 10) * 100
End Function
在程序中调用函数即可。如
Dim k As Integer
k = 5876
k = Jiami(k)
Debug.Print k

private sub Command1_Click()
x=inputbox("输入号码")
for i = 1 to 4
mid(x,i,1)=(mid(x,i,1)+7) mod 10
next i
t = mid(x,3,2)
mid(x,3,2)=mid(x,1,2)
mid(x,1,2)=t
print x
end sub

非常麻烦,而且怀疑你怎么给400分

建议你在别的专业VB编程论坛问这个

有点意思,我写好给你!