<script language="vbscript" for="abc" event="onclick">
dim ab,ba
ab=1
ba=0
do while ab<=100
ba=ba+ab
ab=ab+1
loop
form1.txt.value=ba

</script>
</head>

AB就是一个自加1运算,一直加到100

BA是从1加到100的和,然后输出结果用FORM1显示出来