Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Работа на екселе

Работа на екселе - вопрос №184210

Помогите пожалуйста по информатике, работа на ЕКСЕЛЕ.В чем моя ошибка?

Private Sub CommandButton1_Click()

Dim s, ds As Single

 n = Val(InputBox(«Введите n», «Окно ввода n»)) 

s = 1

For m = 1 To n

p = 1 For x = 1 To m p = p * x

Next x ds = (-1) ^ n * (2 ^ (2 * n)) * (x ^ (2 * n))\ 2 * n

s = s + ds

Next m

MsgBox " Суииа членов ряда S=" & s & " ïðè n = " & n 

End Sub

sandal
18.01.12
Учеба и наука / Информатика
0 ответов
Ответов пока нет

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее