主题：[求助]发放工资所需面额

参考代码

Dim num As Integer = 1999
Dim ms() As Integer = {100, 50, 20, 10, 5, 1}
Dim ls As new List(Of Integer)
For Each m As Integer In ms
    Dim c As Integer = num \ m
    Dim y As Integer = num Mod m
    If y = 0 Then
        Exit For
    Else
        num = y
        ls.add(c)
    End If
Next
For i As Integer = 0 To ls.count-1
    msgbox(ls(i) & "*" & ms(i))
Next