<%
Dim a,i,lp
lp = True
a = Array(1,2,3,4,5,6)
Do While lp
print a
If a(5) < 33 Then
a(5) = a(5) + 1
Else
If a(4) < 32 Then
a(4) = a(4) + 1
a(5) = a(4) + 1
Else
If a(3) < 31 Then
a(3) = a(3) + 1
a(4) = a(3) + 1
Else
If a(2) < 30 Then
a(2) = a(2) + 1
a(3) = a(2) + 1
Else
If a(1) < 29 Then
a(1) = a(1) + 1
a(2) = a(1) + 1
Else
If a(0) < 28 Then
a(0) = a(0) + 1
a(1) = a(0) + 1
Else
lp = False
End If
End If
End If
End If
End If
End If
Loop
Sub print(a)
For i = 0 To 5
response.write a(i) & ","
Next
response.write "<br>"
End Sub
%>
输出结果很长,
温馨提示:答案为网友推荐,仅供参考