Напишите пожалуйста програмку !!!

[ilfat11]

Visual Basic .
Одномерный массив из N элементов заполнить с клавиатуры целыми числами. Подчитать и вывести на экран количество отрицательных чисел , содержащихся в массиве


Вот то что я написал , но basic не вычисляет

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

[Stanislav]

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

но basic не вычисляет

это не basic не вычисляет это вы не правильно бейсик написали

[Utkin]

Вы число вводите 1 раз. И вообще непонятно к чему Вы это там написали.