第10講 添え字付き名前を持った箱（配列）

第３話　２つの添え字付き名前もった箱（２次元配列）の活用

を添え字が２つの名前を持った箱と
横縦の同じこと繰り返し（２次元ループ）を活用して実現するプログラム例
Private Sub CommandButton1_Click()
　　Dim a(9, 9) As Integer, i As Integer, j As Integer
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　a(i, j) = 10 * i + j + 1
　　　　Next
　　Next
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　Cells(6 + i, 1 + j) = a(i, j)
　　　　Next
　　Next
End Sub
Private Sub CommandButton2_Click()
　　Rows("6:200").Select
　　Selection.ClearContents
　　Cells(5, 2).Select
　　Selection.ClearContents
　　Cells(1, 1).Select
End Sub

次の演習です。
a(i, j)をつかって、転置（横と縦を反転させたもの）も表示させましょう。

解答例は３０行下。
































解答例
Private Sub CommandButton1_Click()
　　Dim a(9, 9) As Integer, i As Integer, j As Integer
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　a(i, j) = 10 * i + j + 1
　　　　Next
　　Next
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　Cells(6 + i, 1 + j) = a(i, j)
　　　　Next
　　Next
　　Cells(17, 1) = "転置"
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　Cells(18 + j, 1 + i) = a(i, j)
　　　　Next
　　Next
End Sub
Private Sub CommandButton2_Click()
　　Rows("6:200").Select
　　Selection.ClearContents
　　Cells(5, 2).Select
　　Selection.ClearContents
　　Cells(1, 1).Select
End Sub

次話の課題です。
さらに、左右反転・上下反転・中心に対して点対称移動も実現しましょう。

第２話へ　第４話へ



vc++講義へ

初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義へ
ＶＢ講義基礎へ
初心者のためのJava 入門 基礎から応用まで
数学研究室に戻る