DIM i, j, k, a AS Integer
a = 0
PRINT "1元", "2元", "5元"
FOR i = 0 TO 10
 FOR j = 0 TO 10
  FOR k = 0 TO 10
   IF i + j + k = 10 AND i + j * 2 + k * 5 = 25 THEN 
    a = a + 1
    PRINT i, j, k
   ENDIF
  NEXT
 NEXT
NEXT
PRINT a; "种方法"
----------------------------------------------------
1元      2元      5元
1       7       2
4       3       3
2种方法

DIM i, j AS Integer
PRINT "母鸡", "小鸡"
FOR i = 0 TO 100
 FOR j = 0 TO 100
   IF i + j = 100 AND i * 3 + j / 3 = 100 THEN 
    PRINT i, j
   ENDIF
 NEXT
NEXT
------------------------------
母鸡      小鸡
25      75

谢谢你了..