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函数

展开