VB程序设计题，速度！

4．将一张面值为100元的人民币等值换成5元、1元的零钞共40张，要求每种零钞不少于1张，问5元和1元面值的零钞各多少张？

设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为：

且 1≤x＜20

解决上述问题的Visual Basic程序如下，但此程序存在两处错误，已分别用划线及①、②标注。请改正这二处错误，并将正确内容按顺序填写在程序下方①和②划线处。

Private Sub Command1_Click()

Dim x As Integer, y As Integer

y = 1 : x = 1

Do While 5x + y <> 100 '①

y = y + 1

x + y = 40 '②

Loop

Label1.Caption = "5元钞" + Str(x) + "张"

Label2.Caption = "1元钞" + Str(y) + "张"

End Sub

程序中划线处①改为

程序中划线处②改为

程序中划线处①改为 Do While 5*x + y <> 100

程序中划线处②改为 x = 40 - y

1,Do While 5*x + y <>100 And x + y <>40

2,if 100-(5*x + y)>5 and x<20 then x = x+1

答案是个人见解，可能不对，大家可以探讨一下