Нахождение ошибки в коде (форме) (Visual Basic{двумерный массив])

[Bernuar]

Здравствуйте
Вот такая задачка:
Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем строку с максимальной и столбец с минимальной суммой элементов.

Заполнить массив 7*7 по правилу:

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If Text1.Text <> "" And Text2.Text <> "" Then
			Dim n, m, a, b As Integer
			n = Text1.Text
			m = Text2.Text
			a = 0
			b = 0
			Dim mas(0 To n - 1, 0 To m - 1) As Integer
			For i = 0 To (n) * (m) + (m - 1)
				If b <= n - 1 Then
					Randomize()
					mas(a, b) = Int(Rnd() * 30)
					b = b + 1
				Else
					a = a + 1
					b = 0
				End If
			Next
			a = 0
			b = 0
			Dim stolb(0 To m - 1), strok(0 To n - 1) As Integer
			Dim schot(0 To n - 1, 0 To m - 1) As Integer
			For i = 0 To (n) * (m) + (m - 1)
				If b <= m - 1 Then
					stolb(a) = stolb(a) + mas(a, b)
					b = b + 1
				ElseIf b = n Then
					a = a + 1
					b = 0
				End If
			Next
		End If
	End Sub
End Class

Выдает ошибку что индекс находится вне границ массива. И еще помогите составить пр. форму
тут выдает

mas(a, B) = Int(Rnd() * 30)