Cрочно! язык visual basic,массивы - : 1)заменить значение любого элемента массива на а 2)определить имеются ли четные числа в массиве 3)заменить все элементы некоторой строки на заданное число 4)вывести все элементы n столбца и m строки

1)
a=InputBox("Введите а")
n=InputBox("Введите номер элемента")
mas(N)=a

2)
s="No"
For i=1 to n
   If (mas(i) mod 2=0) then s="Yes"
next i
MsgBox(s)

3)
a=InputBox("Введите а")
n=InputBox("Введите номер строки")
For i=1 to n
  mas(n,i)=a
next i

4)
n=InputBox("Введите номер столбца")
m=InputBox("Введите номер строки")
for i=1 to k
  s=s & mas(m,i) &" "
  t=t & mas(i,n) & " "
next i
MsgBox(s)
MsgBox(t)