不要C語言和C++的程式

setlsq2013-04-02

用VB程式編寫：大雞是3元，中雞是2元 小雞是0。5元Sub Command1_Click（）    Dim X    ‘大雞數量    Dim Y    ’中雞數量    Dim Z    ‘小雞數量    For X=0 To 100        For Y=0 To 100            For Z=0 To 100                If （（X+Y+Z=100） And （3*X+2*Y+0。5*Z=100））                    Print X， Y， Z                End If            Next        Next    NextEnd Sub