计算问题
我想从10到99中 和值为10的显示出来 例28 2+8=10 再得出10到99中有几个数和值为10的下面是我写的一段代码 怎么显示不了啊
程序代码：<%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 %>
下面是我写的一段代码 怎么显示不了啊
程序代码：
程序代码：<%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 %>
2011-07-08 15:59
程序代码：<%
count=0
for i=10 to 99
if int(i/10)+(i mod 10)=10 then
Response.Write (i & "<br />")
count=count+1
end if
next
Response.Write ("数目："&count)
%>
2011-07-08 16:29
int(i/10)+(i mod 10)=10
2011-07-08 16:47
2011-07-08 17:52
2011-07-09 09:39
2011-07-09 09:43
程序代码：<%
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)
%> 我这样改了一下 怎么结果这样子的呢??
2011-07-09 10:16
程序代码：<%
count=0
for num = 1 to 99999
num1=0
for i = 1 to len(cstr(num))
num1=num1+int(mid(cstr(num),i,1))
next
if num1=25 then
Response.Write (num & "<br />")
count=count+1
end if
next
Response.Write ("数目："&count)
%>
2011-07-09 10:58