VB程式設計的小問題

1樓：扈懷煒

拆分：千位=int（數字1 / 1000）百位=int(數字1/100) mod 10十位=int(數字1/10) mod 10各位=數字1 mod 10

逆序：a=int（數字1 / 1000）

b=int(數字1/100) mod 10c=int(數字1/10) mod 10

d=數字1 mod 10

逆序數="" & d & c & b & a &""

確實很悲劇，畫幾個控制元件也叫程式設計？？

2樓：匿名使用者

' 逆序

'text1 輸入， text2 輸出 改成你的控制元件名稱就行

private sub command1_click()dim x as integer

dim y as integer

x = val(text1.text)

y = 0

while x <> 0

y = y * 10 + (x mod 10)x = x \ 10

wend

text2.text = format(y, "0000")end sub

'拆分'text1 輸入 text 2 3 4 5 輸出 自己去改控制元件名

private sub command2_click()dim x as integer

x = val(text1.text)

text2.text = x mod 10x = x \ 10

text3.text = x mod 10x = x \ 10

text4.text = x mod 10x = x \ 10

text5.text = x mod 10end sub

vb程式設計問題，VB程式設計問題

設 text1 text2 text3 text4 command1 label1 4個test輸入資料 command1是按鈕 label1顯示內容 我給你寫一個子程式 其它你在工具欄向視窗託就行了,然後把這個子程式複製到 做就ok了 private command1 click dim maxa...

VB中的小問題，VB中的一個小問題

left函式是返回指定數目的從字串的左邊算起的字元，a答案結果為 microsoft mid函式從字串中返回指定數目的字元，在預設狀況下返回從指定位置開始到字串結束的字元。因此答案是b。mid string,start,length 就是從字串string的第start個字元開始取length個字串...

c語言程式設計中的小問題，C語言程式設計的小問題

1 可以的。a int a 100 0.5 將第三位小數加上去，通過強制型別轉換，則會丟棄小數部分 a a 100 由於a是double型別，故商包含2位小數 a int a 100 0.5 100.0 這樣合併會得到相同的結果。2 可以這樣操作。a int a 100 100.0 問題一 可以寫成...