30个人在一个饭馆吃饭,男人每个人花3元女人2元小孩1元..一共花了50元,问男人女人小孩多少人 用VB编程一下

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 0 To 30
For b = 0 To 30
For c = 0 To 30
If a + b + c = 30 And 3 * a + 2 * b + c = 50 Then
Print a,b,c
End If
Next c
Next b
Next a
End Su