读书人

关于,该如何解决

发布时间: 2012-01-06 22:55:18 作者: rapoo

关于
有以下数据:A1,B1,C1,D1,E1,F1
A2,B2,C2,D2,E2,F2

在这12个数中随机取其中的6个进行排列,要求:A1 与 A2不能同时出现,B1 与 B2不能同时出现,C1 与 C2不能同时出现,D1 与 D2不能同时出现,E1 与 E2不能同时出现,F1 与 F2不能同时出现。
谢谢!


排列后放在Excel中,从cells(1,1)开始。如何才能实现呀?????期待高手指点!!!!!

[解决办法]
感觉lz要的应该是这个

VB code
Dim a(5, 1)Sub 按钮_Click()    Dim i0 As Integer    Dim i1 As Integer    Dim i2 As Integer    Dim i3 As Integer    Dim i4 As Integer    Dim i5 As Integer        a(0, 0) = "普通"    a(1, 0) = "大件"    a(2, 0) = "要求"    a(3, 0) = "铁皮"    a(4, 0) = "热塑膜"    a(5, 0) = "胶合夹板"    a(0, 1) = "合打"    a(1, 1) = "小件"    a(2, 1) = "无要求"    a(3, 1) = "PE"    a(4, 1) = "捆包膜"    a(5, 1) = "多层夹板"        i = 1    j = 1        For i0 = 0 To 1        For i1 = 0 To 1            For i2 = 0 To 1                For i3 = 0 To 1                    For i4 = 0 To 1                        For i5 = 0 To 1                            Cells(i, j) = a(0, i0) & a(1, i1) & a(2, i2) & a(3, i3) & a(4, i4) & a(5, i5)                                                        If j = 6 Then                                j = 0                                i = i + 1                            End If                                                        j = j + 1                        Next                    Next                Next            Next        Next    Next    End Sub 

读书人网 >VB

热点推荐