VB 组合数

来源:百度知道 编辑:UC知道 时间:2024/06/28 11:06:14
1.从00,01,02,03,04,...,97,98,99这100个数中选42个不同的数为一组。
2.列出所有的可能。组合的情况总数是C100取42,非常之多。没有N年是列不完的。
3.所以我想中途可以中断,下次接着列。
4.并把列出的组合情况保存到记事本.
拿出全部分.我想了很久都想不出中断后怎么GO ON
不用了,我自己想出来。我的100分啊。

HI联系

中断是记录相关的数据。goon时再根据这些数据,用goto跳到那个地方。
举个简单的例子:

若i=3,j=4时,则
i=3:j=4:goto AA
for i=1 to 100
for j=3 to 100
AA:
if a(i,j)=i * j
next j
doevents '可以中断
next i

用定时器!

在定时器里不断调用同一个函数,每调用一次就只计算一次,把中间结果作为全局变量保存起来,退出时写到文件,这样可以随时中断,随时继续计算

可以利用随即数先生成数组:
dim a(42)
Randmonize
For i = 1 to 42
a(i)=int(rnd(1)*100)
next i
然后就很麻烦了…如果要随时中断,最好用Timer