Вывести на экран массив 4x4 + вывести максимум главной диагонали

[Xorigan]

Здравствуйте! Срочно сделайте пожалуйста программу в Visual basic 2008. Я массив знаю как сделать, а вывести на экран и максимум главной диагнали не нзаю как найти!! В течении 40 минут надо сдать! ! ( Помогите пожалуйста!!!

[Bugrimov]

Не помню синтаксис БЭЙСИКА...

Din max As Integer
max = A(1, 1)
Циклы ....
If i = j And A(i, j) > max Then
   max = A(i, j)
...
Вывод max...

[Xorigan]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a(10) As Integer
        Dim max As Integer

        For i = 1 To 4
            a(i) = Fix(Rnd() * 10)
        Next

        max = 0
        For i = 1 To 4
            If a(i) > max Then max = a(i)
        Next

        MsgBox("Масимальное число на главной диагонали: " & max)

    End Sub
End Class

Диагональ сделал, а вывод не знаю как.
Способ с http://www.cyberforum.ru/visual-basic/thread520366.html не работает. Нужен Visual Basic 2008
Помогите пож.

[Stilet]

А вывод: кинь на форму ListBox или Мемо (или как оно там в барсике называется) и выводи туда, преобразовывая через CStr();

[Xorigan]

Сообщение от Stilet

А вывод: кинь на форму ListBox или Мемо (или как оно там в барсике называется) и выводи туда, преобразовывая через CStr();

Добавил код, не хочет принимать DataGridView1

  For j = 1 To 10
            For i = 1 To 10
                DataGridView1.Rows(j).Cells(i).Value = CStr(a(i, j))
            Next i
        Next j

[Stilet]

У меня VB нет и проверить не на чем.
А почему DataGridView1? Возьми обычный ListBox.