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


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
参考ファイル

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

第５話へ　第７話へ

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

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