Помогите :3 vba

[~Sofi]

Ребятки, пож, помогите с программой в VBA

сижу на экзамене очень нид :3

 

 

Запрограммируйте циклический сдвиг влево элементов одномерного массива

Например: 3,1,5,7,2 --> 1,5,7,2,3

 

:tusila-zavodila:

[1010]

например иди нахуй

[F1sher]

Софи в конец ахуела заходит в таверну для того чтобы ей только помогли

[healms]

Охуеть.

[~Sofi]

Софи в конец ахуела заходит в таверну для того чтобы ей только помогли

ну оооочень нид :3

я всегда знаю, что продотка мне поможет в трудную минуту <3

[1010]

не поможет никто тебе чисто из прынцыаппа

[~Sofi]

1010 ещё жив на пдшке

а помощь так и не пришла(

[NirvanaShow]

нехуй ездить куда не надо

[max.mad]

Врятле тебе тут кто поможет хотя задача очень простая, но программисты очень ленивы.

Нет.

пидора ответ

 

[~Sofi]

ну для вас это же так изи, где добрая душа, которая мне поможет

[Flamenko]

Софи в конец ахуела заходит в таверну для того чтобы ей только помогли

ну оооочень нид :3

я всегда знаю, что продотка мне поможет в трудную минуту <3

ошибочка

[sng]

А сиськи?

[Dux]

ответ с гугла #include <iostream>

#include <algorithm>

using namespace std;

int main() {

int a[] = { 3, 1, 5, 7, 2 }, s = sizeof(a) / sizeof(a[0]);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

rotate(a, a + s - 1, a + s);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

}

 

и еще

 

1 Sub main()

2 Dim txt As String

3 Dim i As Byte, temp As String

4 txt = InputBox("Slovo")

5 temp = Left(txt, 1)

6 For i = 1 To Len(txt) - 1

7 Mid(txt, i, 1) = Mid(txt, i + 1, 1)

8 Next i

9 Mid(txt, Len(txt), 1) = temp

10 MsgBox txt

11 End Sub

Изменено 15 января 2013 пользователем Dux

[F1sher]

на C бы сделал, бесик не знаю

[~Sofi]

ответ с гугла #include <iostream>

#include <algorithm>

using namespace std;

int main() {

int a[] = { 3, 1, 5, 7, 2 }, s = sizeof(a) / sizeof(a[0]);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

rotate(a, a + s - 1, a + s);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

}

это вообще vb?

[ClayMan]

слишком легко же

делай сама, нехуй было играть в доту весь семестр :tusila-zavodila:

[Гость BeiPoEbaly]

1010 ещё жив на пдшке

а помощь так и не пришла(

Забей на всё, Это очень трудное задание, иди в магаз за пивком- отмечай сессию-жизнь наладится!!!

 

ответ с гугла #include <iostream>

#include <algorithm>

using namespace std;

int main() {

int a[] = { 3, 1, 5, 7, 2 }, s = sizeof(a) / sizeof(a[0]);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

rotate(a, a + s - 1, a + s);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

}

это вообще vb?

УХАХХАА Это СИ ублюдок хочет тебя подставить)

[~Sofi]

слишком легко же

делай сама, нехуй было играть в доту весь семестр :tusila-zavodila:

как я могла променять дотку на пары

[EbalKopal]

ответ с гугла #include <iostream>

#include <algorithm>

using namespace std;

int main() {

int a[] = { 3, 1, 5, 7, 2 }, s = sizeof(a) / sizeof(a[0]);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

rotate(a, a + s - 1, a + s);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

}

это вообще vb?

cout - конечно vb!

[ClayMan]

ответ с гугла #include <iostream>

#include <algorithm>

using namespace std;

int main() {

int a[] = { 3, 1, 5, 7, 2 }, s = sizeof(a) / sizeof(a[0]);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

rotate(a, a + s - 1, a + s);

for (int c = 0; c < s; cout << a[c++] << ' ') ;

cout << endl;

}

это вообще vb?

конечно нет

и вообще здесь встроенная функция или что то в этом роде используется, а тебе надо всю логику ручками написать :3