有哪些信誉好的足球投注网站- 1、本文档共11页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
实验2HTML综合实验
完成教材P102页上机练习“第5题”，制作一个“计算器”界面。
/headhtml
metahttp-equiv=Content-Typecontent=text/html;charset=gb2312
title简易计算器的应用/title
styletype=text/css
!--
.STYLE1{
font-size:66px;
font-family:隶书;
color:#990033;
}
--
/style
/head
scriptlanguage=vbscript
sum=0
flag=false
pending=0
subnumpressed(num)
ifflagthen
text1.value=cstr(num)
flag=false
elseiftext1.value=0then
text1.value=cstr(num)
else
text1.value=text1.value+cstr(num)
endif
endsub
suboperation(op)
textvalue=text1.value
ifflagandop=5then
else
flag=true
selectcasepending
case1
sum=sum+csng(textvalue)
case2
sum=sum-csng(textvalue)
case3
sum=sum*csng(textvalue)
case4
sum=sum/csng(textvalue)
caseelse
sum=csng(textvalue)
endselect
text1.value=cstr(sum)
pending=op
endif
endsub
subclear()
text1.value=0
flag=true
endsub
subclearall()
sum=0
pending=0
clear
endsub
/script
body
palign=centerclass=STYLE1简单的计算器程序/p
tablewidth=443border=1align=centercellpadding=0cellspacing=0bgcolor=#003366
tr
tdcolspan=3align=centervalign=middleinputname=text1type=textsize=40/td
tdwidth=98align=centervalign=middleinputtype=submitname=Submitvalue=+onClick=operation(1)/td
/tr
tr
tdwidth=75align=centervalign=middleinputtype=submitname=b1value=1onClick=numpressed(1)/td
tdwidth=119align=centervalign=middleinputtype=submitname=b2value=2onClick=numpressed(2)/td
tdwidth=141align=centervalign=middleinputtype=submitname=b3value=3onClick=numpressed(3)/td
tdalign=centervalign=middleinputtype=submitname=Submit2value=-onClick=operation(2)/td
/tr
tr
tdalign=centervalign=middleinputtype=submitname=b4value=4onClick=numpressed(4)/td
tdalign=centervalign=middleinputtype=submitname=b5value=5onClick=numpressed(5)/td
tdalign=centervalign=middleinputtype=submitname=b6value=6onClick=numpressed(6)/td
tdalign=centerva
文档评论（0）