asp-简单计算器
<P><html><BR><head><BR><script language=vbscript for=btn event=onclick><BR>dim x,y,z,m<BR>x=clng(frm.txt1.value)<BR>y=clng(frm.txt2.value)<BR>z=frm.txt3.value<BR>select case z<BR>case "+" m=x+y<BR>case "-" m=x-y<BR>case "*" m=x*y<BR>case "/" m=x/y<BR>case "%" m=x mod y<BR>default<BR>msgbox "暂时不提供你输入的符号 "<BR>end select<BR>frm.txt4.value=m<BR></script><BR></head><BR><body><BR>计算器<BR><form name=frm><BR><input type=text name=txt1 value="数据1"><BR><input type=text name=txt3 size=2><BR><input type=text name=txt2 value="数据2"><br><BR>结果:<input type=text name=txt4><br><BR><input type=button name=btn value="结果"><BR></form><BR></body><BR></html></P><P> </P>
页:
[1]