第8講 配列の学習
第6話 2次元配列による数独もどきに行の条件を付け加える



Private Sub CommandButton1_Click()
  Dim i As Byte, j As Byte, k As Byte, a(8, 8) As Byte, h As Byte
  For i = 0 To 8
    For j = 0 To 8
      a(i, j) = Int(9 * Rnd) + 1
      If j > 0 Then
        h = 1
        For k = 0 To j - 1
          If a(i, k) = a(i, j) Then
            h = 0
            Exit For
          End If
        Next
        If h = 0 Then j = j - 1
      End If
    Next
  Next
  For i = 0 To 8
    For j = 0 To 8
      Cells(5 + i, 2 + j) = a(i, j)
    Next
  Next
End Sub
参考ファイル

かなり複雑なコードですので、次話において詳しく解説します。





5話へ 第7話へ


トップ

初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba マクロ 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
VB講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ