PrivateSubComand1_Click()Labell.Caption=0Fori=1To30X(i)=TrueForj=1To10CallgxgzsNextjIfE(O)=TrueThenTextl.Text=Textl.Text+"{"+"x"+CStr(i)+"}"+","S1(i)=True'标记一阶割集Lab...
Private Sub Comand1_Click()
Labell.Caption = 0
For i = 1 To 30
X(i) = True
For j = 1 To 10
Call gxgzs
Next j
If E(O) = True Then
Textl.Text = Textl.Text + "{" + "x" + CStr(i) + "}" + ","
S1(i) = True '标记一阶割集
LabelI.Caption = Labell.Caption + 1
End If
X(i) = False
Next i
If Textl.Text = "" Then
Textl.Text = "无一阶割集"
End Sub
Private Sub gxgzs()
E(1) = X(7) Or X(8)
E(2) = X(9) Or X(l0) Or X(ll) Or X(l2)
A = E(l) Or E(2)
E(3) = X(13) Or X(14)
E(4) = X(15) Or X(l6) Or X(l7) Or X(l8)
B = E(3) Or E(4)
E(5) = X(19) Or X(20)
E(6) = X(21) Or X(22) Or X(23) Or X(24)
C = E(5) Or E(6)
E(7) = X(25) Or X(26)
E(8) = X(27) Or X(28) Or X(29) Or X(30)
D = E(7) Or E(8)
G21 = A Or B
G22 = A Or C
G23 = A Or D
G24 = B Or C
G25 = B Or D
G26 = C Or D
G2 = G2l Or G22 Or G23 Or G24 Or G25 Or G26
Gl = X(l) Or X(2)
G3 = X(3) Or X(4)
G4 = X(5) Or X(6)
T = G1 Or G2 Or G3 Or G4
End Sub
E1 = X7 Or X8
E2 = X9 Or Xl0Or XllOr Xl2
A = El Or E2
E3 = X13 Or X14
E(4) = X15 Or Xl6 Or Xl7 Or Xl8
B = E3 Or E4
E5 = X19 Or X20
E6 = X21 Or X22 Or X23 Or X24
C = E5 Or E6
E7)= X25 Or X26
E8 = X27 Or X28 Or X29 Or X30
D = E7 Or E8
G21 = A Or B
G22 = A Or C
G23 = A Or D
G24 = B Or C
G25 = B Or D
G26 = C Or D
G2 = G2l Or G22 Or G23 Or G24 Or G25 Or G26
Gl = Xl Or X2
G3 = X3 Or X4
G4 = X5 Or X6
T = G1 Or G2 Or G3 Or G4
把上面的写成函数形式就是gxgzs函数
展开