一个VB编程题（需要代码）

编写程序，要求在输入某人的编号、实发工资数额后，自动确定发给多少张一百元、五十元、十元、五元、一元、五角、一角、五分、一分的钞票，并输出实发工资总额和所需各种钞票的总数目。（要求用Sub过程处理除一百元以外钞票的数目）

Private Sub Form_Load()

xxx 256.71

End Sub

Sub xxx(ByVal m As Double)
Dim a()

a() = Array(100, 50, 10, 5, 1, 0.5, 0.1, 0.05, 0.01)
Dim i As Integer, n As Integer, w As Integer
Dim s As String
For i = 0 To UBound(a)
n = Int(m / a(i))
m = m - n * a(i)

w = w + n
s = s & a(i) & ":" & n & vbCrLf
Next

s = s & "总数:" & w

MsgBox s

End Sub

你看看然后 自己改一下吧