arrays - 複数行のテキスト ボックスから 2 次元配列へ

Question

次の入力を 2 次元配列に挿入する方法、または同じ効果のために別の種類の配列が必要な場合はどうすればよいでしょうか。

  abcd
  efgh
  ijkl

ボタンをクリックすると、配列が右または左に 90 度回転します (選択した場合)

代わりに数字を使用した例:

1 2 3
4 5 6
7 8 9

回転:

7 4 1
8 5 2
9 6 3

等々

Answer 1

これで始められるかもしれません 「行」と「列」の上限を動的に設定したいと思うでしょう。これはそれをテキスト ボックスに出力しますが、変数を新しい配列に割り当てるのは簡単です。

Dim arr(3, 3) As String

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim i As Integer = 1
    For row As Integer = 0 To 2
        For col As Integer = 0 To 2
            arr(row, col) = i
            i += 1
        Next
    Next
End Sub

Public Sub showStraight()
    TextBox1.Text = ""
    For row As Integer = 0 To 2
        Dim line As String = ""
        For col As Integer = 0 To 2
            line += arr(row, col)
        Next
        TextBox1.Text += line & vbNewLine
        line = ""
    Next
End Sub    Public Sub showRotated()
    TextBox1.Text = ""
    For col As Integer = 0 To 2
        Dim line As String = ""
        For row As Integer = 2 To 0 Step -1
            line += arr(row, col)
        Next
        TextBox1.Text += line & vbNewLine
        line = ""
    Next
End Sub