<%
    Dim I,J,ren,mantou
    For I=1 To 100                '大和尚从1到100循环
        For J=1 To 100            '小和尚从1到100循环
            ren=I+J               '计算总人数
            mantou=I*4+J*0.25     '计算总馒头数
            If ren=100 And mantou=100 Then
                Response.write"<br>大人=" & I & "&nbsp;小孩=" & J
            End If
        Next
    Next
    %>

呵呵！解决问题的思维方式很多种，不过我们都是向着尽可能简单清晰的思路去走的，楼上的虽然也解决了问题，不过多层循环的执行效率比单层的要慢，而且这个问题目前也不需要用道多层循环！此为个人浅见！望批评指教！[bc04]