用VB将123456编写成162534

呵呵，不太明白是个什么意思：

你可以试一下这个:

dim i as long,k as long

i=123456

k=i+39078

print i

print k

dim a as long,b as string

a=123456

b=""

if len(str(a))/2=int(len(str(a))/2) then

for i = 1 to len(str(a))/2

b=b & mid(str(a),i,1) & mid(str(a),len(str(a))-i,1)

next i

else

for i = 1 to len(str(a)-1)/2

b=b & mid(str(a),i,1) & mid(str(a),len(str(a))-i,1)

next i

b=b & mid(str(a), (len(str(a))+1)/2,1)

end if

不太明白你的意思，麻烦再说清楚一些