求数组子集——无重复数字的数组.docVIP

求数组子集——无重复数字的数组 在许多vb课程中都安排了如下的实验： 利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 作者实验后发现，在产生的数组中，大都有重复数字出现，这与后面“找出其中的*数”相悖。于是萌生了去除重复数字，重新定义子集数组的想法。为简化程序，本例只给出奇数子集的代码。 先在窗体Dim i%, k%, t%, p%, sum%, m%, n%, s%, r% Private Sub Command1_Click() Me.Cls 清屏 Randomize t = 1: k = 1: p = 1: m = 1: n = 1 For i = 1 To 80 a(i) = Int(Rnd * 90) + 10 生成随机数a(i) If a(i) Mod 2 = 1 Then 奇数为b(k) ReDim Preserve b(k) b(k)