Dim a as byte 'обьявляем переменную
Dim count as byte 'обьявляем счётчик  
'предварительно читаем переменную к, допустим, из текстбокса
Redim a ( 1  to k) 'здесь создаём массив от 1 до к
for i =  1  to k 'это уже цикл
if a(i)< 0  then 
a(i)= 0  
count = count +  1 
end if
print a(i) & " "
next 

'допустим, мы уже прочипали всё что нам нада. вотон цикл
for i =  1  to m
if a(i) mod b =  0  then 'если остаток от деления равен 0 тогда
count = count +  1  'счетчик увеличивается
print a(i) & " " 'печатаем на форме
end if 
next