Question

vb改错大题

所谓完全数是指一个整数 N的因子和（不包括N）等于自身。例如，6=1+2+3，6是完全数。编写程序验证：两位以上的完全数，把它们的各位数字加起来得到一个数，再把这个数的各位数字加起来又得到一个数 ，一直做下去，直到得到一个一位数，这个数是1。过程WanShu的功能是找完全数（图1为程序正确执行时的画面）。

图1
含有错误的源程序如下：
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, k As Integer, st As String
For i = 10 To 500
If wanshu(i) Then
st = CStr(i)
Text1.Text = Text1.Text & st
Call test(st)
Text1.Text = Text1.Text & Chr(13) & Chr(10)
End If
Next i
End Sub
Private Function wanshu(n As Integer) As Boolean
Dim i As Integer, sum As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
sum = sum + i
End If
Next i
If sum = n Then wanshu = True
End Function
Private Sub test(s As String)
Dim i As Integer, sum As Integer
sum = 0
Do While Len(s) > 1
For i = 1 To Len(s)
sum = sum + Val(mid(s, i, 1))
Next i
Text1.Text = Text1.Text & "->" & Str(sum)
s = Str(sum)
Loop
End Sub

Answer 1

Option Explicit
Private Sub Command1_Click()
    Dim i As Integer, k As Integer, st As String
    For i = 10 To 500
        If wanshu(i) Then
            st = CStr(i)
            Text1.Text = Text1.Text & st
            Call test(st)
            Text1.Text = Text1.Text & Chr(13) & Chr(10)
        End If
    Next i
End Sub
Private Function wanshu(n As Integer) As Boolean
    Dim i As Integer, sum As Integer
    sum = 1
    wanshu = False
    For i = 2 To n - 1
        If n Mod i = 0 Then
            sum = sum + i
        End If
    Next i
    If sum = n Then wanshu = True
End Function
Private Sub test(s As String)
    Dim i As Integer, sum As Integer
    Do While Len(s) > 1
        sum = 0
        For i = 1 To Len(s)
            sum = sum + Val(Mid(s, i, 1))
        Next i
        Text1.Text = Text1.Text & "->" & Str(sum)
        s = CStr(sum)
    Loop
End Sub

Answer 2

Option Explicit
Private Sub Command1_Click()
Dim i As Integer, k As Integer, st As String
For i = 10 To 500
If wanshu(i) Then
st = CStr(i)
Text1.Text = Text1.Text & st
Call test(st)
Text1.Text = Text1.Text & Chr(13) & Chr(10)
End If
Next i
End Sub
Private Function wanshu(n As Integer) As Boolean
Dim i As Integer, sum As Integer
For i = 1 To n - 1 '检验完数应从1开始
If n Mod i = 0 Then
sum = sum + i
End If
Next i
If sum = n Then wanshu = True
End Function
Private Sub test(s As String)
Dim i As Integer, sum As Integer
Do While Len(s) > 1
sum = 0 '每次计算各位之和，应把累计数清零
For i = 1 To Len(s)
sum = sum + Val(Mid(s, i, 1))
Next i
Text1.Text = Text1.Text & "->" & Str(sum)
s = Trim(Str(sum)) ' Str函数在讲sum转换为字符串的时候，字符多加了一个" "导致Len(s)始终大于1，使用trim函数去掉多余的空格
Loop
End Sub

Answer 3

好简单啊