свободно распространяемый векторный графический редактор, удобен для создания как художественных, так и технических иллюстраций (вплоть до использования в качестве САПР общего назначения, чему также лёгкость обмена чертежами). Это стало возможным во многом благодаря открытому формату SVG, развиваемому консорциумом W3C. Формат SVG позволяет создавать иллюстрации различного типа, в том числе анимированные. Поскольку SVG основан на расширяемом языке разметки (XML), к нему можно писать расширения, чем авторы Inkscape и пользуются[8]. Программа распространяется на условиях GNU General Public License.
' Объявляем массив
Dim Arr(1 To 10) As Integer
' Заполняем массив значениями от 1 до 15
Dim min, max As Integer
min = 1
max = 15
Randomize
For i = LBound(Arr) To UBound(Arr)
Arr(i) = Int((max - min + 1) * Rnd + min)
Next
' Выводим MsgBox с содержимым массива
Dim Str As String
Str = ""
For i = LBound(Arr) To UBound(Arr)
Str = Str + CStr(Arr(i)) + " "
Next
MsgBox (Str)
' Находим индекс минимального элемента
Dim minIndex As Integer
minIndex = LBound(Arr)
For i = LBound(Arr) To UBound(Arr)
If Arr(i) < Arr(minIndex) Then
minIndex = i
End If
Next
' Меняем местами минимальный элемент и последний
Dim a As Integer
a = Arr(minIndex)
Arr(minIndex) = Arr(UBound(Arr))
Arr(UBound(Arr)) = a
' Выводим MsgBox с содержимым массива
Str = ""
For i = LBound(Arr) To UBound(Arr)
Str = Str + CStr(Arr(i)) + " "
Next
MsgBox (Str)