1樓：四舍**入
private sub command1_click()x=inputbox("輸入一個三位數")x1=x\100 'x1=三位數 的百位
x2=(x-x1*100)\10 '十位
x3=x-x1*100-x2*10 '個位msgbox x3&x2&x1
end sub
2樓：環業軟體
private sub command1_click()x=inputbox("輸入一個三位數")x1=x\100.'x1=三位數 的百位
x2=(x-x1*100)\10.'十位
x3=x-x1*100-x2*10.『個位print x3*100+x2*10+x1end sub
3樓：
樓上的演算法雖然沒錯，不過沒有考慮到如果個位是0的情況，所以應該將3個數都轉為字元然後再輸出，當然，我不知道樓主是否是想要的這樣的結果
private sub command1_click()x=inputbox("輸入一個三位數")x1=x\100 'x1=三位數 的百位
x2=(x-x1*100)\10 '十位
x3=x-x1*100-x2*10 '個位msgbox x3&x2&x1
end sub
4樓：匿名使用者
第一點：5分直接的個答案分夠了，想學點知識就不夠第二點：輸入一個三位整數，然後將它反向輸出？
有三個方法a)最簡單的就是使用strreverse函式private sub commandbutton1_click()x = inputbox("please input x:")msgbox strreverse(x)
end sub
b)還可以使用字元擷取函式rignt, left, midprivate sub commandbutton2_click()x = inputbox("please input x:")msgbox right(x, 1) & mid(x, 2, 1) & left(x, 1)
end sub
c)然後就是你那個思路
private sub commandbutton3_click()dim a as integer, b as integer, c as integer
x = inputbox("please input x:")c = x mod 10
b = (x - c) / 10 mod 10a = (x - 10 * b - c) / 100msgbox c & b & a
end sub
5樓：匿名使用者
msgbox strreverse(inputbox("請輸入三位整數"))
vb設計一個窗體，輸入一個三位整數，將它反向輸出。例如輸入123，輸出著為321，程式**怎麼寫
6樓：
private sub command1_click()dim a as integer
a=val(inputbox("請輸入3位數"))if a>99 and a<1000 thena=(a mod 10)*100+(a\10 mod 10)*10+a\100
msgbox a
end if
end sub
7樓：
最簡單的方案，試驗通過。
**：dim a, b as stringprivate sub command1_click()a = text1.text
b = strreverse(a) '反向字串text2.text = b
end sub
8樓：知道監督員
b = strreverse(a) '反向字串
這是最簡單的方法。
幫我編一個vb程式 輸入一個五位數 程式將它反向輸出 例如輸入12345 輸出54321，範圍要用長整數型
9樓：
下面是vb**，數字多長都可以反向，連字元都可以反向function xx(byval aa as string) as string
dim longth as integerdim i as integer
longth = len(aa)
for i = longth to 1 step -1xx = xx & mid(aa, i, 1)next
end function
10樓：匿名使用者
vari,j,k:longint;
a:string;
begin
readln(a);
for i:=length(a) downto 1 do write(a[i]);
end.
輸入一個三位正整數，將它反向輸出。用c語言編！
11樓：匿名使用者
#include
main()
三位du數除zhi以100那麼商就是三位數的百位dao上數字版，三位數除以
10的商再除以10的餘數就權是三位數的十位上的數字，三位數除以10的餘數就是三位數個位上的數字。
12樓：跪著作揖
#include
void main( )
擴充套件資料：
將三位正整數
專反向輸出的其他方法：
#include
#include
int main( )
13樓：夏碧夢
#include
void fun(int num)
}int main()
14樓：心夢無痕
寫的簡練點：
#include
void main()
用vb編一個程式，輸入任意一個正整數，將其反向輸出。例如，輸入12345,
15樓：己曼寒
a=inputbox("")
for i = len(a) to 1 step -1s=s & mid(a,i,1)
next
msgbox s
VB程式設計，現在急需！如果三位整數等於其各位數字的立方和
x要定義為字串，form load的過程需要加show才可以用print private sub form load dim x a b c y show x inputbox 請輸入三位數 提示框 if len x 3 then a val mid x,1,1 b val mid x,2,1 c ...
程式設計實現 從鍵盤任意輸入三位正整數，將該數分解成個位 十
小黑哎啊 include int main int n,k 0 int a 11 scanf d n while n a k n 10 提取各個位上的數，儲存在陣列a中n 10 for int i 0 ifor int j 0 jif a j a j 1 int t t a j a j a j 1 ...
三位正整數中有多少個是3的倍數 並求它們的和
三位正整數從100到999，共有999 100 1 900個數。它們的個數 900 3 300 個 它們的和 102 105 999 102 999 300 2 165150。在三位正整數的集合中有多少個數既是3的倍數又是5的倍數？求它們的和。不知道這樣可以不。能被3和5整除，最小的數是0.a1 0...