百一测评 - VBScript基础知识(5)

职业技能题库&在线云笔试平台http://www.101test.Com

Next

Next For I=0 To 9

'外层循环 '内层循环

'给每一个元素赋初值10

For J=0 To 9

intSum=intSum+intA(I,J)^2

Next

Next

Response.write \该数组元素的平方和是\%>

43. [编程]（选做题）有100个人吃100个馒头，大人1人吃4个，孩子4人吃1个，问有多

少个大人和多少个孩子？（提示：使用嵌套循环和条件语句）

参考答案：参见asptemptj/chapter3/Bread.asp，并打开浏览器，在其中输入http://localhost/asptemptj/chapter3/ Pingfanghe.asp即可访问，清单如下： 清单Bread Bread.asp 计算吃馒头的人数

第21页

职业技能题库&在线云笔试平台http://www.101test.Com

<%

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\大和尚=\小和尚=\

End If

Next

Next %>

第22页