1樓：雨裡de風
建2個文字框text1 text2,一個命令按鈕command1private sub command1_click()x=val(text1)
while x<>0
y=x mod 10
x=x\10
text2=val(text2)*10+ywend
end sub試試
2樓：天蠍魔君
private sub command2_click()dim shuzi2, shuzi as integerdim 個位, 十位, 百位, 千位 as integershuzi = val(text1.text)if shuzi > 9999 or shuzi < 1000 then
msgbox "請填入一個四位數"
end if
個位 = val(text1.text) mod 10'label3.caption = 個位
十位 = val(text1.text) \ 10 mod 10'label3.caption = 十位
百位 = val(text1.text) \ 100 mod 10'label3.caption = 百位
千位 = val(text1.text) \ 1000'label3.caption = 千位
shuzi2 = 個位 * 1000 + 十位 * 100 + 百位 * 10 + 千位
label4.caption = shuzi2end sub
3樓：匿名使用者
private sub label3_click()dim shuwei, shuzi, i, k, xshuwei = len(text1.text) 『修改shuzi = val(text1.text) 』修改for i = 1 to shuwei step 1k = 10 '修改
x = x + (10 ^ (shuwei - i)) * (shuzi mod k)
shuzi = fix(shuzi \ k)next i
label4.caption = x
end sub
任意位數都可以
在vb程式設計中怎樣將一個四位數拆開，並按相反順序輸出
4樓：匿名使用者
有必要計算嗎？
輸入的本身就是個字串，直接按照字串陣列處理，逆序輸出不就行了嗎？
5樓：沙慧月
我是vb6的
其實vb裡就有逆向輸出函式
如a=「1234」
print strreverse(a)
這樣就可以輸出 4321
省去很多**你可修改一下
6樓：匿名使用者
將四位數用format轉成字元，然後用strreverse函式反向輸出即可。
strreverse函式 描述返回一個字串，其中一個指定子字串的字元順序是反向的。
示例(將數字1234反向輸出)：
print strreverse(format(1234, "0000")) '用format轉成字元，然後用strreverse函式反向輸出
求編一個vb程式？輸入一個三位整數，然後將它反向輸出？
3 4四位數可以寫出多少個不同的四位數
1234 1243 1324 1342 1423 1432 2134 2143 2314 2341 2413 2431 3124 3142 3214 3241 3412 3421 4123 4132 4213 4231 4312 4321。6 4 24 種 個位數有4種可能 個位數佔了一個，所以十位...
用數字組成四位數，每個四位數中均沒有重複數字，求全部這樣的四位數之和。（要有過程）
1 假設4位數的開頭可以是0，即0124 0134都算，那麼總排列是p 5,4 5 4 3 2 120種 2 這120種裡面，0開頭的是p 4,3 4 3 2 24種 3 這120種裡面，因為機會均等，所以在120個 個位數 十位數 百位數 千位數 裡面，0 4出現的次數都是120 5 24遍，也就...
用0，2，4，數字可以組成（）個不同的四位數
雨中漫步 用0，2，4，6四個數字可以組成 18 個不同的四位數.3x3x2 18個。 only本兮 0不能在千位上如果數字不能重複，是3 3 2 1 18個最大與最小的差 3210 1023 2187如果數字可以重複，是3 4 4 4 192個最大與最小的差 3333 1000 2333 風格由你...