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

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

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

然后……

god!没空