191问答库 > 用VB编程在从1-11号球中选出任意4个不重复的球的组合中,排除所有满足3个球互为等差排列的组合,

用VB编程在从1-11号球中选出任意4个不重复的球的组合中,排除所有满足3个球互为等差排列的组合,

2025-05-14 14:07:16

推荐回答（2个）

回答1：

function 选四个任意球（剩余的球）'返回一个数组（保存四个球）
定义球（4）
球数＝0
9999999：
if 球数＝4 then 转到 000000
随机选择一个球A
检查
if已经选过了此球
转到 9999999
else
球数＝球数＋1
球（球数）
转到 9999999
endif
end 检查
000000:
选四个任意球=球(4)
end function

function 判断选的4个球是否是满足3个球互为等差排列的组合(球(4))

然后……

回答2：

god!没空