Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.
Sub abc()
a = Selection.Value
For i = 1 To UBound(a, 1)
aMin = a(i, 1): aMax = aMin
jMin = 1: jMax = 1
For j = 2 To UBound(a, 2)
If aMin > a(i, j) Then
aMin = a(i, j): jMin = j
End If
If aMax < a(i, j) Then
aMax = a(i, j): jMax = j
End If
Next j
Cells(i, jMin).Value = aMax
Cells(i, jMax).Value = aMin
Next i
End Sub
1. Терминал, консоль, phpmyadmin.
2. База знаний — совокупность знаний, относящихся к некоторой предметной области и формально представленных таким образом, чтобы на их основе можно было осуществлять рассуждения.
3.
- Минимальная избыточность.
- Непротиворечивость.
-
Целостность данных.
-
Независимость данных.
-
Возможность ведения (добавления и удаления) и актуализации (корректировки, модификации) данных.
- Безопасность и секретность.
-
Высокая производительность.
- Минимальные затраты.
- Соблюдение стандартов.
4. Access, SQL Server
5. Здравоохранения, сайты, издательский бизнес.
1.Программа алплаллалпдпдпдппжюппд
Если на клавиатуре написать это слово переключив её на английский язык, получится слово augud которое переводится как дыры.
(можете проверить!)