1樓：匿名使用者
dim str as string = ""
dim n as integer
dim gewei, shiwei, baiwei as integer
n = val(text1.text)
gewei = n mod 10
shiwei = (n \ 10) mod 10baiwei = n \ 100
str = "這個數的個位數字是 " & gewei & " 十位數字是 " & shiwei & " 百位數字是 " & baiwei
text2.text = str
執行結果：
這個數的個位數字是 3 十位數字是 2 百位數字是 1
2樓：岔路程式緣
private sub form_click()dim a as integer, b as integer, i as integer
if text1 <> "" then
a = val(text1)
if a < 100 or a > 999 then goto 1234
else
1234
msgbox "請在文字框中輸入一個三位數字!", vbokonly + vbcritical
text1.text = ""
text1.setfocus
exit sub
end if
b = a
form1.cls
print "個位數、十位數、百位數分別是："
for i = 1 to 3
print b mod 10; space(5);
b = b \ 10
next
end sub
已經執行過。
執行結果：
vb程式設計設計題 紅綠燈，VB程式設計設計題 紅綠燈
如圖在窗體上新增 1 四個shape控制元件，作為燈框 紅燈 黃燈 綠燈，分別命名為 lampbox redlamp yellowlamp greenlamp 2 一個命令按鈕，命名為 cmdrun，標題為 啟動 3 三個文字框控制元件，來設定紅燈 黃燈 綠燈亮的時間 秒 分別命名為 txtredt...
程式設計設計簡單的計算器程式，程式設計設計一個簡單的計算器程式
這種運算比較麻煩,不過4種運算子號優先順序相同應該簡單寫,我這裡有個演算法,能進行簡單的四則運算,delphi的,供參考 function math evaluate s0 string extended function evaluate s0 string extended forward pr...
C 物件導向程式設計設計電視機類要求1） 電
這個很簡單的啊。h檔案 class ctv cpp檔案 int ctv m inum 0 ctv ctv string strtype m strtype strtype int ctv getnum conststring ctv gettvtype const main測試程式 int main...