Dim x g r As Integer
x=din.text
g=x\1000
d1000.text=g
x=x-g*1000
g=x\500
d500.text=g
x=x-g ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

上面都是最基本的東西
給尼個方向, 去參考書籍唄! 通常都在前幾章!
有寫到textbox的, 很多都有範例.

定義x g r 為Interger型態
Dim x g r As Integer
x這個值=din.text這個text表
x=din.text
g的值等於x整除1000
g=x\1000
d1000.text這個text表的值=g
d1000.text=g
x的值等於x減掉g乘上1000
x=x-g*1000
g這個的值=x整除500
g=x\500
d500.text這個text表的值=g
d500.text=g
x的值等於x-g乘上500
x=x-g*500
g這個的值等於x整除100
g=x\100
d100.text的text表等於g值
d100.text=g
以下都是一樣的
x=x-g*100
g=x\50
d50.text=g
x=x-g*50
g=x\10
d10.text=g
x=x-g*10
g=x\5
d5.text=g
x=x-g*5
dl.text=x

這隻程式應該是輸入多少錢
判斷應換成多少張(枚)1000,500,100,50,10,5鈔票