Question

这个的代码怎么写？应发工资X元，求各种票额钞票总张数最少的付款方案！

Answer 1

'控件太多，直接给你写个测试例，用随机数作为工资 1000-9999元
Private Sub Form_Click()
Dim n, i, arr, brr(5)
Cls
arr = Split("100 50 20 10 5 1")
Randomize
n = Int(Rnd * 9000) + 1000
Print "工资：" & n
For i = 0 To 4
brr(i) = n \ Val(arr(i))
n = n - Val(brr(i)) * Val(arr(i))
Next
brr(5) = n
For i = 0 To 5
Print arr(i) & ":"; brr(i)
Next
End Sub