Вывод массива на рабочий лист - VBA

Формулировка задачи:

Массив и результат работы программы надо чтобы выводился на рабочий лист.

                    Листинг программы
                
 
                        
                          
                    
Sub main()
Randomize Timer
Dim n As Integer, i As Integer, j As Integer, R As Double
ReDim x(n)
For i = 0 To n
x(i) = Int(40 * Rnd) - 20
MsgBox ("" & x(i))
Next
For i = 0 To n
If x(i) > 0 Then
For j = n To 0 Step -1
If x(j) < 0 Then
R = x(i) - x(j)
MsgBox ("Разность = " & R)
GoTo 100
End If
Next j
MsgBox ("Отрицательных чисел нет")
GoTo 100
End If
Next i
MsgBox ("Положительных чисел нет")
100
End Sub
 
Sub main1()
Dim i As Integer, j As Integer, s As Double
Randomize Timer
Const m = 4
Const n = 7
Dim x(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
x(i, j) = Int(40 * Rnd) + 1
Next j
Next i
For i = 2 To m Step 2
For j = 1 To n
s = s + x(i, j)
Next j, i
MsgBox ("S = " & s)
End Sub

Решение задачи: «Вывод массива на рабочий лист»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub main()
Randomize Timer
Dim N, i, j, R As Integer
N = 6
Cells(1, 1) = "X(i)"
ReDim x(N)
For i = 0 To N
x(i) = Int(40 * Rnd) - 20
Cells(i + 2, 1).Value = x(i)
Next
For i = 0 To N
If x(i) > 0 Then
For j = N To 0 Step -1
If x(j) < 0 Then
R = x(i) - x(j)
Cells(1, 2) = "Разность =" & R
Exit Sub
End If
Next j
Cells(1, 2) = "Отрицательных чисел нет"
Exit Sub
End If
Next i
Cells(1, 2) = "Положительных чисел нет"
 
End Sub
 
Sub main1()
Dim i As Integer, j As Integer, s As Double
Randomize Timer
Const m = 4
Const N = 7
Dim x(1 To m, 1 To N)
For i = 1 To m
For j = 1 To N
x(i, j) = Int(40 * Rnd) + 1
Cells(1, j + 4) = "J=" & j
Cells(i + 1, 4) = "i=" & i
Cells(i + 1, j + 4) = x(i, j)
Next j
Next i
For i = 2 To m Step 2
For j = 1 To N
s = s + x(i, j)
Next j, i
Cells(i + 1, j + 3) = "S = " & s
 
End Sub