采用 Print直接在窗体上输出结果,程序代码: Private Sub Form Load Dim x As Integer, y As Integer Show For x=1 To 30 y=100-X If 3*x+y /3=100 Then Print"母鸡只数为:";x, Print"小鸡只数为:";y End if Next x End sub 运行结果 母鸡只数为:25小鸡只数为:75 ★采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 - x If 3 * x + y / 3 = 100 Then Print "母鸡只数为:"; x, Print "小鸡只数为:"; y End If Next x End Sub 运行结果： 母鸡只数为：25 小鸡只数为：75