תיקון לפתרון תרגילים :

תרגיל - 1

option explicit

  dim diameter,radius,pi

  diameter = inputbox("ENTER DIAMETER")

  pi=3.14
  radius=diameter/2


msgbox "area is " & pi*radius*radius & vbcr & "perimeter is " & 2*pi*radius,vbokcancel+vbinformation,"DIAMETER"

_________________________________________________________

תרגיל - 2

option explicit


  dim length,width
  dim area,title
  title = "*** Rectangle Calculator ***"

  msgbox "This Script Will Calculate Your Rectangle " & vbcr & "LENGTH & 
  WIDTH",vbinformation,title

  length=inputbox("Please Enter Rectangle Length", title ,"Enter Length")

  width=inputbox("Please Enter Rectangle Width", title ,"Enter Width")

  msgbox "Rectangle Length Is " & length & vbcr & "Rectangle Width Is " & width & vbcr&"Your Rectangle Area IS " &length*width & vbcr & "Rectangle Scope is " &  (2*length)+(2*width),vbinformation,title