Одномерный массив

Sub Change_Arrays()
    Dim arrA() As Integer, arrB() As Integer, i As Integer, iCnt As Integer
    iSize = InputBox("Array size:")
    ReDim arrA(1 To iSize)
    For i = 1 To iSize
        arrA(i) = Int(Rnd * 100 - 50)
        sStr = sStr & arrA(i) & "  "
        If arrA(i) > 0 Then
            iCnt = iCnt + 1
            ReDim Preserve arrB(1 To iCnt)
            arrB(iCnt) = arrA(i)
        End If
    Next
    For i = 1 To iSize
        If arrA(i) < 0 Then
            iCnt = iCnt + 1
            ReDim Preserve arrB(1 To iCnt)
            arrB(iCnt) = arrA(i)
        End If
    Next
    sStr = sStr & vbNewLine
    For i = 1 To iSize
        If arrA(i) = 0 Then
            iCnt = iCnt + 1
            ReDim Preserve arrB(1 To iCnt)
            arrB(iCnt) = arrA(i)
        End If
        sStr = sStr & arrB(i) & "  "
    Next
    MsgBox sStr
End Sub

int( rnd*100-50) ' - Приведенное к целому случайное число в диапазоне от -50 до 50

vbNewLine ' - VB константа, означ., перевод на новую строку

const k=10
dim j, t, l as integer
dim c(1 to 10
for l=1 to k
c(l)=inputbox(l)
next l
for l=1 to k
for j=(l+1) to k
if c(l) < c(j) then
r=c(l):(cl)=c(j):c(j)
end if
next j 
next l
for L=1 to k
print c(l)
next
end sub