VBのGUI 行列の和を求める

質問

VBのGUIです。

行列の足し算を行うプログラムをつくりたいです。
以下のプログラムはできたところまで作成しています。

□個の□行□列（□はテキストボックス）の所に例えばユーザーが3　3　3と入力したとします。
ボタン１を押すと3×3の3個個分のテキストボックスがでてきて、要素を打ち込めるようになります。
そしてユーザが要素を打ち込みます。次に要素が
1 2 1 　2 1 2 　　2 1 2
2 1 2 　1 2 1 　　1 2 1
1 2 1 　2 1 2 　　1 2 1
というように入力されたとします。
ボタン２を押すと
３×３のテキストボックスが出てきて
この３つの行列の和を足した
5 4 5
4 5 4
4 5 4というようにテキストボックスに表示されるようにしたいです。

３この３行３列の和だけでなく何個の何行何列の場合でもできるようにしたいです。
どのようなソースでこのプログラムはできるのでしょうか。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Bounds = New Rectangle(10, 10, 1300, 800)
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
If Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

If Not Integer.TryParse(TextBox1.Text, rows) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

If Not Integer.TryParse(TextBox2.Text, columns) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

For k = 1 To number
For i = 1 To rows
For j = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString() & "No" & k.ToString()

Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim n As Integer
Dim m As Integer
Dim sum As Double
sum = 0

For n = 1 To columns
For m = 1 To rows
sum = 0
For r = 1 To number

Next
For i As Integer = 1 To rows
For j As Integer = 1 To columns

Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
Next
Next
Next
Next
End Sub
End Class

回答No.3

n-jun

Ｎｏ．２です。

Ｂｕｔｔｏｎ３を配置して、動的に作成されたテキストボックスを
削除するものを追加してみました。
⇒その他修正も含め。

Private number As Integer
Private rows As Integer
Private columns As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Integer.TryParse(TextBox1.Text, rows) OrElse _
Not Integer.TryParse(TextBox2.Text, columns) OrElse _
Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

Me.Bounds = New Rectangle(10, 10, 1300, 800)

Dim cnt As Integer = 0

For k As Integer = 1 To number
For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
cnt += 1
tb.Name = "tb" + cnt.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sum As Integer
Dim cnt As Integer = 0

For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
cnt += 1 : If cnt > rows * columns Then cnt = 1

tb.Name = "tbA" + cnt.ToString
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + (80 + 40 * rows)
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
sum = 0

For k As Integer = 1 To number
sum += Integer.Parse(CType(Me.Controls("tb" + (cnt + (rows * columns * (k - 1))).ToString()), TextBox).Text)
Next
tb.Text = sum.ToString()
Next
Next

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Do Until Me.Controls.Count <= 6
For Each tbD As Object In Me.Controls
If CType(tbD, Control).Name Like "tb*" Then Me.Controls.Remove(tbD)
Next
Loop

End Sub

回答No.2

n-jun

Ｎｏ．１です。

Private number As Integer
Private rows As Integer
Private columns As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Integer.TryParse(TextBox1.Text, rows) OrElse _
Not Integer.TryParse(TextBox2.Text, columns) OrElse _
Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

Me.Bounds = New Rectangle(10, 10, 1300, 800)

Dim cnt As Integer = 0

For k As Integer = 1 To number
For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
cnt += 1
tb.Name = "tb" & cnt.ToString
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sum As Integer
Dim cnt As Integer = 0

For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
cnt += 1 : If cnt > rows * columns Then cnt = 1

tb.Name = "tbA" & cnt.ToString
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + (80 + 40 * rows)
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
sum = 0

For k As Integer = 1 To number
sum += Integer.Parse(CType(Me.Controls("tb" & (cnt + (rows * columns * (k - 1)))), TextBox).Text)
Next
tb.Text = sum.ToString
Next
Next

End Sub

こうゆう感じの事でしょうかね？

回答No.1

n-jun

最初に気になった点、

・双方のイベントで共通する変数の宣言方法
・入力された値のエラーチェック

について。

Private number As Integer
Private rows As Integer
Private columns As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Integer.TryParse(TextBox1.Text, rows) OrElse _
Not Integer.TryParse(TextBox2.Text, columns) OrElse _
Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End Sub

後の部分については時間がかかりますので、
他の回答をお待ち頂いても宜しいですよ。