VB提问, 给高分400分,

发布网友

我来回答

共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编程论坛问这个

热心网友

有点意思,我写好给你!