百钱买百鸡的程序怎么写啊

用VB写的

Dim x%, y%, z%, a%
Print "公鸡:", "母鸡:", "小鸡:"
For x = 1 To 18
For y = 1 To 31
For z = 1 To 288
If (x * 5 + y * 3 + z / 3 = 100) And (x + y + z = 100) Then
a = a + 1
Print x, y, z
End If
Next z
Next y
Next x
Print "共有" & a & "种"

用什么语言？VB？C or VC ？