<%dim sum sum=0 for i=1to 99 j=mid((i),1,1) k=mid((i),2,1) a="," if j+k=10 then response.Write(j&k&a) end if next %>
int(i/10)+(i mod 10)=10
<% count=0 for i=1to 99999 if int(i/10000)+int(i/1000)+int(i/100)+int(i/10)+(i mod 10)=25 then Response.Write (i & "<br />") count=count+1 end if next Response.Write ("数目:"&count) %>