主题：考一考你！！
蓝色旋5421
[专家分：0] 发布于 2007-04-02 13:24:00
十三人 围成一圈数：1，2，3，4，5 数到5的人出去这样重复下去 问什么时候人 都走光了[em4][em5][em9]那你可不可以将先后出去的人排列出来
回复列表 （共21个回复）
11 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:23:00
[quote]Dim a(13)
For i = 1 To 13
a(i) = 1
Next i
Do
For i = 1 To 13
s = s + a(i)
If s = 5 Then
Print Trim(Str$(i)) + ",";
a(i) = 0
s = 0
j = j + 1
End If
Next
Loop Until j = 13[/quote]
12 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:24:00
你这题是QB的我看过
13 楼
Matodied [专家分：7560] 发布于 2007-04-20 18:18:00
CLS
DIM a(13):
14 楼
Matodied [专家分：7560] 发布于 2007-04-20 18:20:00
CLS
DIM a(13):FOR i=1 TO 13:a(i)=1:NEXT i
i=0:j=0:s=13
DO
j=j+1
DO
i=i+1
IF i>13 THEN i=1
LOOP UNTIL a(i)=1
IF j=5 THEN
a(i)=0:j=0:s=s-1:PRINT i;
END IF
LOOP UNTIL s=0
END
15 楼
wangyunchaoPIG [专家分：130] 发布于 2007-04-22 15:15:00
跟"猴子选大王"类似,自己去搜吧!
16 楼
wangyunchaoPIG [专家分：130] 发布于 2007-04-22 15:16:00
跟"猴子选大王"类似,自己去搜吧!
17 楼
lcy947 [专家分：30] 发布于 2007-04-22 21:19:00
这是Joseph 问题,
n=13:m=5
dim a(13)
for i=1 to n
a(i)=1
next i
s=0:p=0
while p<n
for i=1 to n
s=s+a(i)
if s=m then
p=p+1
print "p=";p'tab(10);i;"#"
s=0:a(i)=0
if p=n then exit for
end if
next i
wend
end
18 楼
蓝色旋5421 [专家分：0] 发布于 2007-05-04 21:04:00
Joseph 什么意思啊，大哥啊，我是初学者啊，向你请教
19 楼
Matodied [专家分：7560] 发布于 2007-05-04 21:09:00
你到第二页看看我的<<这题怎么做>>就知道JOSEPH问题是什么了.
20 楼
蓝色旋5421 [专家分：0] 发布于 2008-02-29 14:19:00
是Ltrim$
我来回复
您所在位置：