[开_84]最后一个珠子的号码是？

Long_III · 发表于 2006-2-20 17:43

以下是引用sandyw在2006-2-18 4:58:36的发言：

刚跟朋友喝完酒回来，睡不着就上来看看，搞了一下，没有检验，不知道对不对，请各位老师批评指正。

仔细看了一下代码，感觉没什么错误，思路也很正常，好奇怪哦

明天好好调试调试，看看问题在哪里？

sandyw · 发表于 2006-2-20 18:24

哈，龙三兄没看出来。我自己知道错在哪里了！就是在找到那个数之后没有继续按照号码轮下去，只是简单的从1开始了。所以答案会错。我迟点再改！

Long_III · 发表于 2006-2-21 10:41

呵呵，明白了。

如果这样的话，按兄台的思路就做不下去了，要一个个数的话，就跟我的思路一样了（只不过我是在数组里数）

abcdeorf · 发表于 2012-2-16 13:41

不会呀，学习中

风云际会6 · 发表于 2012-3-26 15:04

我的答案是：34不知对否

eyeshot · 发表于 2012-3-30 22:14

1 49
2 35
3 8
4 43
5 14
6 39
7 44
8 33
9 39
10 26
11 49
12 34
13 42
14 18
15 7
16 38
17 41
18 34
19 43
20 14
21 37
22 12
23 34
24 31
25 30
26 21
27 24
28 17
29 30
30 12
31 17
32 3
33 22
34 15
35 18
36 18
37 29
38 1
39 21
40 2
41 23
42 43
43 4
44 48
45 12
46 31
47 15
48 45
49 42

复制代码

guxq123 · 发表于 2012-4-1 15:59

哎，自己一头雾水

zzq0101 · 发表于 2012-4-3 00:22

来点滑稽的，在A1-A49 录入1-49 数字：呵呵
Sub test()
[a1].Select
Do While Application.Count(Range("a:a")) > 1
aaa
Loop
End Sub
Sub aaa()
For i = 1 To 19
If ActiveCell = "" Then [a1].Select
ActiveCell.Offset(1).Select
If ActiveCell = "" Then [a1].Select
Next
Selection.Delete Shift:=xlUp
End Sub

zzq0101 · 发表于 2012-4-3 00:25

上面是20的，这个是23的
Sub test()
[a1].Select
Do While Application.Count(Range("a:a")) > 1
aaa
Loop
End Sub
Sub aaa()
For i = 1 To 22
If ActiveCell = "" Then [a1].Select
ActiveCell.Offset(1).Select
If ActiveCell = "" Then [a1].Select
Next
Selection.Delete Shift:=xlUp
End Sub

		自动登录	找回密码
密码			免费注册

[Excel 程序开发] [开_84]最后一个珠子的号码是？