摘要: <script language="VBScript"><!-- Function Sum1_N(N,S) Dim total,i total = 0 For i = S To N Step 1 total = total + i Next Sum1_N = total End Function Dim Start, Number Start = InputBox("请输入初始值") Number = InputBox("请输入一个整数") MsgBox("由 "... 阅读全文
posted @ 2012-12-24 15:30 ChuanYue 阅读(127) 评论(0) 推荐(0) 编辑