нихрена вдуплить не могу как это писаться должно
dim x,y,z
x=inputbox("Введите Х")
y=inputbox("Введите Y")
z=cLng(x)+cLng(y)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set myfile = objFSO.CreateTextFile("result.txt", True)
myfile.WriteLine (x & "+" & y & "=" & z)
myfile.Close
msgbox x & "+" & y & "=" & z & vbcrlf & "Резултат сохранен в result.txt"
...и выводились желательно бы тоже в блокноте...
...результат должен выводиться в отдельный файл
z=cInt(x)+cInt(y)
z=cLng(x)+cLng(y)
open("D:\2+2.txt")For Input As #myfile
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.