用VB编程在从1-11号球中选出任意4个不重复的球的组合中,排除所有满足3...
发布网友
发布时间：2024-10-23 22:54
共2个回答
热心网友
时间：2024-11-05 05:51
function 选四个任意球（剩余的球）'返回一个数组（保存四个球）
定义 球（4）
球数＝0
9999999：
if 球数＝4 then 转到 000000
随机选择一个球A
检查
if已经选过了此球
转到 9999999
else
球数＝球数＋1
球（球数）
转到 9999999
endif
end 检查
000000:
选四个任意球=球(4)
end function
function 判断选的4个球是否是满足3个球互为等差排列的组合(球(4))
然后……
热心网友
时间：2024-11-05 05:48
god!没空
