VPF::Error "6" - Форум программистов

Imperial_Guardian

Дата 11.10.2008, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет

Код


 
Private Sub Command1_Click()
Dim i As Integer
x = Val(Text1.Text)
i = 1
Do
  B = x ^ (2 * i) / factorial(2 * i)
  CosX = CosX + (-1) ^ i * B
  i = i + 1
Loop Until B < e
Label4.Caption = Format(CosX, "###0.0000")
End Sub

Private Sub Command2_Click()
End
End Sub

Function factorial(p As Integer) As Double
Dim z As Double
z = 1
For l = 1 To p
z = z * l
Next
factorial = z
End Function

Выдаёт error "6", переполнение. Что неправильно?

BorisVorontsov

Дата 11.10.2008, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Где объявлены переменные B, x, CosX, e и l?

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Akina

Дата 11.10.2008, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Imperial_Guardian @ 11.10.2008, 19:09

)

Выдаёт error "6", переполнение.

В какой именно строке?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »