1樓：匿名使用者
給你個思路。先將數字轉換成字串，再進行換位操作，最後再將換位後的字串轉換成數字。
2樓：匿名使用者
x=str(數字)
a=mid(x,1,1)
b=mid(x,2,1)
n=mid(x,3,1)
d=mid(x,4,1)
x=val(3&4&1&2)
3樓：灑家不戒女色
private sub form_click()dim str as string
dim num as double
dim arr() as string
dim i as integer
num = 2569815
str = cstr(num)
i = len(str)
redim arr(i) as stringfor i = 1 to len(str)arr(i - 1) = mid(str, i, 1)next i
str = ""
for i = 0 to ubound(arr)if i mod 2 = 1 then
str = str & arr(i) & arr(i - 1)end if
next i
num = val(str)
print num
end sub
4樓：匿名使用者
dim n as integer,s as integern=1468
s= (n mod 100)*100+n\100print s
初學者學VB好還是易語言好，對一個初學者來說用易語言好還是VB好
2個都不好，vb老的不能在老了，估計都沒人用了，易語言就別說，不是我不愛國，是在是咱們國人在這方面實力有限，就想中國自己造cpu一樣，到都來還是茫然一片，既然有c基礎，還是學c吧，你才初二，看不懂很正常，但是學了就會有收穫，大學的時候你就體會到了 像樓主這樣的 學易語言比較好點 最起碼自己寫的 是什...
一道VB初學者的題目
雖然看上去是三重迴圈，但因為每次都是重新賦值的，所以外面兩層迴圈是廢的。for k1 0 to 4 y 20 for k2 0 to 3 y 10 每次都會重新賦值，前面的運算全都白做了，不用去管它 for k3 0 to 2 y y 10 next k3,k2,k1 print y 就跟下面結果一...
會計初學者求助，建賬相關問題
1 對，如果有材料的話還要包括材料明細賬，最好再建一個固定資產明細賬，如果有的話 2 你是內賬還是報稅的賬，如果內賬的話，是公司內部的賬，會計法不允許建的，但是現在一般的企業都是兩套賬，這都是公開的祕密了，外部包括稅局都看不到的，所以不用貼花！如果報稅的賬，也就是對外的賬，是要貼花的，還有就是你第一...