第1个回答 2012-08-24
Private Sub Command1_Click()
a = Val(Text1.Text)
Dim b(7)
b(0) = Int(a / 100)
b(1) = Int((a - 100 * b(0)) / 50)
b(2) = Int((a - 100 * b(0) - 50 * b(1)) / 20)
b(3) = Int((a - 100 * b(0) - 50 * b(1) - 20 * b(2)) / 10)
b(4) = Int((a - 100 * b(0) - 50 * b(1) - 20 * b(2) - 10 * b(3)) / 5)
b(5) = Int((a - 100 * b(0) - 50 * b(1) - 20 * b(2) - 10 * b(3) - 5 * b(4)) / 2)
b(6) = Int((a - 100 * b(0) - 50 * b(1) - 20 * b(2) - 10 * b(3) - 5 * b(4) - 2 * b(5)) / 1)
b(7) = Int((a - 100 * b(0) - 50 * b(1) - 20 * b(2) - 10 * b(3) - 5 * b(4) - 2 * b(5) - 1 * b(6)) / 0.1)
Me.Print b(0); "张100元的"
Me.Print b(1); "张50元的"
Me.Print b(2); "张20元的"
Me.Print b(3); "张10元的"
Me.Print b(4); "张5元的"
Me.Print b(5); "张2元的"
Me.Print b(6); "张1元的"
Me.Print b(7); "张1角的"
End Sub