решить задачу в vb

Случайным образом определить 6 чисел в интервале [-20;130). занести полученные числа в массив А (6,4) следующим образом: если х<=0 - во вторую колонку, х>40 в третью колонку.