ошибка

@*Мария* · Регистрация: 26.12.2010

Author24 — интернет-сервис помощи студентам

помогите исправить программу. при проверке выдается сообщение: Next without For.
сообщение адресовано 27-й строке.

Visual Basic

Private Sub Command5_Click()
Dim i As Integer, l As Single, k As Single
ReDim x(n)
'задание масштаба
Picture1.Scale (-2, 6)-(n + 2, -2)
'ось абсцисс
Picture1.Line (-2, 0)-(n + 1, 0)
 For i = -2 To 20
  Picture1.PSet (i, 0)
  Picture1.Print i
 Next i
'ось ординат
Picture1.Line (0, -2)-(0, 6)
 For i = -2 To 6
  Picture1.PSet (0, i)
  Picture1.Print i
 Next i
'построение графика
 For i = 1 To n
  l = fun(i)
  k = fun(i + 1)
  If l > k Then
   Picture1.Line (i, l)-(i + 1, k + 1), vbRed
  If l < k Then
   Picture1.Line (i, l)-(i + 1, k - 1), vbRed
 Next i
End Sub

@XoFfiCEr · 08.01.2011, 18:51

ну вообще то не хватает end if

@*Мария* · 09.01.2011, 03:18 **[ТС]**

пасиб)

@XoFfiCEr исследователь 325 / 104 / 3 Регистрация: 18.03.2010 Сообщений: 1,079 Записей в блоге: 2
	08.01.2011, 18:51	2
	ну вообще то не хватает end if 0

@Мария 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 11
	09.01.2011, 03:18 [ТС]	3
	пасиб) 0