Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
pvlgzh
0 / 0 / 0
Регистрация: 08.01.2018
Сообщений: 23
1

Кто сможет перевести код из Visual Basic в C++?

27.03.2018, 13:11. Просмотров 109. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
[Function SumSeq(X() As Integer) As Integer
    SumSeq = X(1)
    n% = UBound(X, 1)
    pPrev% = 1
    pNext% = 2
    Do
      If pNext% > n% Then Exit Function
      SumSeq = SumSeq + X(pNext%)
      k% = pNext%
      pNext% = pNext% + pPrev%
      pPrev% = k%
    Loop
End Function
 
Sub Test()
Dim X(1 To 10) As Integer
    X(1) = 11
    X(2) = 22
    X(3) = 33
    X(4) = 44
    X(5) = 55
    X(6) = 66
    X(7) = 77
    X(8) = 88
    X(9) = 99
    X(10) = 111
    Debug.Print SumSeq(X)  ' Печать 209 - верно
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2018, 13:11
Ответы с готовыми решениями:

Перевести код из Delphi на Visual Basic
Здравствуйте, помогите пожалуйста перевести код из Delphi на Visual Basic ...

Можно ли перевести код из JS в Visual Basic
Есть вот такой вот код на JavaScript... Его необходимо перевести в Visual Basic...

Перевести код рисования фигур с Visual Basic .NET
Мне нужно переделать программный код с Visual Basic.NET на Visual Basic 6.0...

если кто сможет перевести программу
сидел около 2 ночей и никак не могу написать программу для курсовой в visual...

Кто пишет программы в Visual Studio 2010 на Visual Basic?
Кто пишет программы в Visual Studio 2010 на Visual Basic?

1
Catstail
Модератор
23732 / 11816 / 2066
Регистрация: 12.02.2012
Сообщений: 19,215
27.03.2018, 18:31 2
Узнаю собственный код... Было бы бесчеловечным не откликнуться:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#include <cstdlib>
#include <iostream>
 
using namespace std;
 
int SumSeq(int *X, int n)
{
  int pPrev=1,pNext=2,k,s=X[1];   
  while(1)
  {
     if (pNext > n) break;
     s+=X[pNext];
     k=pNext;
     pNext+=pPrev;
     pPrev=k;
  }
  return s;
}       
 
int main(int argc, char *argv[])
{
    int Z[]={0,11,22,33,44,55,66,77,88,99,111};
    int a;
    
    a=SumSeq(Z,sizeof(Z)/sizeof(int));
    
    cout << a << endl; // Вывод 209 - верно
    
    system("PAUSE");
    return EXIT_SUCCESS;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2018, 18:31

Нужно перевести в visual basic
Нужно перевести решение из паскаля в vb , а перевести не получается помогите...

код visual basic
На форме я создал текстовые поля и кнопку добавления и связал их с базой данных...

Код Visual Basic
Всем привет. Спецы помогите, прочитать код одной проги. Я сам не программист но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru