用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!没空

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com