第8講 多次元ループ=多次元For文の学習

第8話 6次順列作成(6次元For文)コード例
w
を実現するプログラム例
Private Sub CommandButton1_Click()

  CommandButton2_Click
  f '6順列作成プロシージャ
End Sub
Sub f()

  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim o As Integer
  Dim cn As Integer
  Dim a(6) As Integer
  cn = 0
  For i = 1 To 6
    a(0) = i
    For j = 1 To 6
      If j <> a(0) Then
        a(1) = j
        For k = 1 To 6
          If k <> a(0) And k <> a(1) Then
            a(2) = k
            For l = 1 To 6
              If l <> a(0) And l <> a(1) And l <> a(2) Then
                a(3) = l
                For m = 1 To 6
                  If m <> a(0) And m <> a(1) And m <> a(2) And m <> a(3) Then
                    a(4) = m
                    For n = 1 To 6
                      For o = 0 To 4
                        If n = a(o) Then GoTo tobi
                      Next
                      a(5) = n
                      Call g(cn, a())
                      cn = cn + 1
tobi:
                    Next
                  End If
                Next
              End If
            Next
          End If
        Next
      End If
    Next
  Next
  
End Sub

Sub g(cn As Integer, a() As Integer)

  Dim i As Integer
  For i = 0 To 5
    Cells(4 + Int(cn / 5), 1 + i + 7 * (cn Mod 5)) = a(i)
  Next
  
End Sub


参考ダウンロード添付ファイル

次は、7次順列です。
そろそろカウントするための変数cnはLong型に変更しないと、
オーバーフローする可能性があります。
尚、言い忘れていましたが、
数える専用の変数のことをカウンタといいます。
カウンタなので、cnという変数名にしていますが、
名前ですから禁則さえ犯さなければ、何でもかまいません。
4


第7話へ 第9話へ

004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ第2部へ
小学生からエンジニアまでのRuby入門へ
小学生からエンジニアまでのC言語入門 基礎から応用まで
本サイトトップへ