S, a - должны быть целочисленными, а не вещественными.
По предоставленному коду и своему опыту могу предположить что суммирует все четные элементы матрицы
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
<span>устройство обеспечивающие обмен информацией с контроллерами периферических устройств, называется
шина</span>