Ошибка в коде Basic

[cherry25]

Подскажите, пожалуйста, в чем заключается ошибка? Останавливается на на строке "LstY.AddItem (y(i))". Спасибо!


код:
Option Explicit
Option Base 1
Dim x(6) As Single
Dim y(6) As Single
Dim i As Byte
Dim m As Single
Private Sub CmdВвод_Click()
m = InputBox("Ввести m", "Введення m")
lblc.Caption = ("m=" + Str(m))
For i = 1 To 6
x(i) = InputBox("Ввести елемент масиву х" + Str(i), "введення елементiв масиву х")
LstX.AddItem (x(i))
Next i
End Sub
Private Sub CmdЗакрити_Click()
End
End Sub
Private Sub CmdСтарт_Click()
For i = 1 To 6
If x(i) > 2 Then
y(i) = m * Exp(3) + x(i)
Else
y(i) = 1 / (Tan(3 * x(i))) ^ 2
End If
LstY.AddItem (y(i))
Next i
End Sub

[doober]

Уберите скобки

LstX.AddItem  x(i)

[cherry25]

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

Уберите скобки

LstX.AddItem  x(i)

Спасибо, попробовала - не работает. LstX.AddItem x(i) пропускает без ошибок, останавливается на LstY.AddItem y(i)

[cherry25]

Может, так будет понятней, что мне нужно сделать? Сорри за вид формулы, не нашла в офисе Ms Equation
Yi=(ctg3xi)^2, xi<=2
Yi=me^3+xi, xi>2

[doober]

Тогда так,как в архиве

[cherry25]

Спасибо, разобралась