задаа VBA кто сможет

[Hugo121]

Здесь ветка "Microsoft Office Excel"
Хотя именно этот код будет всюду одинаков.

[IgorGO]

ну, что Игорь... попался)))

Sub Sort01()
  Dim a(), s As String, i As Long, c As Long
  c = InputBox("Insert number:", "Set array dimention", 16):  ReDim a(c):  c = 0:  Randomize
  For i = 1 To UBound(a): a(i) = Round(Rnd(), 0): c = c + a(i): Next
  s = Join(a)
  For i = 1 To c: a(i) = 1: Next
  For i = i To UBound(a): a(i) = 0: Next
  MsgBox "Start   array: " & s & Chr(10) & "Result array: " & Join(a), vbOKOnly, "Ready"
End Sub

[alex_94_2331]

Сообщение от IgorGO

ну, что Игорь... попался)))

Sub Sort01()
  Dim a(), s As String, i As Long, c As Long
  c = InputBox("Insert number:", "Set array dimention", 16):  ReDim a(c):  c = 0:  Randomize
  For i = 1 To UBound(a): a(i) = Round(Rnd(), 0): c = c + a(i): Next
  s = Join(a)
  For i = 1 To c: a(i) = 1: Next
  For i = i To UBound(a): a(i) = 0: Next
  MsgBox "Start   array: " & s & Chr(10) & "Result array: " & Join(a), vbOKOnly, "Ready"
End Sub

огромное спасибо дружище

[Hugo121]

Не понял про "попался"...?
Вообще-то по условиям последовательность уже есть, и сперва нужны нули
Хотя такой подход тоже годится
Но думаю проще взять готовый код сортировки - оно и универсальнее...

[IgorGO]

огромное спасибо дружище

весьма польщен.

попался... как бы это... на специалиста
я не для Алекса написал, а чтобы выдернуть тебя из этой переписки)))а то вы уже до Access добрались.

[alex_94_2331]

Сообщение от IgorGO

весьма польщен.

попался... как бы это... на специалиста
я не для Алекса написал, а чтобы выдернуть тебя из этой переписки)))а то вы уже до Access добрались.

Дано:
количество сотрудников,
Для каждого сотрудника:
Табельный номер, район, фамилия И.О., оклад (О), выслуга в офицерском звании лет (Vl), оклад по офицерскому званию (Vz), Общая выслуга лет (Ov).

посмотри может еще что сможешь сделать





Вычислить:
• Выслуга в процентах
• Надбавка за звание
• Размер пенсии в процентах
• Денежное довольствие D=O+Vz+Nz
• Сумма пенсии Sp=D Rp
• Суммарная выплата D+Sp
Найти также:
• Сумму выплат всех военнослужащих
• Среднюю сумму надбавок
• Сумму надбавки за звание для окладов >=3 000
• Максимальный и минимальный оклад
• Количество военнослужащих с пенсиями.








8. Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулем.








12. У прилавка магазина выстроилась очередь из n покупателей. Время обслуживания i-того покупателя равно ti (i =1, ...., n). Определить время Ci пребывания i-го покупателя в очереди.

[Hugo121]

Вот в чём практически никогда не участвую - это в непрактических задачах
И в этой теме не нужно было отвечать...