Помогите :3 vba

помоги себе сам

Софи, сходи в туалет, сфоткай сиськи побыстрому, выложи сюда и я быстренько напишу тебе

Сори, но тока Си проходил, и то 5 лет назад. Рубиш вроде программер, ему в личку попробуй написать.

он меня хейт вроде

ты ахуела на экзамене пданиться?

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

помогу если обещаешь больше не заходить на этот сайт

помогу если обещаешь больше не заходить на этот сайт

помогу если обещаешь больше не заходить на этот сайт

давай уже

Option Compare Database
Option Explicit
Option Base 1

'3,1,5,7,2 --> 1,5,7,2,3

Public TestArray() As Variant
Public Sub T()

Call FillArray(TestArray())
Call ShiftArray(TestArray())

End Sub
Public Sub FillArray(ByRef InputArray() As Variant)

   Const l As Long = 5
   ReDim InputArray(l)

   Dim i As Long

   i = i + 1: InputArray(i) = 3
   i = i + 1: InputArray(i) = 1
   i = i + 1: InputArray(i) = 5
   i = i + 1: InputArray(i) = 7
   i = i + 1: InputArray(i) = 2



End Sub
Public Sub ShiftArray(ByRef InputArray() As Variant)

   Dim i_min As Long
   Dim i_max As Long
   Dim i As Long

   i_min = LBound(InputArray())
   i_max = UBound(InputArray())

   Dim v_min As Variant
   Dim v_max As Variant
   Dim v As Variant

   v_min = InputArray(i_min)
   v_max = InputArray(i_max)

   'Debug.Print i_min, i_max, v_min, v_max

   For i = i_min To i_max

    Select Case i
	 Case i_max: v = v_min
	 Case Else: v = InputArray(i + 1)
    End Select

    InputArray(i) = v

    'Debug.Print v_min, v_max, v, InputArray(i)

   Next

End Sub

Прогиб засчитан.

Прогиб засчитан.

Option Compare Database
Option Explicit
Option Base 1

'3,1,5,7,2 --> 1,5,7,2,3

Public TestArray() As Variant
Public Sub T()

Call FillArray(TestArray())
Call ShiftArray(TestArray())

End Sub
Public Sub FillArray(ByRef InputArray() As Variant)

Const l As Long = 5
ReDim InputArray(l)

Dim i As Long

i = i + 1: InputArray(i) = 3
i = i + 1: InputArray(i) = 1
i = i + 1: InputArray(i) = 5
i = i + 1: InputArray(i) = 7
i = i + 1: InputArray(i) = 2



End Sub
Public Sub ShiftArray(ByRef InputArray() As Variant)

Dim i_min As Long
Dim i_max As Long
Dim i As Long

i_min = LBound(InputArray())
i_max = UBound(InputArray())

Dim v_min As Variant
Dim v_max As Variant
Dim v As Variant

v_min = InputArray(i_min)
v_max = InputArray(i_max)

'Debug.Print i_min, i_max, v_min, v_max

For i = i_min To i_max

	Select Case i
	 Case i_max: v = v_min
	 Case Else: v = InputArray(i + 1)
	End Select

	InputArray(i) = v

	'Debug.Print v_min, v_max, v, InputArray(i)

Next

End Sub

выдает ерор синтаксиса втф :O

'3,1,5,7,2 --> 1,5,7,2,3 - это убери

в какой строке еррор?

Она ещё выёбывается ахахах

Option Compare Database доступно только в Access

Прогиб засчитан.

Барян ты сёдня какой-то грустный

'3,1,5,7,2 --> 1,5,7,2,3 - это убери

 

в какой строке еррор?

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

НАХУЙ ПОШЛА, БЛЯДИНА.

какой-то плебейский язык

Option Compare Database
Option Explicit
Option Base 1

'3,1,5,7,2 --> 1,5,7,2,3

Public TestArray() As Variant
Public Sub T()

Call FillArray(TestArray())
Call ShiftArray(TestArray())

End Sub
Public Sub FillArray(ByRef InputArray() As Variant)

   Const l As Long = 5
   ReDim InputArray(l)

   Dim i As Long

   i = i + 1: InputArray(i) = 3
   i = i + 1: InputArray(i) = 1
   i = i + 1: InputArray(i) = 5
   i = i + 1: InputArray(i) = 7
   i = i + 1: InputArray(i) = 2



End Sub
Public Sub ShiftArray(ByRef InputArray() As Variant)

   Dim i_min As Long
   Dim i_max As Long
   Dim i As Long

   i_min = LBound(InputArray())
   i_max = UBound(InputArray())

   Dim v_min As Variant
   Dim v_max As Variant
   Dim v As Variant

   v_min = InputArray(i_min)
   v_max = InputArray(i_max)

   'Debug.Print ya sosala 100 huev, v_min, v_max

   For i = i_min To i_max

       Select Case i
        Case i_max: v = v_min
        Case Else: v = InputArray(i + 1)
       End Select

       InputArray(i) = v

       'Debug.Print v_min, v_max, v, InputArray(i)

   Next

End Sub

попробуй так.

'3,1,5,7,2 --> 1,5,7,2,3 - это убери

 

в какой строке еррор?

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

Как будто всем не похуй.

'3,1,5,7,2 --> 1,5,7,2,3 - это убери

 

в какой строке еррор?

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

Как будто всем не похуй.

ты вообще кто?