2d 배열에 여러 줄 텍스트 상자

Question

다음 입력을 2 차원 배열에 삽입하는 방법 또는 동일한 효과를 위해 다른 종류의 배열이 필요한 경우 어떻게해야합니까?

abcd 
    efgh 
    ijkl 

그리고 나는 나의 배열이 오른쪽으로 90도 회전 또는 내가 몇 가지 시도 (선택한 경우) 내가 한 시간 정도 그것에 대해 생각해 봤는데 왼쪽하지만 난에서 완전히 새로운 해요 버튼을 클릭하면 대신 VB.net

예를 사용하여 번호 :

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