如何寫要如何找零張數的程式－馮琇添

Mar 26 Sat 2016 18:01
如何寫要如何找零張數的程式

標題:

如何寫要如何找零張數的程式

發問:

輸入一數值找出要多少張的500 100 50 10 5 1 用Inputbox輸入謝

最佳解答:

Private Sub Command1_Click() u = Val(Text1) Do i = i + 1 a = Choose(i, 500, 100, 50, 10, 5, 1) s = Fix(u / a) Label2(i - 1) = s & "張" u = u Mod a Loop While u <> 0 End Sub 要先建label2(0)-(5) 擬因該是要用vb寫八

其他解答:

http://tw.knowledge.yahoo.com/question/?qid=1405110418342 幫忙7C4CB18E23D7C5B7