r=val(inputbox("请输入半径：“）

s=3.1416*r^2

msgbox("圆的面积为“ & s)

交换两变量的值：

a=val(inputbox("请输入A：“）

b=val(inputbox("请输入B：“）

t=a:a=b:b=t

msgbox("交换后A=“ & a & "   B=" & b)

判断语句：

a=val(inputbox("请输入一个整数：“）

if a mod 2=0 then

   msgbox("您输入的是一个偶数“ & a)

else

          msgbox("您输入的是一个奇数“ & a)

        end if