Проверьте пожалуйста

Dim i As Integer
Private Sub Command2_Click()
k = 0
N = Val(Text1.Text)
For i = 0 To N - 1
If i < 0 Then k = k + 1
Picture2.Print k
End If
Next i
End Sub

Dim i As Integer
Private Sub Command2_Click()
k = 0
N = Val(Text1.Text)
For i = 0 To N - 1
If i < 0 Then 'с какого перепугу i может быть меньше 0?
 k = k + 1
Picture2.Print k
End If
Next i
End Sub

Private Sub Command2_Click()
    Dim A() As Integer, i As Integer, n As Integer, k As Integer, s As String
    'n = Val(Text1.Text)
    n = Val(InputBox("Введите размер массива (N)", "Ввод данных", 5))
    ReDim A(1 To n)
    Randomize
    For i = 1 To n
         A(i) = Val(InputBox("Введите A(" & i & ")", "Ввод данных", Int(Rnd * 21 - 10)))
         s = s & A(i) & "  " 'vbTab
         If A(i) < 0 Then k = k + 1
    Next i
    MsgBox "Массив:" & vbCrLf & s & vbCrLf & "Отрицательных чисел в массиве: " & k
End Sub

Private Sub Command1_Click()
Dim s, a As Double
Dim k As Integer
Picture1.Cls
Picture2.Cls
Picture1.Print "  k     a(k)       s(k)"
s = 0
For k = 1 To 10
    a = 1 / ((k ^ 2) + 3 * k + 4)
    s = s + a
    Picture1.Print k; "  "; Format(a, "00.00000"); "    "; Format(s, "00.00000")
Next k
Picture2.Print Format(s, "00.000")
End Sub