ثانوية خليص

Dim x1,x2,x3

Function Button1_onclick()

  x1=Int(TextBox1.value)

  x2=Int(TextBox1Copy.value)

  

  x3=x1*x2

  

  TextBox1Copy1.value=x3

End Function

Function Button1Copy_onclick()

  x1=Int(TextBox1.value)

  x2=Int(TextBox1Copy.value)

  

  x3=x1+x2

  

  TextBox1Copy1.value=x3

End Function

Function Button1Copy1_onclick()

  x1=Int(TextBox1.value)

  x2=Int(TextBox1Copy.value)

  

  x3=x1-x2

  

  TextBox1Copy1.value=x3

End Function

Function Button1Copy2_onclick()

  x1=Int(TextBox1.value)

  x2=Int(TextBox1Copy.value)

  If x2=0 Then

    TextBox1Copy1.value="لا يقبل القسمة على صفر "

    TextBox1Copy.value=""

  Else

    

  x3=x1/x2

  

  TextBox1Copy1.value=x3

  End If 

End Function