[已解决]从30个数里选出3个数

f1red88 · 发表于 2014-8-4 15:37

本帖最后由 f1red88 于 2014-8-13 23:27 编辑

从1-35里选出6个数
当指定第几位和第几位或多位尾号相同时，输出该指定的结果

数字1	数字2	数字3	数字4	数字5
不同	不同	不同	不同	不同

1	2	3	4	5
1	2	3	4	6
1	2	3	4	7
1	2	3	4	8
1	2	3	4	9
1	2	3	4	10
1	2	3	4	11
1	2	3	4	12

相同和不同的种类有多少种，
求vba实现输出

最佳答案

月排行榜 / 总排行榜

雪舞子

2014-8-4 18:19

楼主测试：

Sub test()
Dim arr(1 To 500, 1 To 3), i%, j%, k%, n&
n = 1
For i = 1 To 20
For j = 1 To 20
If Right(i, 1) = Right(j, 1) And i <> j Then
For k = 1 To 20
If Right(j, 1) <> Right(k, 1) Then
arr(n, 1) = i
arr(n, 2) = j
arr(n, 3) = k
n = n + 1
End If
Next
End If
Next
Next
[a1].Resize(n, 3) = arr
End Sub

复制代码

运行结果：

1 11 2
1 11 3
1 11 4
1 11 5
1 11 6
1 11 7
1 11 8
1 11 9
1 11 10
1 11 12
1 11 13
1 11 14
1 11 15
1 11 16
1 11 17
1 11 18
1 11 19
1 11 20
2 12 1
2 12 3
2 12 4
2 12 5
2 12 6
2 12 7
2 12 8
2 12 9
2 12 10
2 12 11
2 12 13
2 12 14
2 12 15
2 12 16
2 12 17
2 12 18
2 12 19
2 12 20
3 13 1
3 13 2
3 13 4
3 13 5
3 13 6
3 13 7
3 13 8
3 13 9
3 13 10
3 13 11
3 13 12
3 13 14
3 13 15
3 13 16
3 13 17
3 13 18
3 13 19
3 13 20
4 14 1
4 14 2
4 14 3
4 14 5
4 14 6
4 14 7
4 14 8
4 14 9
4 14 10
4 14 11
4 14 12
4 14 13
4 14 15
4 14 16
4 14 17
4 14 18
4 14 19
4 14 20
5 15 1
5 15 2
5 15 3
5 15 4
5 15 6
5 15 7
5 15 8
5 15 9
5 15 10
5 15 11
5 15 12
5 15 13
5 15 14
5 15 16
5 15 17
5 15 18
5 15 19
5 15 20
6 16 1
6 16 2
6 16 3
6 16 4
6 16 5
6 16 7
6 16 8
6 16 9
6 16 10
6 16 11
6 16 12
6 16 13
6 16 14
6 16 15
6 16 17
6 16 18
6 16 19
6 16 20
7 17 1
7 17 2
7 17 3
7 17 4
7 17 5
7 17 6
7 17 8
7 17 9
7 17 10
7 17 11
7 17 12
7 17 13
7 17 14
7 17 15
7 17 16
7 17 18
7 17 19
7 17 20
8 18 1
8 18 2
8 18 3
8 18 4
8 18 5
8 18 6
8 18 7
8 18 9
8 18 10
8 18 11
8 18 12
8 18 13
8 18 14
8 18 15
8 18 16
8 18 17
8 18 19
8 18 20
9 19 1
9 19 2
9 19 3
9 19 4
9 19 5
9 19 6
9 19 7
9 19 8
9 19 10
9 19 11
9 19 12
9 19 13
9 19 14
9 19 15
9 19 16
9 19 17
9 19 18
9 19 20
10 20 1
10 20 2
10 20 3
10 20 4
10 20 5
10 20 6
10 20 7
10 20 8
10 20 9
10 20 11
10 20 12
10 20 13
10 20 14
10 20 15
10 20 16
10 20 17
10 20 18
10 20 19
11 1 2
11 1 3
11 1 4
11 1 5
11 1 6
11 1 7
11 1 8
11 1 9
11 1 10
11 1 12
11 1 13
11 1 14
11 1 15
11 1 16
11 1 17
11 1 18
11 1 19
11 1 20
12 2 1
12 2 3
12 2 4
12 2 5
12 2 6
12 2 7
12 2 8
12 2 9
12 2 10
12 2 11
12 2 13
12 2 14
12 2 15
12 2 16
12 2 17
12 2 18
12 2 19
12 2 20
13 3 1
13 3 2
13 3 4
13 3 5
13 3 6
13 3 7
13 3 8
13 3 9
13 3 10
13 3 11
13 3 12
13 3 14
13 3 15
13 3 16
13 3 17
13 3 18
13 3 19
13 3 20
14 4 1
14 4 2
14 4 3
14 4 5
14 4 6
14 4 7
14 4 8
14 4 9
14 4 10
14 4 11
14 4 12
14 4 13
14 4 15
14 4 16
14 4 17
14 4 18
14 4 19
14 4 20
15 5 1
15 5 2
15 5 3
15 5 4
15 5 6
15 5 7
15 5 8
15 5 9
15 5 10
15 5 11
15 5 12
15 5 13
15 5 14
15 5 16
15 5 17
15 5 18
15 5 19
15 5 20
16 6 1
16 6 2
16 6 3
16 6 4
16 6 5
16 6 7
16 6 8
16 6 9
16 6 10
16 6 11
16 6 12
16 6 13
16 6 14
16 6 15
16 6 17
16 6 18
16 6 19
16 6 20
17 7 1
17 7 2
17 7 3
17 7 4
17 7 5
17 7 6
17 7 8
17 7 9
17 7 10
17 7 11
17 7 12
17 7 13
17 7 14
17 7 15
17 7 16
17 7 18
17 7 19
17 7 20
18 8 1
18 8 2
18 8 3
18 8 4
18 8 5
18 8 6
18 8 7
18 8 9
18 8 10
18 8 11
18 8 12
18 8 13
18 8 14
18 8 15
18 8 16
18 8 17
18 8 19
18 8 20
19 9 1
19 9 2
19 9 3
19 9 4
19 9 5
19 9 6
19 9 7
19 9 8
19 9 10
19 9 11
19 9 12
19 9 13
19 9 14
19 9 15
19 9 16
19 9 17
19 9 18
19 9 20
20 10 1
20 10 2
20 10 3
20 10 4
20 10 5
20 10 6
20 10 7
20 10 8
20 10 9
20 10 11
20 10 12
20 10 13
20 10 14
20 10 15
20 10 16
20 10 17
20 10 18
20 10 19

复制代码

尾号相同.rar (24.03 KB, 下载次数: 1)

雪舞子 · 发表于 2014-8-4 18:19

楼主测试：

Sub test()
Dim arr(1 To 500, 1 To 3), i%, j%, k%, n&
n = 1
For i = 1 To 20
For j = 1 To 20
If Right(i, 1) = Right(j, 1) And i <> j Then
For k = 1 To 20
If Right(j, 1) <> Right(k, 1) Then
arr(n, 1) = i
arr(n, 2) = j
arr(n, 3) = k
n = n + 1
End If
Next
End If
Next
Next
[a1].Resize(n, 3) = arr
End Sub

复制代码

运行结果：

1 11 2
1 11 3
1 11 4
1 11 5
1 11 6
1 11 7
1 11 8
1 11 9
1 11 10
1 11 12
1 11 13
1 11 14
1 11 15
1 11 16
1 11 17
1 11 18
1 11 19
1 11 20
2 12 1
2 12 3
2 12 4
2 12 5
2 12 6
2 12 7
2 12 8
2 12 9
2 12 10
2 12 11
2 12 13
2 12 14
2 12 15
2 12 16
2 12 17
2 12 18
2 12 19
2 12 20
3 13 1
3 13 2
3 13 4
3 13 5
3 13 6
3 13 7
3 13 8
3 13 9
3 13 10
3 13 11
3 13 12
3 13 14
3 13 15
3 13 16
3 13 17
3 13 18
3 13 19
3 13 20
4 14 1
4 14 2
4 14 3
4 14 5
4 14 6
4 14 7
4 14 8
4 14 9
4 14 10
4 14 11
4 14 12
4 14 13
4 14 15
4 14 16
4 14 17
4 14 18
4 14 19
4 14 20
5 15 1
5 15 2
5 15 3
5 15 4
5 15 6
5 15 7
5 15 8
5 15 9
5 15 10
5 15 11
5 15 12
5 15 13
5 15 14
5 15 16
5 15 17
5 15 18
5 15 19
5 15 20
6 16 1
6 16 2
6 16 3
6 16 4
6 16 5
6 16 7
6 16 8
6 16 9
6 16 10
6 16 11
6 16 12
6 16 13
6 16 14
6 16 15
6 16 17
6 16 18
6 16 19
6 16 20
7 17 1
7 17 2
7 17 3
7 17 4
7 17 5
7 17 6
7 17 8
7 17 9
7 17 10
7 17 11
7 17 12
7 17 13
7 17 14
7 17 15
7 17 16
7 17 18
7 17 19
7 17 20
8 18 1
8 18 2
8 18 3
8 18 4
8 18 5
8 18 6
8 18 7
8 18 9
8 18 10
8 18 11
8 18 12
8 18 13
8 18 14
8 18 15
8 18 16
8 18 17
8 18 19
8 18 20
9 19 1
9 19 2
9 19 3
9 19 4
9 19 5
9 19 6
9 19 7
9 19 8
9 19 10
9 19 11
9 19 12
9 19 13
9 19 14
9 19 15
9 19 16
9 19 17
9 19 18
9 19 20
10 20 1
10 20 2
10 20 3
10 20 4
10 20 5
10 20 6
10 20 7
10 20 8
10 20 9
10 20 11
10 20 12
10 20 13
10 20 14
10 20 15
10 20 16
10 20 17
10 20 18
10 20 19
11 1 2
11 1 3
11 1 4
11 1 5
11 1 6
11 1 7
11 1 8
11 1 9
11 1 10
11 1 12
11 1 13
11 1 14
11 1 15
11 1 16
11 1 17
11 1 18
11 1 19
11 1 20
12 2 1
12 2 3
12 2 4
12 2 5
12 2 6
12 2 7
12 2 8
12 2 9
12 2 10
12 2 11
12 2 13
12 2 14
12 2 15
12 2 16
12 2 17
12 2 18
12 2 19
12 2 20
13 3 1
13 3 2
13 3 4
13 3 5
13 3 6
13 3 7
13 3 8
13 3 9
13 3 10
13 3 11
13 3 12
13 3 14
13 3 15
13 3 16
13 3 17
13 3 18
13 3 19
13 3 20
14 4 1
14 4 2
14 4 3
14 4 5
14 4 6
14 4 7
14 4 8
14 4 9
14 4 10
14 4 11
14 4 12
14 4 13
14 4 15
14 4 16
14 4 17
14 4 18
14 4 19
14 4 20
15 5 1
15 5 2
15 5 3
15 5 4
15 5 6
15 5 7
15 5 8
15 5 9
15 5 10
15 5 11
15 5 12
15 5 13
15 5 14
15 5 16
15 5 17
15 5 18
15 5 19
15 5 20
16 6 1
16 6 2
16 6 3
16 6 4
16 6 5
16 6 7
16 6 8
16 6 9
16 6 10
16 6 11
16 6 12
16 6 13
16 6 14
16 6 15
16 6 17
16 6 18
16 6 19
16 6 20
17 7 1
17 7 2
17 7 3
17 7 4
17 7 5
17 7 6
17 7 8
17 7 9
17 7 10
17 7 11
17 7 12
17 7 13
17 7 14
17 7 15
17 7 16
17 7 18
17 7 19
17 7 20
18 8 1
18 8 2
18 8 3
18 8 4
18 8 5
18 8 6
18 8 7
18 8 9
18 8 10
18 8 11
18 8 12
18 8 13
18 8 14
18 8 15
18 8 16
18 8 17
18 8 19
18 8 20
19 9 1
19 9 2
19 9 3
19 9 4
19 9 5
19 9 6
19 9 7
19 9 8
19 9 10
19 9 11
19 9 12
19 9 13
19 9 14
19 9 15
19 9 16
19 9 17
19 9 18
19 9 20
20 10 1
20 10 2
20 10 3
20 10 4
20 10 5
20 10 6
20 10 7
20 10 8
20 10 9
20 10 11
20 10 12
20 10 13
20 10 14
20 10 15
20 10 16
20 10 17
20 10 18
20 10 19

复制代码

尾号相同.rar (24.03 KB, 下载次数: 1)

su45 · 发表于 2014-8-4 19:17

咱也做了个，与雪舞子一样，就不发了！

f1red88 · 发表于 2014-8-4 23:00

本帖最后由 f1red88 于 2014-8-4 23:09 编辑

雪舞子发表于 2014-8-4 18:19
楼主测试：运行结果：

条件为选择性

条件	a	b	c
1	相同	不同	不同
2	相同	相同	不同
3	不同	相同	相同

条件可能为一种,或两种或所有种类，
所有的种类为
1,相同，相同，不同
2，相同，不同，相同
3，不同，相同，相同
4，相同，相同，相同

输出有输入选择的种类决定
我想实现多种，不是单独一种

su45 · 发表于 2014-8-5 00:23

二楼已做出个样子了，其他的你应尽量自己解决吧？

f1red88 · 发表于 2014-8-5 03:19

本帖最后由 f1red88 于 2014-8-5 03:41 编辑

几个组合就不断叠加，有简便的吗

f1red88 · 发表于 2014-8-5 16:08

雪舞子发表于 2014-8-4 18:19
楼主测试：运行结果：

我自己写了部分代码，但是觉得有可以简化，请帮忙看下思路

f1red88 · 发表于 2014-8-5 16:10

su45 发表于 2014-8-5 00:23
二楼已做出个样子了，其他的你应尽量自己解决吧？

帮忙看下我自己写的部分代码，改进下我的思路

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