一道程序题,要用Qbasic解

来源：百度知道编辑：UC知道时间：2024/04/28 12:55:52

用100元钱买16只鸡，公鸡5元一只，母鸡25元1只，求公鸡、母鸡各几只？

上面的是VB的程序吧?
QBASIC的程序:
M=0
FOR I=0 TO 16
IF I*25+(16-I)*5=100
PRINT "母鸡=";I,"公鸡="；16-I
EXIT FOR
ENDIF
NEXT I
END

dim i as integer
i=1
do while i<=15
if 5*i+(16-i)*25=100 then
exit do
end if
i=i+1
loop
print "公鸡数:"&i
print "母亲数:"&i

CLS
FOR i=0 TO 16
IF (16-i)*5+i*25=100 THEN PRINT "Hens=";i,"Cocks=";16-i
NEXT i
END