3个文本框的数据类型都要设成“数值型”
a=thisform.text1.value
b=thisform.text2.value
d=thisform.optiongroup1.value
do case
case d=1
c=a+b
case d=2
c=a-b
case d=3
c=a*b
case d=4
c=a/b
endcase
thisform.text3.value=c