加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

在VBS中 求一组数的max,min,sum,average

(2009-11-25 11:13:01)
标签:

vbs

split

min

max

sum

avg

教育

分类: Web开发之轩

<html>
 <head><title>求一组数的max,min,sum,avg</title>
       <style type="text/css">
<!--
.STYLE1 {
 color: #FFFFFF;
 font-weight: bold;
}
 #mystr,#tmax,#tmin,#tsum,#tavg {border:0px width:50px}
-->
        </style>
       
       
  <script type="text/vbscript">
     sub mypreviously()
    mystr.focus
    end sub
   
    sub myexam()
     mynum=mystr.value
      myarray=split(mynum,",")   '字符串分割函数:split(字符串,"分割符")
     
      mymax_result=csng(myarray(0))
      mymin_result=csng(myarray(0))
      for i=0 to ubound(myarray)  

         mysum_result=mysum_result+csng(myarray(i))   '求sum
     

     if csng(myarray(i))>mymax_result then        '求max
      mymax_result=csng(myarray(i))
     end if
     if csng(myarray(i))<mymin_result then        '求min
      mymin_result=csng(myarray(i))
     end if
     next
      myavg_result=mysum_result/5    '求avg

     '输出结果:
     tmax.value=mymax_result
     tmin.value=mymin_result
     tsum.value=mysum_result
     tavg.value=myavg_result
   end sub
  </script>
</head>
 <body onload=mypreviously>
 <table width="494" height="130" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0033CC">
      <tr>
        <td colspan="2" align="center" bgcolor="#0066FF"><span class="STYLE1">求一组数的sum,avg,max,min 程序 </span></td>
      </tr>
      <tr>
        <td width="155" align="center" bgcolor="#FFFFFF">请输入一组数:</td>
        <td width="336" bgcolor="#FFFFFF">
          <input type="text" name="textfield" id="mystr"><span style="color: #999999;
 font-size: 12px;">格式如(1,2,3)</span>
       </td>
      </tr>
      <tr>
        <td align="center" bgcolor="#FFFFFF">最大值(max): </td>
        <td bgcolor="#FFFFFF"><input type="text" id="tmax" name="textfield2" readonly></td>
      </tr>
      <tr>
        <td align="center" bgcolor="#FFFFFF">最小值(min):</td>
        <td bgcolor="#FFFFFF"><input type="text" id="tmin" name="textfield3"readonly></td>
      </tr>
      <tr>
        <td align="center" bgcolor="#FFFFFF">总和(sum):</td>
        <td bgcolor="#FFFFFF"><input type="text" id="tsum" name="textfield4"readonly></td>
      </tr>
      <tr>
        <td align="center" bgcolor="#FFFFFF">平均值(average):</td>
        <td bgcolor="#FFFFFF"><input type="text" id="tavg" name="textfield5"readonly></td>
      </tr>
      <tr>
        <td colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="提交" onclick="myexam()"style="kground-color:#CCCC33;font-weight:bold">
        </td>
      </tr>
    </table>
 </body>
</html>

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有