Перевести программу для вычисления суммы ряда с C++ на VBA

@jaasto · Регистрация: 16.07.2013

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

Здравствуйте!
Недавно перешёл на VBA. Ничего ещё понять немогу.

Кто поможет, переведите код с C++ на VBA:

C++ (Qt)

 int main()
{
    double i, g;
    for (i=1; i<=10;i++);
    {
        long float s;
        float f=1;
        s=0;
        {
            for (g=1;g<=i-1;g++)
            f*=g;
            s=s+(pow(-1, (2*i-1))/f);
        }
        cout<<"s="<<s<<endl;
    }
        system ("pause");
        return 0;
}

Заранее вам очень благодарен!

Добавлено через 3 часа 45 минут
Очень прошу вашей помощи. Никак сообразить немогу...

@Sasha_Smirnov · 18.12.2013, 02:42

А то как же! Неужели так: «Я и сам бы справился, но лень»?

@jaasto · 18.12.2013, 03:04 **[ТС]**

Если было бы так, то я бы не писал.

Мои наработки:

VB.NET

Dim i As Double
 Dim g As Double
 
 For i = 1 To 10
   Next
   'Тут я незнаю, кроме что S=0
   Next
 
  For g = 1 To i - 1
    f *= g 'тут неправильно
Next
s = s + (pow(-1, (2 * i - 1)) / f) ' тут незнаю как, и что делать с pow
Next
 
Console.Write(": " & S)

Всё что я смог.

@ikki · 18.12.2013, 09:45

1. в VB(A) пишут так:

Visual Basic

f = f * g

2. строка 6 - таки да: s=0, кроме того, f=1

Visual Basic

6	f = 1: s = 0

3. строки 5 и 7 - убрать совсем (как можно до них додуматься - ума не приложу

4. возведение в степень:

Visual Basic

12	s = s + ((-1) ^ (2 * i - 1)) / f

ну и напоследок:
раз уж объявляете переменные, то объявляйте все. конечно, можно делать это в стиле C++ - посреди кода, но лучше таки в начале.
кроме того, переменные для счётчиков циклов лучше объявлять целыми.
итого:

Visual Basic

1 2	Dim i As Integer, g As Integer Dim s As Double, f As Double

Сообщение от jaasto

Недавно перешёл на VBA.

видимо, одной ногой и с закрытыми глазами.

Добавлено через 5 минут
пс. строка 15 у вас - это не VBA.

@Sasha_Smirnov · 18.12.2013, 10:12

Добавлю, что программу полезно сначала описать на обычном человеческом языке.

Благодаря встроенным и самодельным объектам, ваш код может иногда выглядеть очень просто:

Visual Basic

1	Application.MyKeenSlave.DoThisGently

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	18.12.2013, 02:42	2
	А то как же! Неужели так: «Я и сам бы справился, но лень»? 0

	18.12.2013, 10:12