Classic ASP数字求和程序返回错误结果求助

我看了你的代码，问题主要出在两个核心点上：

• 字符串与数字的类型混淆：request.querystring("n")返回的是字符串类型，直接用来做算术运算（比如n mod 10、n/10）会触发不稳定的隐式类型转换，而且循环条件n<>0在n是字符串时的判断逻辑也不可靠。
• 四舍五入导致的计算偏差：用Cint(n/10)会触发VBScript的四舍五入规则，比如当n=19时，19/10=1.9，Cint会把它转成2，这样循环就会多算一次，最终得到错误的求和结果。

修正后的代码 #

<% 
    dim n, originalN, d, sum 
    sum = 0 
    d = 0 

    ' 先处理输入：去除空格、校验数字有效性并转换为整数
    originalN = Trim(request.querystring("n"))
    If IsNumeric(originalN) Then
        n = CInt(originalN)
        originalN = n ' 确保显示的原始值是标准整数格式
    Else
        Response.Write("请传入有效的数字！")
        Response.End()
    End If

    ' 使用整数除法截断小数，避免四舍五入错误
    While n <> 0 
        d = n mod 10 
        Response.Write("<br>" & d) 
        sum = sum + d 
        n = n \ 10 ' VBScript整数除法，直接舍弃小数部分
    Wend 

    Response.Write("<br>Sum of digits of " & originalN & " is : " & sum) 
%>

关键修改说明 #

• 输入校验与类型转换：先通过IsNumeric判断输入是否为有效数字，再用CInt转换成整数类型，既避免了字符串参与算术运算的问题，还能给非法输入返回友好提示。
• 整数除法替代浮点数转换：用n \ 10替代Cint(n/10)，VBScript的整数除法会直接截断小数部分（比如19\10=1，2\10=0），完全符合我们取高位数字的需求，不会出现四舍五入导致的错误。

比如输入n=19时，修正后的代码会先取9（sum=9），然后n=19\10=1；接着取1（sum=10），n=1\10=0，循环结束，得到正确的各位和10，而不是之前错误的11。

内容的提问来源于stack exchange，提问作者Mrinaal