给大家出个题目

hmhz 发布于 2008-06-14 22:27， 2844 次点击

10---10000的循环
第一种循环方式：
10
20
30
40
……
90
100
200
300
……
900
1000
2000
3000
……
9000
10000
这样子循环

第二种循环方式
10
20
30
……
90
100
110
120
130
……
190
200
210
220
230
……
290
300
310
320
330
……
……
……
10000
这样子循环

第三种循环方式
10
20
30
……
90
100
110
120
130
……
190
200
210
220
230
……
290
300
310
320
330
……
990
1000
1100
1200
1300
……
9900
10000
11000
12000
13000
……
20000

这样子循环

第四种循环方式
10
20
30
……
90
100
110
120
130
……
190
200
210
220
230
……
290
300
310
320
330
……
990
1000
1100
1200
1300
……
9900
10000
10100
10200
10300
……
10900
11000
11100
11200
11300
……
19900
20000

这样子循环

对asp比较熟悉的就来挑战一下吧

[[it] 本帖最后由 hmhz 于 2008-6-15 09:01 编辑 [/it]]

24 回复

hugeannex2008-06-14 23:25

用JS可以吗？
第一种：
<script language="javascript">
var ms="",k,i=10;
while(i<=10000){
   k=i;
  for(j=1;j<=9;j++){
     ms=ms+i+"<br>"
     i=i+k
     }
}
document.write(ms);
</script>
第二种（简单）：
<script language="javascript">
var ms="";
for(i=10;i<=10000;i+=10){
  ms=ms+i+"<br>";
  }
document.write(ms);
</script>

hmhz2008-06-15 00:10

你的JS写得不错，但我的要求是ASP写的，因为asp实现这样方式难度高一些

hmhz2008-06-15 00:39

不过根据你的思路，完全可以将你的JS改成asp的，
<%
'第一种
i=10
response.write i&"<br>"
while(i<=10000)
   k=i
  for j=1 to 9
      i=i+k
    ms=ms&i&"<br>"
  next
Wend
response.write ms
%>
第二种按照你的来改就不行了

hmhz2008-06-15 01:23

发现了个问题，你的到90000了，才注意到

multiple19022008-06-15 08:28

For i = 10 to 10000 Step 10
Response.Write i & "<br />"
Next

这样可以否？

multiple19022008-06-15 08:32

Dim i , st
st = 10
i = 10
While i <= 90000
    Response.Write i
    i = i + st
    If i = st * 10 Then st = st * 10
Wend

hmhz2008-06-15 08:49

恩，你这不错，简短效果显著，继续，第二种方式的

multiple19022008-06-15 08:52

第二种的（6f）

For i = 10 to 10000 Step 10
Response.Write i & "<br />"
Next

#10

hmhz2008-06-15 08:56

好，这个第二种的也搞定了，还有第三种的

#11

永夜的极光2008-06-15 09:04

都是强人啊,一点多还没睡,八点多就醒了

#12

multiple19022008-06-15 09:09

[bo][un]永夜的极光[/un] 在 2008-6-15 09:04 的发言：[/bo]

都是强人啊,[bo]一点多还没睡[/bo],[it]八点多就醒了[/it]

加粗且倾斜的不是我……
倾斜不加粗的是我……

[[it] 本帖最后由 multiple1902 于 2008-6-15 09:11 编辑 [/it]]

#13

永夜的极光2008-06-15 12:22

[bo][un]multiple1902[/un] 在 2008-6-15 09:09 的发言：[/bo]

加粗且倾斜的不是我……
倾斜不加粗的是我……

哦,那
强人 = 强人 - 1

#14

multiple19022008-06-15 16:40

[bo][un]永夜的极光[/un] 在 2008-6-15 12:22 的发言：[/bo]

哦,那
强人 = 强人 - 1

我知道这个等号读作“赋值给”

#15

hugeannex2008-06-15 17:57

哦，没注意到90000了。这个吧。
<script language="javascript">
var ms="",k,i=10;
while(i<=10000){
   k=i;
  for(j=1;j<=9;j++){
     ms=ms+i+"<br>"
     i=i+k
     }
}
document.write(ms);
</script>
用ASP一样可以的吧。

#16

hugeannex2008-06-15 18:23

晕，昨晚还没有第三种，ASP就ASP，好像第三种更简单

<%
Dim n,ms
ms=""
For i=10 To 1000 Step 10
  ms=ms&i&"<br>"
  Next
For i=10100 To 20000 Step 100
  ms=ms&i&"<br>"
  next
response.write ms
%>

哈哈哈，不要把问题想得那么复杂。

#17

tianyu1232008-06-15 19:04

第一种循环方式

<%
dim i,j,n
for i=1 to 3
    if i=3 then
       n=10
    else
       n=9
    end if
    for j=1 to n
        response.write j*(10^i)&"<br>"
    next
next
%>

第二种循环方式

<%
dim i
for i=10 to 10000 step 10
    response.write i&"<br>"
next
%>

第三种循环方式

<%
dim i,j
for i=1 to 3
    if i=3 then
       n=10
    elseif i=2 then
       n=90
    else
       n=100
    end if
    for j=1 to n
        if i=1 then
           response.write j*(10^i)&"<br>"
        else
           response.write 10^(i+1)+j*(10^i)&"<br>"
        end if
    next

next
%>

第四种循环方式

<%
dim i,j,n,m
for i=1 to 2
    if i=1 then
       n=99
       m=1
    else
       n=200
       m=10
    end if
    for j=m to n
           response.write j*(10^i)&"<br>"
    next

next
%>

#18

hmhz2008-06-15 23:36

写点比较通用的，可以封装起来大众化使用的那才叫好，无论数字怎么变，一样的程序依然起到同一个效果
效率要高，如果从10--10000000，这样效率就可以看出来如何了

#19

hmhz2008-06-15 23:43

17楼的纯粹是在糊任务

#20

tianyu1232008-06-16 17:48

做为版主，请注意自己的言行！

不对之处，可以指教！

但请不要诋毁别人！

#21

robinbest2008-06-18 15:25

看了看，这里都是高人啊！

#22

qq874444992008-06-18 17:33

作业

作业！

#23

zhangyao32872008-06-18 18:03

强人 = Cint(强人 - 1)

#24

qq4525653202011-12-09 09:37

什么时候我也能这样子。。。菜鸟飘过。。

#25

事与愿违2012-03-06 18:13

问下。水仙花数代码在Adobe Dreamweaver 怎么写啊