发布网友
共4个回答
热心网友
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编程论坛问这个
热心网友
有点意思,我写好给你!