首页
印 像 新 闻 系 统
网站首页 公告信息 编程实例 PHP函数 摄影无界 全景展示 我的作品 意见专栏
 

计算器+.-.*./小例子

【2005年12月31日 12:50:10】 【阅读:次】 【字体:大 中 小 默认】 【背景:#换背景 #换背景 #换背景 #换背景 #换背景 #换背景 #换背景 默认】
<form action=calculator.asp method=post>
操作数1: <input type=text name=num1><br>
操作数2: <input type=text name=num2><br>
<p>
选择你要进行的操作<br>
<input type=radio name=operation value="加" checked>加<br>
<input type=radio name=operation value="减">减<br>
<input type=radio name=operation value="乘">乘<br>
<input type=radio name=operation value="除">除<br>
<input type=submit><input type=reset>
</form>
<hr>
<%
dim n1,n2,op
if request.form.count=0 then
 response.end
end if
n1=request.form("num1")
n2=request.form("num2")
op=request.form("operation")
if op="加" then
    response.write n1
    response.write "+"
    response.write n2
    response.write "="
    response.write clng(n1)+clng(n2)
elseif op="减" then
    response.write n1
    response.write "-"
    response.write n2
    response.write "="
    response.write clng(n1)-clng(n2)
elseif op="乘" then
    response.write n1
    response.write "*"
    response.write n2
    response.write "="
    response.write clng(n1)*clng(n2)
elseif op="除" then
    response.write n1
    response.write "/"
    response.write n2
    response.write "="
    response.write clng(n1)/clng(n2)
end if
%>

(『印像空间』 【本文来源:『学习笔记』】 【作者:未知】 【录入:留印】)
限200字,剩余 字
关 键 字:
    
搜索条件: