Циклические операции. Программа не выдает ни результата, ни ошибки

@gudvin666 · Регистрация: 13.12.2010

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

простенькая задача вроде исходник правильный а вывод с ошибкой то есть, ошибки не какой не выводит, да и вообще не какого результата не выводит. понять не могу только начал изучать vb не могу разобраться ткните носом в ошибку

Visual Basic

Private Sub Command1_Click()
x = Val(Text1.Text)
s = 1
For i = 1 To x Step 2
For j = 1 To i
s = s * j
Next j
t = t + 1
q = q + (-1) ^ t * ((x ^ i) / s)
Next i
Text2.Text = q
End Sub

задача и форма прикреплена

@gudvin666 · 28.02.2012, 19:04 **[ТС]**

все спасибо уже исправил

@~~Апострофф~~ · 28.02.2012, 19:19

Всё равно выложу, зря старался, что-ли

Может, найдешь что полезного для себя

Visual Basic

Private Sub Command1_Click()
x = Val(Text1.Text)
s = 1
t = 1
j = 1
'For i = 1 To x Step 2
For i = 1 To 13 Step 2
  For j = j To i '!!! j = j to ...
    s = s * j
  Next j
  't = t + 1
  'q = q + (-1) ^ t * ((x ^ i) / s)
  q = q + t * ((x ^ i) / s)
  t = -t '!!!
Next i
Text2.Text = q
End Sub

@gudvin666 17 / 17 / 8 Регистрация: 13.12.2010 Сообщений: 123
	28.02.2012, 19:04 [ТС]	2
	все спасибо уже исправил 0

	28.02.2012, 19:19