Задача VB помогите,пожалуйста!

[KathyKate]

Помогите пожалуйста разобраться!
Условия задачи: матрица 10х10 должна быть создана при помощи DataGridView.
Определить количество столбцов, в которых есть только один ноль.

[doober]

И проект за вас содавать,или вы покажете,что у вас есть,что не получается.
Тогда еще можно помочь.

[KathyKate]

Собственно вот что имеется:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, n, k As Integer
        n = A.Rows.Count - 1
        k = 0
        For j = 0 To 9
            If A(j, i).Value = 0 Then
                k = k + 1
            End If
        Next
        TextBox1.Text = k
       End Sub

Додумалась только как считать столбцы,в которых все элементы 0. Как считать только те, где ОДИН ноль не пойму.

[doober]

Количество нулей в каждом столбце

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With Me.DataGridView1
            Dim R(.Columns.Count - 1) As Integer
            For n = 0 To .Rows.Count - 1
                For m = 0 To .Columns.Count - 1
                    If .Rows(n).Cells(m).Value = 0 Then R(m) += 1
                Next
            Next
            For n = 0 To R.Length - 1
                Console.WriteLine("Столбец {0} {1} нулей", n + 1, R(n))
            Next
        End With
    End Sub

    Public Sub New()
        Dim rnd As New Random
        InitializeComponent()
        Me.DataGridView1.Columns.Clear()
        Me.DataGridView1.AllowUserToAddRows = False
        For n = 1 To 10
            Dim C As New System.Windows.Forms.DataGridViewTextBoxColumn
            C.Name = "C" & n
            Me.DataGridView1.Columns.Add(C)

        Next

        For n = 0 To 9
            Me.DataGridView1.Rows.Add()
            For m = 0 To 9
                Me.DataGridView1.Rows(n).Cells(m).Value = rnd.NextDouble * 10 \ 1

            Next

        Next
End Sub

[KathyKate]

Спасибо, буду думать, пытаться под свою задачу подогнать.