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

求数组子集无重复数字的数组在许多vb课程中都安排了如下的实验：利用随机函数产生80个1099之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。作者实验后发现，在产生的数组中，大都有重复数字出现，这与后面“找出其中的*数”相悖。于是萌生了去除重复数字，重新定义子集数组的想法。为简化程序，本例只给出奇数子集的代码。先在窗体中添加三个命令按钮，caption属性分别为：随机数、奇数、子集。代码如下:Dim a%(1 To 80), b%(), c%(), d%() a随机，b奇数，c素数，d偶数Dim e%(), f%(), g%() b、c、d对应的子集e、f、gDim 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) = a(i) k = k + 1 End If Next i Print 生成的80个随机数 显示随机数 Print For i = 1 To 80 Print a(i); If i Mod 10 = 0 Then Print Next i Print String(40, -)End Sub Private Sub Command2_Click() 奇数-原数据 Print 奇数 SortArrayAtoZ b, k - 1 Print For i = 1 To k - 1 Print b(i); If i Mod 10 = 0 Then Print Next i Print Print String(40, -)End SubPrivate Sub Command3_Click() 奇数子集 ReDim Preserve e(n) e(1) = b(1): n = 2 For m = 2 To UBound(b) Select Case True Case b(m) = b(m - 1) e(n - 1) = b(m - 1) Case Else ReDim Preserve e(n) e(n) = b(m): n = n + 1 End Select Next m ReDim Preserve e(n) Print 子集 Print For i = 1 To n - 1 Print e(i); If i Mod 10 = 0 Then Print Next i Print Print String(40, -)End SubPrivate Sub SortArrayAtoZ(arr() As Integer, ByVal size As Integer) 升序排列 Dim i%, j%, t% For i = 1 To size For j = i + 1 To size If arr(i) arr