петр васильев

В матрице А все строки, где есть нули, заполнить единицами, подсчитать сумму всех элементов матрицы

программа которую я написал:

Private Sub CommandButton1_Click()
Dim b(1 To 6, 1 To 8) As Single, F As Single
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 8
b(i, j) = Cells(i + 3, j)
Next j
Next i
For i = 1 To 6
For j = 1 To 8
If b(i, j) = 0 Then b(i, j) = 1
Next j

For j = 1 To 8

Cells(i + 14, j) = b(i, j)
Next j
Next i
End Sub

Исправьте пожалуйста мои ошибки, а то я не очень соображаю в программировании, а задание нужно сдать через два дня...




заранее благодарю