grade.html

来自「《动态网页设计基础教程》,胡杰,科学出版社」· HTML 代码 · 共 46 行

HTML
46
字号
<Html>
<Head>
<Title>学期成绩计算表</Title>
<Script Language="VBScript">
<!--
  Sub Cal_Onclick
   Result.Tatal.Value=Cint(Result.Grade1.Value) _
     * Cdbl(Result.Grade1Rate.Value) _
     +Cint(Result.Grade2.value) * cdbl(Result.Grade2Rate.value) _
     +cint(Result.Grade3.value) * cdbl(Result.Grade3Rate.value)
   End Sub
-->
</Script>
</Head>

<Body>
<Center>
<H1>
  <B><Font color="blue">学期成绩计算表</Font></B></H1>
<Form method="post" name="result">
  <P>   
  平时成绩: 
  <input type="text" name="Grade1" size="20">     
  平时成绩所占比例: 
  <Input type="text" name="Grade1Rate" value="0.2" size="5"> <Br>    
  期中成绩: 
  <input type="text" name="Grade2" size="20">     
  期中成绩所占比例: 
  <Input type="text" name="Grade2Rate" value="0.3" size="5"> <Br>    
  期末成绩: 
  <Input type="text" name="Grade3" size="20">     
  期末考绩所占比例: 
  <Input type="text" name="Grade3Rate" value="0.5" size="5">   
  <Div align="Center"><P>     
  <Input type="Button" value="计算您的成绩" name="cal">
  <Input type="Reset" value="重新输入" name="reset">  
  </Div>    
  <P><Div align="Center">
恭喜您!您的学期成绩是 
  <Input type="text" name="tatal" size="16"> 
  </Div>    
</Form>  
</Center>
</Body>    
</Html>    

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?