RosettaCodeData/Task/A+B/VBScript/a+b-1.vb

7 lines
105 B
VB.net

s=InputBox("Enter two numbers separated by a blank")
t=Split(s)
a=CInt(t(0))
b=CInt(t(1))
c=a+b
MsgBox c