计算问题 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 计算问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 489 人关注过本帖

标题：计算问题

只看楼主加入收藏

kombel

等　级：论坛游民
帖　子：69
专家分：48
注　册：2011-6-15
结帖率：92.31%

楼主

已结贴√ 问题点数：20 回复次数：7

计算问题

我想从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
%>

2011-07-08 15:59

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 2 楼

得分:20

程序代码：

<%
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

kombel

等　级：论坛游民
帖　子：69
专家分：48
注　册：2011-6-15

第 3 楼

得分:0

回复 2楼 dzt0001

能解释一下这段是什么意思吗

int(i/10)+(i mod 10)=10

2011-07-08 16:47

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 4 楼

得分:0

int(i/10) 数字除10，取整数部分，获得十位上的数字
i mod 10 数字除10后的余数，获得个位上的数字

----我怎能在别人的苦难面前转过脸去----

2011-07-08 17:52

kombel

等　级：论坛游民
帖　子：69
专家分：48
注　册：2011-6-15

第 5 楼

得分:0

回复 4楼 dzt0001

要得到百位上的数也是不是依此类推啊

2011-07-09 09:39

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 6 楼

得分:0

是，除以100，取整数部分就行了

----我怎能在别人的苦难面前转过脸去----

2011-07-09 09:43

kombel

等　级：论坛游民
帖　子：69
专家分：48
注　册：2011-6-15

第 7 楼

得分:0

回复 6楼 dzt0001

程序代码：

<%
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)
%>

我这样改了一下怎么结果这样子的呢??
结果:
159
168
177
186
195
203
212
221
230
数目：9

2011-07-09 10:16

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 8 楼

得分:0

你要到99999，那原来用数值运算的方法就有点麻烦了，还是用字符分割比较方便了
循环太多了，容易假死，做这个有什么意义呢？

程序代码：

<%
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

快速回复：计算问题