web-实2 HTML综合实验.doc

实验2 HTML综合实验 完成教材P102页上机练习“第5题”，制作一个“计算器”界面。 /headhtml meta http-equiv=Content-Type content=text/html; charset=gb2312 title简易计算器的应用/title style type=text/css !-- .STYLE1 { font-size: 66px; font-family: 隶书; color: #990033; } -- /style /head script language=vbscript sum=0 flag=false pending=0 sub numpressed(num) if flag then text1.value=cstr(num) flag=false elseif text1.value=0 then text1.value=cstr(num) else text1.value=text1.value+cstr(num) end if end sub sub operation(op) textvalue=text1.value if flag and op=5 then else flag=true select case pending case 1 sum=sum+csng(textvalue) case 2 sum=sum-csng(textvalue) case 3 sum=sum*csng(textvalue) case 4 sum=sum/csng(textvalue) case else sum=csng(textvalue) end select text1.value=cstr(sum) pending=op end if end sub sub clear() text1.value=0 flag=true end sub sub clearall() sum=0 pending=0 clear end sub /script body p align=center class=STYLE1简单的计算器程序/p table width=443 border=1 align=center cellpadding=0 cellspacing=0 bgcolor=#003366 tr td colspan=3 align=center valign=middleinput name=text1 type=text size=40/td td width=98 align=center valign=middleinput type=submit name=Submit value=+ onClick=operation(1)/td /tr tr td width=75 align=center valign=middleinput type=submit name=b1 value=1 onClick=numpressed(1)/td td width=119 align=center valign=middleinput type=submit name=b2 value=2 onClick=numpressed(2)/td td width=141 align=center valign=middleinput type=submit name=b3 value=3 onClick=numpressed(3)/td td align=center valign=middleinput type=submit name=Submit2 value=- onClick=operation(2)/td /tr tr td align=center valign=middleinput type=submit name=b4 value=4 onClick=numpressed(4)/td td align=center valign=middleinput type=submit name=b5 value=5 onClick=numpressed(5)/td td align=center valign=middleinput type=submit name=b6 value=6 onClick=numpressed(6)/td td align=center v