1. Режим разметки страницы - режим набора, редактирования и форматирования документов. Он включен по умолчанию.
2. Режим Web-документа - в этом режиме отображается фон страницы, текст выравнивается по левой границе окна документа, а рисунки занимают те же позиции, что и в окне Web-обозревателя.
3. Режим черновика - упрощенный режим разметки страницы. Позволяет сосредоточиться на тексте.
4. Режим чтения - текст разбиваться на небольшие фрагменты, а также увеличивается шрифт.
5. Режим структуры документа - в режиме структуры не отображаются границы страниц, колонтитулы, рисунки, фон и другие элементы оформления документа. Редактирование документа возможно. Можно производить манипуляции с заголовками.
6. Режим просмотра во весь экран - в этом режиме можно видеть текст документа без лишних экранных элементов.
Dim Array() As Byte = {102, 103, 105, 105, 104, 108, 101, 109, 111, 113}
GnomeSort(Array, True)
End Sub
' // Алгоритм гномьей сортировки
Sub GnomeSort(ByRef Array() As Byte, ByVal ToUpper As Boolean)
Dim tui As Integer, index As Integer, last As Integer
If (ToUpper = True) Then tui = 1 Else tui = -1
index = 1
last = 2
Do
If ((Array(index) * tui) < (Array(index - 1) * tui)) Then
SWAP(Array(index), Array(index - 1))
index -= 1
If (index = 0) Then
index = last
last += 1
End If
Else
index = last
last += 1
End If
Loop While (index < (UBound(Array) + 1))
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
End Sub
' // Функция обмена двух переменных
Private Function SWAP(ByRef ic_a As Integer, ByRef ic_b As Integer) As Boolean
Dim Dump As Integer = ic_a
ic_a = ic_b
ic_b = Dump
Return True
End Function