Массивы и табулирование функций - VB

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

Прошу помощи в решении задач 1. Ввести одномерные массивы a(5) и b(5), состоящие из произвольных чисел и определить в каком из массивов больше положительных элементов. Получить и вывести новый массив С, состоящий из положительных элементов массивов a и b. 2. Эту задачу я сделал, но не могу понять где изменить код, чтобы работала правильно. вычислить значения t, соответствующие каждому значению x (xn<=x<=xk, шаг изменения x равен dx) по формуле: ((a*x)^1/3) / a + x*lg(a+x). Вычислить сумму положительных значений t, произведение отрицательных t, количество t. a=1.23 xn = -0.5 xk = 0.5 dx = 0.1 Мой код для последней программы

Module Module1
 
    Sub Main()
        Dim x, t, a, dx, xn, xk, s, p, k As Single
        xn = -0.5
        xk = 0.5
        dx = 0.1
        x = xn
        s = 0
        p = 1
        k = 0
        a = 1.23
        t = ((a * x) ^ (1 / 3)) / (a + x * Math.Log10(a + x))
        Console.WriteLine(" ")
        Console.WriteLine("x" & "      y")
        Do While x <= xk
            t = ((a * x) ^ (1 / 3) / (a + x * Math.Log10(a + x)))
            Console.WriteLine("" & x & "      " & t)
            If t >= 0 Then
                s = s + t
            Else
                k = k + 1
            End If
            If t < 0 Then
                p = p * t
            End If
 
            x = x + dx
        Loop
        Console.WriteLine(" ")
        Console.WriteLine("Сумма:" & s)
        Console.WriteLine("Произведение отрицательных t: " & p)
        Console.WriteLine("Количество значений t: " & k)
        Console.ReadLine()
    End Sub
 
End Module

Решение задачи: «Массивы и табулирование функций»

textual
                            Листинг программы 
                        

                            Option Base 1
Private Sub Form_Load()
Dim N(15, 10), i, j
Dim max As Single, min As Single, sum As Single
Dim maxRow As Byte, minRow As Byte
max = -100
min = 100
For i = 1 To 15
    sum = 0
    For j = 1 To 10
        If i <> j Then
            N(i, j) = (i + j) / (i - j)
        Else
            N(i, j) = 1
        End If
        Debug.Print N(i, j)
        sum = sum + N(i, j)
    Next j
    
    If sum > max Then max = sum: maxRow = i
    If sum < min Then min = sum: minRow = i
Next i
MsgBox "Max = " & max & " in " & maxRow & " row"
MsgBox "Min = " & min & " in " & minRow & " row"
End Sub
                        