|
发表于 2006-12-30 22:13:08
|
显示全部楼层
我现在有28GA币
存银行要花83天才能到1000
- <html>
- <head>
- <title>GA银行</title>
- <script language="vbscript" for="dogetvalue" event="onclick">
- dim m, f, t
- dim sAll
- dim I
- m = int(cdbl(bank.m.value))
- f = cdbl(bank.f.value)
- t = cdbl(bank.t.value)
- sAll = ""
- I=0
- do while I<t
- I = I + 1
- m = m + int(m*f)
- sAll = sAll & I & vbTab & m & vbCrLf
- loop
- bank.txtout.value = sAll
- </script>
- </head>
- <bord>
- <h2>GA银行</h2><br>
- <br>
- <form name="bank">
- 金钱:</td><td><input type="text" name="m" value="100"><br>
- 利率:</td><td><input type="text" name="f" value="0.05"><br>
- 天数:</td><td><input type="text" name="t" value="100"><br>
- <input type="button" name="dogetvalue" value="计算"><br>
- <textarea name="txtout" cols="80" rows="25"></textarea>
- </form>
- </bord>
- </html>
复制代码 |
|