まず、簡単なForm1を作り、２次元データを出力させてみましょう。
実行をダブルクリックして、次のように出力されるプログラミングをして下さい。
もちろん配列の学習ですから、
int a[10][10];
と宣言しそれを利用してください。
label1に表示させるために
Dim w as String
を用意してください。
wはw = w + a(i, j).ToString() + " "
のように使えましたね。
１行目を01等としているのは、半角スペースを入れても
とずれてしまいます。半角スペースと半角英数の大きさが微妙に違うためです。
仮に全角スペースにしても
でうまくいきません。うまく揃えられればそれでいいのですが、
いろいろ試行錯誤してもよい方法がないので、
で妥協しているわけです。
01などとするにはw = w + "0" + a(i, j).ToString() + " " 等とすればよいのです。
第４講で学んだIf...Else...文などを利用して、１桁の場合と２桁の場合に分けて、
表示できるようにして下さい。
尚、改行はw = w & vbNewLine でできます。
２次元配列と２次元ループ(２次元For文）を利用されて、プログラミングして下さい。
解答例は３０行下。
プログラミング例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, a(9, 9) As Integer, w As String
'2次元データの発生
For i = 0 To 9
For j = 0 To 9
a(i, j) = 10 * i + j
Next
Next
'2次元データの表示
w = ""
For i = 0 To 9
For j = 0 To 9
If a(i, j) < 10 Then
w = w + "0" + a(i, j).ToString() + " "
Else
w = w + a(i, j).ToString() + " "
End If
Next
w = w & vbNewLine
Next
Label1.Text = w
End Sub
End Class
では次の課題です。プログラミングを少し変更して、表示結果が
となるようにするにはどうしたらよいでしょうか。プログラミング例は３０行下。
プログラミング例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, a(9, 9) As Integer, w As String
'2次元データの発生
For i = 0 To 9
For j = 0 To 9
a(i, j) = 10 * j + i
Next
Next
'2次元データの表示
w = ""
For i = 0 To 9
For j = 0 To 9
If a(i, j) < 10 Then
w = w + "0" + a(i, j).ToString() + " "
Else
w = w + a(i, j).ToString() + " "
End If
Next
w = w & vbNewLine
Next
Label1.Text = w
End Sub
End Class
変更はa(i, j) = 10 * j + iの１カ所だけです。
との関係を転置といいますが、iとjを反対にするだけで転置が可能です。
a(j, i) = 10 * i + j でも同じです。
さて、また課題です。表示結果が、
となるようプログラミングして下さい。プログラミング例は３０行下。
プログラミング例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, a(9, 9) As Integer, w As String
'2次元データの発生
For i = 0 To 9
For j = 0 To 9
a(i, j) = (i + j) mod 10
Next
Next
'2次元データの表示
w = ""
For i = 0 To 9
For j = 0 To 9
w = w + a(i, j).ToString() + " "
Next
w = w & vbNewLine
Next
Label1.Text = w
End Sub
End Class
ではこの話最後から２番の課題です。
２桁以下のランダムデータを発生させて、
のように表示させてください。解答例は例によって３０行下。
解答例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, a(9, 9) As Integer, w As String
'2次元データの発生
For i = 0 To 9
For j = 0 To 9
a(i, j) = Int(100 * Rnd())
Next
Next
'2次元データの表示
w = ""
For i = 0 To 9
For j = 0 To 9
If a(i, j) < 10 Then
w = w + "0" + a(i, j).ToString() + " "
Else
w = w + a(i, j).ToString() + " "
End If
Next
w = w & vbNewLine
Next
Label1.Text = w
End Sub
End Class
ではこの最後の話題です。
Labelをあと６つ用意して、
となるようにプログラミングして下さい。データは2つともランダムデータです。
解答例は次話で。
