Подскажите что не так)

[Nalesnii]

Private Sub CommandButton1_Click()

Dim SP(6)  ' 
Dim TS '
Dim SD '
Dim NS '
Dim OBT ' 
TS = Val(TextBox1.Text)
OBT = Val(TextBox2.Text)
OT = Val(TextBox3.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2
If SP(SD * NS) = 1 Then
TS(SD) = TS(SD) / 2
SP(i * 2) = 1
End If
Next
Next
OBT(NS) = OBT(NS) + TS(SD)
For NS = 1 To 2
If OBT(NS) <= 90 Then
ks = ks + 1
End If
Next
End Sub

Ругается на выделеную строчку.
OBT(NS) = OBT(NS) + TS(SD)

[Stilet]

OBT(NS) + TS(SD)

Эти переменные у тебя не описаны как массив в отличие от Dim SP(6)
Разницу видишь?

[Nalesnii]

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

Эти переменные у тебя не описаны как массив в отличие от Dim SP(6)
Разницу видишь?

Оно начинает ругаться на OBT = Val(TextBox2.Text)
После того как проставил

[Serge_Bliznykov]

не так у Вас название темы! Это я Вам как модератор говорю.

а по сути программы, есть скалярные величины (ну простые переменные, а есть МАССИВЫ). Так вот, смешивать их НЕЛЬЗЯ.
Если Вы объявили переменную как обычную переменную ( TS, например), но писать TS(SD) нельзя, это недопустимо!!

p.s. думаю, что Вам нужно объявить массивы:

Dim TS(6) '
Dim SD '
Dim NS '
Dim OBT(6) ' 
TS(1) = Val(TextBox1.Text)
OBT(1) = Val(TextBox2.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2

но это всё равно не будет работать.
Я не знаю, какую задачу Вы решаете, но решаете Вы её неверно...
Например, бессмыслено что-то читать из массива, если Вы в этот массив ничего не записывали. Значения сами по себе в массиве не возникнут..

[Nalesnii]

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

не так у Вас название темы! Это я Вам как модератор говорю.

а по сути программы, есть скалярные величины (ну простые переменные, а есть МАССИВЫ). Так вот, смешивать их НЕЛЬЗЯ.
Если Вы объявили переменную как обычную переменную ( TS, например), но писать TS(SD) нельзя, это недопустимо!!

p.s. думаю, что Вам нужно объявить массивы:

Dim TS(6) '
Dim SD '
Dim NS '
Dim OBT(6) ' 
TS(1) = Val(TextBox1.Text)
OBT(1) = Val(TextBox2.Text)
T = 90

For SD = 1 To 3
For NS = 1 To 2

но это всё равно не будет работать.
Я не знаю, какую задачу Вы решаете, но решаете Вы её неверно...
Например, бессмыслено что-то читать из массива, если Вы в этот массив ничего не записывали. Значения сами по себе в массиве не возникнут..

Ну это я понял натупил но все равно эта строчка ругается OBT(NS) = OBT(NS) + TS(SD)