| Вопрос: Помогите найти ошыбку | Добавлено: 21.01.10 16:22 |
Автор вопроса:  neetro
|
|
Option Base 1
Private Sub Command1_Click() n = InputBox("n=", 15) f1 = InputBox("f1=", 10) f2 = InputBox("f2=", 50) ReDim x(n), Y(n) For i = 1 To n x(i) = Int((f2 - f1 + 1) * Rnd) + f1 List1.List(i - 1) = x(i) Next i: k = 0: S = 0: P = 1 For i = 1 To n k = k - 1: S = S + x(i): Y(k) = S + x(i): P = P * Y(k) List2.AddItem Y(k) Next i: Text3.Text = S End Sub Private Sub Command2_Click() End End Sub |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545 |
Web-сайт: Профиль | | #1 | Добавлено: 21.01.10 17:58 |
| Y(i) | ||
|
Номер ответа: 2 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 21.01.10 19:16 |
|
||
Страница: 1 |