Question

所以我非常接近，但我继续得到错误的价值观。用户假设输入一个正整数，并假设要在其间添加所有整数。因此，如果用户输入5，它应该等于15,10等于55，等等。但我得到5 = 25,10,100。

更改为十进制以查看是否有任何内容而不是整数但仍然没有做任何事情。我看到了将decCount设置为= 1的一些事情。那个和那个数字是否接近但仍然不存在。

    Dim decSum As Decimal = 0
    Dim decNumber As Decimal = 0
    Dim decCount As Decimal = 0
    Dim strUserInput As String

    strUserInput = InputBox("Enter a positive integer value.", "Input Needed", 0)


    If Decimal.TryParse(strUserInput, decNumber) And (decNumber >= 0) Then
        Do While decCount < decNumber
            decSum = decSum + decNumber
            decCount = decCount + 1
        Loop
    Else
        MessageBox.Show("Enter a positive numeric value")
    End If




    MsgBox("The sum of the numbers 1 through " & decNumber & " is " & decSum)

Answer 1

您正在尝试计算给定输入的阶乘，但在循环中，您重复添加相同的数字（实际上，您将数字乘以自身而不是找到阶乘）。

更改此行：

decSum = decSum + decNumber

到此：

decSum = decSum + decCount

（Visual Basic）通过2个数字的整数和

1 个答案: