Помогите :3 vba

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

 

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

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

сиськи преподу покажи

+1 к сиськам

Софи, давай по питеру погуляем, я тебе расскажу, как учиться на 4 и 5, не напрягаясь и вообще все быстро сдавать, возьму тебя в свою 10ку в МММ, а потом вывезу в лес и изнасилую?

выбирай нам или преподу

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

АХХАХАХАХА

В топанх по программированию нельзя было написать?

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

 

АХХАХАХАХА

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

 

АХХАХАХАХА

пофиксили уже?

В топанх по программированию нельзя было написать?

линк

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

 

АХХАХАХАХА

ахаххаха блять пиздец !!!!

 

Module Module1
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, да и с хуя ли массивы у тебя целочисленные?

не знал VB до этого дня, узнал что это полная хуета

и в тз нет инфы про R/N

че такое VBA?

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

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

 

 

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

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

 

:tusila-zavodila:

Ты пришла и говоришь: мне нужна помошь с VBA. Но ты просишь без уважения, ты не предлагаешь дружбу, ты даже не запостила фотку своих сисек

давно не видел котечки :3

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

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

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

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

Без сисек ничего не сделаю

Бейсик не язык