ช่วยทีคับ
คือว่าผมเขียนโปรแกรมทอนเงิน เช่น 1500 ต้องใช้ แบงค์ 1000 1 ใบ,5001 ใบ เขียนแบบนี้ถูฏเปล่าคับ dim t_bank as integer dim t_1000 as integer dim t_500 as integer dim i as integer
t_bank = val(text1.text) do while t_bank >=1000 t_1000 = t_bank - 1000 i = i+1 loop do while t_bank >= 500 t_500 = t_bank -500 i = i+1 loop
text2.text = t_1000 text3.text = t_500 ถูกเปล่าอ่ะคับ
|