dim x as integer,y as integer for x=0 to 312 for y=0 to 312 if x+y=312 and x*2+y*3=548 then printf "自行车数量:";x,"三轮车数量:";y end if next next