Они отличны друг от друга, но если установить именно связь, то:
Интранет — это Интернет в миниатюре, который построен на использовании протокола IP для обмена и совместного использования некоторой части информации внутри этой организации.
Sub Zadanie()
n = CInt(InputBox("n ="))
y = 1
for i = 1 to n
y = y * (2 * i - 1)
next
MsgBox y
End Sub