并.frm

自己做的一个求集合的小程序

VERSION 5.00
Begin VB.Form 求集合 
   Caption         =   "求集合"
   ClientHeight    =   2295
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7860
   LinkTopic       =   "Form1"
   ScaleHeight     =   2295
   ScaleWidth      =   7860
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton test 
      Caption         =   "清除"
      Height          =   375
      Left            =   5640
      TabIndex        =   12
      Top             =   1680
      Width           =   855
   End
   Begin VB.CommandButton cancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   6840
      TabIndex        =   11
      Top             =   1680
      Width           =   855
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   1320
      TabIndex        =   9
      Top             =   1080
      Width           =   6015
   End
   Begin VB.CommandButton dke 
      Caption         =   "笛卡尔乘积"
      Height          =   375
      Left            =   4080
      TabIndex        =   8
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton cj 
      Caption         =   "求差集"
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton jj 
      Caption         =   "求交集"
      Height          =   375
      Left            =   1440
      TabIndex        =   5
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton bj 
      Caption         =   "求并集"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1680
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   4920
      TabIndex        =   1
      Top             =   480
      Width           =   2415
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1320
      TabIndex        =   0
      Top             =   480
      Width           =   2055
   End
   Begin VB.Label Label4 
      Caption         =   "集合C："
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "请按以下形式输入集合的元素如集合A为a,b,c,d,f或者a、b、c、d"
      Height          =   255
      Left            =   360
      TabIndex        =   7
      Top             =   120
      Width           =   7215
   End
   Begin VB.Label Label2 
      Caption         =   "集合B："
      Height          =   375
      Left            =   4080
      TabIndex        =   3
      Top             =   600
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "集合A："
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   600
      Width           =   735
   End
End
Attribute VB_Name = "求集合"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer




Private Sub bj_Click()
a$ = Text1.Text
b$ = Text2.Text
Text3.Text = ""             '清空集合C的输出

If b = "" And a = "" Then       '处理两个集合均为空时
c$ = ""
MsgBox "集合A，B没有任何元素，所以它们的并集C是空集"
GoTo L_End
End If

If a = "" Then                  '处理集合B为空时
c$ = b
GoTo L_End
End If

If b = "" Then                  '处理集合A为空时
c$ = a
GoTo L_End
End If



If b <> "" Then                         '当两个集合均不为空时
a = a & ","       '在末尾增加一个逗号作为结束符
b = b & ","

n% = 1
c$ = b                                  '先将集合B的元素直接传给集合C
    For i% = 1 To Len(a)
        s = Mid(a, i, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(a, n, i - n)
            m% = 1
            For j% = 1 To Len(b)                    '将当前从集合A中提取的元素循环与集合B中的元素进行比较，
                x = Mid(b, j, 1)                    '如果不相等则将之加入到集合C中
                If x = "," Or x = "、" Or x = "|" Then
                    y$ = Mid(b, m, j - m)
                    m = j + 1
                    If k = y Then
                    GoTo L1
                    End If
                End If
            Next
        c = k & "," & c                             '将从集合A中得到的且集合B中没有元素加入集合C中
L1:
        n = i + 1
        End If
 
    Next
    Text3.Text = Mid(c, 1, Len(c) - 1)             '显示输入框中
    GoTo L
End If
L_End:
Text3.Text = c
L:
End Sub

Private Sub cancel_Click()
End
End Sub

Private Sub cj_Click()
a$ = Text1.Text
b$ = Text2.Text
Text3.Text = ""                 '清空集合C的输出

If b = "" And a = "" Then       '处理两个集合均为空时
c$ = ""
MsgBox "集合A，B没有任何元素，所以它们的差集C是空集"
GoTo L
End If

If a = "" Then                  '处理集合B为空时
c$ = b
GoTo L_End
End If

If b = "" Then                  '处理集合A为空时
c$ = a
GoTo L_End
End If



If b <> "" Then                 '当两个集合均不为空时
a = a & ","                     '在末尾增加一个逗号作为结束符
b = b & ","
n% = 1
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    For i% = 1 To Len(a)
        s = Mid(a, i, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(a, n, i - n)
            m% = 1
            For j% = 1 To Len(b)                    '将当前从集合A中提取的元素循环与集合B中的元素进行比较，
                x = Mid(b, j, 1)                    '如果不相等则将之加入到集合C中
                If x = "," Or x = "、" Or x = "|" Then
                    y$ = Mid(b, m, j - m)
                    m = j + 1
                    If k = y Then
                    GoTo L2
                    End If
                End If
            Next
            GoTo L1
L1:
        c = k & "," & c                             '将从集合A中得到的且集合B中没有元素加入集合C中
L2:
        n = i + 1
        End If
 
    Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    n = 1
                              
    For i% = 1 To Len(b)
        s = Mid(b, i, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(b, n, i - n)
            m% = 1
            For j% = 1 To Len(a)                    '将当前从集合A中提取的元素循环与集合B中的元素进行比较，
                x = Mid(a, j, 1)                    '如果不相等则将之加入到集合C中
                If x = "," Or x = "、" Or x = "|" Then
                    y$ = Mid(a, m, j - m)
                    m = j + 1
                    If k = y Then
                    GoTo L4
                    End If
                End If
            Next
            GoTo L3
L3:
        c = k & "," & c                             '将从集合A中得到的且集合B中没有元素加入集合C中
L4:
        n = i + 1
        End If
 
    Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    Text3.Text = Mid(c, 1, Len(c) - 1)             '将集合C显示在输入框中
    GoTo L
End If
L_End:
Text3.Text = c
L:
End Sub

Private Sub dke_Click()
a$ = Text1.Text
b$ = Text2.Text
Text3.Text = ""             '清空集合C的输出

If b = "" And a = "" Then       '处理两个集合均为空时
c$ = "<" & "," & ">"
GoTo L_End
End If

If a = "" Then                  '处理集合B为空时
nn% = 1
b = b & ","
For ii% = 1 To Len(b)
        s = Mid(b, ii, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(b, nn, ii - nn)
        c$ = c & "," & "<" & " " & "," & k & ">"
        nn = ii + 1
        End If
        
Next
c = Mid(c, 2, Len(c))
GoTo L_End
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If b = "" Then                  '处理集合A为空时
nn% = 1
a = a & ","
For ii% = 1 To Len(a)
        s = Mid(a, ii, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(a, nn, ii - nn)
        c$ = c & "," & "(" & " " & "," & k & ")"
        nn = ii + 1
        End If
        
Next
c = Mid(c, 2, Len(c))
GoTo L_End
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If b <> "" Then                         '当两个集合均不为空时
a = a & ","       '在末尾增加一个逗号作为结束符
b = b & ","

n% = 1                              '先将集合B的元素直接传给集合C
    For i% = 1 To Len(a)
        s = Mid(a, i, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合中的元素
        k$ = Mid(a, n, i - n)
            m% = 1
            For j% = 1 To Len(b)                    '将当前从集合A中提取的元素循环与集合B中的元素进行比较，
                x = Mid(b, j, 1)                    '如果不相等则将之加入到集合C中
                If x = "," Or x = "、" Or x = "|" Then
                    y$ = Mid(b, m, j - m)
                    m = j + 1
                    If k = y Then
                    GoTo L1
                    End If
                End If
            Next
        c = k & "," & c                             '将从集合A中得到的且集合B中没有元素加入集合C中
L1:
        n = i + 1
        End If
 
    Next
    Text3.Text = Mid(c, 1, Len(c) - 1)             '显示输入框中
    GoTo L
End If
L_End:
Text3.Text = c
L:
End Sub

Private Sub Form_Load()
Text3.Enabled = False
End Sub

Private Sub jj_Click()

a$ = Text1.Text
b$ = Text2.Text
Text3.Text = ""             '清空集合C的输出

If b = "" And a = "" Then       '处理两个集合均为空时
c$ = ""
MsgBox "集合A，B没有任何元素，所以它们的交集C为空集"
GoTo L
End If

If a = "" Then                  '处理集合B为空时
c$ = b
GoTo L_End
End If

If b = "" Then                  '处理集合A为空时
c$ = a
GoTo L_End
End If

a = a & ","       '在末尾增加一个逗号作为结束符
b = b & ","


If b <> "" Then                         '当两个集合均不为空时
n% = 1
    For i% = 1 To Len(a)
        s = Mid(a, i, 1)
        If s = "," Or s = "、" Or s = "|" Then      '利用分割符提取集合A中的元素
        k$ = Mid(a, n, i - n)
            m% = 1
            For j% = 1 To Len(b)                    '将当前从集合A中提取的元素循环与集合B中的元素进行比较，
                x = Mid(b, j, 1)                    '如果不相等则将之加入到集合C中
                If x = "," Or x = "、" Or x = "|" Then
                    y$ = Mid(b, m, j - m)
                    m = j + 1
                    If k = y Then
                    GoTo L1
                    End If
                End If
            Next
            GoTo L2
L1:
        c = k & "," & c                             '将从集合A中得到的且集合B中没有元素加入集合C中
        
L2:
        n = i + 1
        End If
        
    Next
    If c <> "" Then
    Text3.Text = Mid(c, 1, Len(c) - 1)              '显示输入框中
    GoTo L:
    End If
End If
L_End:
MsgBox "集合A与集合B的交集C是空集"
L:
End Sub

Private Sub test_Click()
' a$ = Text1.Text
'For i% = 1 To Len(a)
'    s = Mid(a, i, 1)
'    MsgBox s
' Next
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub