VPF::Натуральное число n - Форум программистов

Anna4ka

Дата 1.5.2010, 19:22 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.4.2010

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

Помагите пожалуйста smile

Присоединённый файл ( Кол-во скачиваний: 5 )

___.doc 23,50 Kb

LOPUH

Дата 1.5.2010, 19:24 (ссылка)

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

Загрузка ...

Растение

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

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

Калькулятора нет?

Anna4ka

Дата 1.5.2010, 19:35 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.4.2010

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

Это вообще то на вба надо написать программу!!!

LOPUH

Дата 1.5.2010, 19:38 (ссылка)

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

Загрузка ...

Растение

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

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

Ну как бы покажите,что написали,вместе ошибки поищем

dorogoyIV

Дата 1.5.2010, 23:15 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Код


Sub CountP()
 Dim n As Integer
 n = InputBox("enter number")
 
 If (n > 2) Then
  CountAndShowResult n
 Else
  MsgBox "Not correct data"
 End If
End Sub

Private Function CountAndShowResult(ByRef n As Integer)
 Dim p As Double
 p = 1
 Dim d As Double
 
 For i = 2 To n
  d = 1 - 1 / (i ^ 2)
  p = p * d
 Next i
 MsgBox p
End Function

Данкинг

Дата 1.5.2010, 23:29 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Anna4ka @ 1.5.2010, 20:22

)

Помагите пожалуйста

С чем помогать? smile

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

There's nothing left but silent epitaphs.

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