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)