Помогите :3 vba

[OptimIkSs]

Module Module1

Esli ya pokazhy sis`ki na pd to vse bydet verno.

Function outputArray(arr() As Integer, size As Integer, ex_comment As String)

Console.WriteLine(ex_comment)

Dim i As Integer

i = 0

Do Until i >= size

Console.Write(arr(i).ToString + " ")

i += 1

Loop

Console.WriteLine()

End Function

Function swap(ex_arr() As Integer, ex_val1 As Integer, ex_val2 As Integer)

'Console.Write(ex_val1.ToString + " " + ex_val2.ToString)

ex_arr(ex_val1) += ex_arr(ex_val2)

ex_arr(ex_val2) = ex_arr(ex_val1) - ex_arr(ex_val2)

ex_arr(ex_val1) = ex_arr(ex_val1) - ex_arr(ex_val2)

'Console.Write(ex_val1.ToString + " " + ex_val2.ToString)

End Function

Function sdvig(ex_arr() As Integer, size As Integer)

Dim i As Integer

i = 0

Do Until i >= size - 1

swap(ex_arr, i, i + 1)

i += 1

Loop

End Function

Sub Main()

Dim arr(100) As Integer

Dim asd As Boolean

Dim input As String

asd = False

Dim i, val, iterator As Integer

iterator = 0

Do Until asd = True

Console.WriteLine("vvedite emelent massiva, ne chislo dlya ostanovki: ")

Try

input = Console.ReadLine

arr(iterator) = Convert.ToInt16(input)

iterator += 1

Catch ex As Exception

asd = True

End Try

Loop

i = 0

outputArray(arr, iterator, "Ishodnii massiv:")

sdvig(arr, iterator)

outputArray(arr, iterator, "Sdvinyle:")

asd = True

Do While asd = Not False

Console.WriteLine("Svdinyt ewe? Y - da, ne Y - vihod")

input = Console.ReadLine

If (input.Equals("Y")) Then

sdvig(arr, iterator)

outputArray(arr, iterator, "Sdvinyle:")

Else : asd = False

End If

Loop

End Sub

End Module

 

 

проверяй

[F1sher]

да она на пд теперь до следующего экзамена не зайдет

[max.mad]

Вопрос почему когда я захожу в эту тему меня посещают развратные мысли?

не надейся, она занята

АХАХХ да а я так надеялся, что она в Саратов приедет, и я её... Но ты, безпощадный человек, убил все мои мечты

[KotZhilkina]

Module Module1

Esli ya pokazhy sis`ki na pd to vse bydet verno.

Function outputArray(arr() As Integer, size As Integer, ex_comment As String)

Console.WriteLine(ex_comment)

Dim i As Integer

i = 0

Do Until i >= size

Console.Write(arr(i).ToString + " ")

i += 1

Loop

Console.WriteLine()

End Function

Function swap(ex_arr() As Integer, ex_val1 As Integer, ex_val2 As Integer)

'Console.Write(ex_val1.ToString + " " + ex_val2.ToString)

ex_arr(ex_val1) += ex_arr(ex_val2)

ex_arr(ex_val2) = ex_arr(ex_val1) - ex_arr(ex_val2)

ex_arr(ex_val1) = ex_arr(ex_val1) - ex_arr(ex_val2)

'Console.Write(ex_val1.ToString + " " + ex_val2.ToString)

End Function

Function sdvig(ex_arr() As Integer, size As Integer)

Dim i As Integer

i = 0

Do Until i >= size - 1

swap(ex_arr, i, i + 1)

i += 1

Loop

End Function

Sub Main()

Dim arr(100) As Integer

Dim asd As Boolean

Dim input As String

asd = False

Dim i, val, iterator As Integer

iterator = 0

Do Until asd = True

Console.WriteLine("vvedite emelent massiva, ne chislo dlya ostanovki: ")

Try

input = Console.ReadLine

arr(iterator) = Convert.ToInt16(input)

iterator += 1

Catch ex As Exception

asd = True

End Try

Loop

i = 0

outputArray(arr, iterator, "Ishodnii massiv:")

sdvig(arr, iterator)

outputArray(arr, iterator, "Sdvinyle:")

asd = True

Do While asd = Not False

Console.WriteLine("Svdinyt ewe? Y - da, ne Y - vihod")

input = Console.ReadLine

If (input.Equals("Y")) Then

sdvig(arr, iterator)

outputArray(arr, iterator, "Sdvinyle:")

Else : asd = False

End If

Loop

End Sub

End Module

 

 

проверяй

это не vba

[Greaver]

судя по сложности задачки, автор первого поста - тупица.

[St0rm]

зачем тебе программирование, когда есть дото

[LethalDoseInjecter]

не работай головой, работай ртом

[healms]

Закройте топан, она уже давным-давно отработала экзамен.

[max.mad]

Закройте топан, она уже давным-давно отработала экзамен.

Да уж могла хоть отписать, как всё прошло

[LittlePlanet]

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

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

 

 

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

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

 

:tusila-zavodila:

пошла на хуй шлюха тупая..

[Kakashechka]

твои няши все хуйняши

[F1sher]

Закройте топан, она уже давным-давно отработала экзамен.

Да уж могла хоть отписать, как всё прошло

да она к нам относится как к мясу, как к предмету, который ей нужен для выполнения каких-то своих действий

[1010]

Закройте топан, она уже давным-давно отработала экзамен.

Да уж могла хоть отписать, как всё прошло

да она к нам относится как к мясу, как к предмету, который ей нужен для выполнения каких-то своих действий

использовать