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钞票