dim dahsdim xiaohsdahs=0xiaohs=0for i = 1 to 100 if i*4+(100-i)*(1/4)<100 then dahs=dahs+1 else dahs=dahs+1 xiaohs=100-dahs exit for end ifnextmsgbox "大和尚:" & dahs & "个。" & "小和尚:" & xiaohs & "个。",32,"结果"