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("請輸入一個整數(shù)：“）

if a mod 2=0 then

   msgbox("您輸入的是一個偶數(shù)“ & a)

else

          msgbox("您輸入的是一個奇數(shù)“ & a)

        end if