Изучить возможности служебных программ и утилит компьютера. 2. Пользуясь изученными утилитами, определить следующие характеристики компьютера:
image
3. Понаблюдать за степенью загрузки процессора в различных состояниях и заполнить таблицу:
image
4. Проверить необходимость дефрагментации жесткого диска и, при необходимости, выполнить его дефрагментирование.
Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean)
Dim Dump As Integer
Dim Index As Integer
Dim Work As Integer
Do
For i As Integer = Work To UBound(Array)
If ToUpper = True Then
If (Array(Index) > Array(i)) Then Index = i
Else
If (Array(Index) < Array(i)) Then Index = i
End If
Next
Dump = Array(Index)
Array(Index) = Array(Work)
Array(Work) = Dump
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Work += 1
Index = Work
Loop Until (Work > UBound(Array))
End Sub