【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB程序改错 - 编程语言”一文，供大家参考学习!

1. 程序功能求1200之间的能被7整除的数的平方和。

    程序有两处错误。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim x As Integer ‘下一行有错误 Dim sum As integer x 1 sum 0 While x k Then Print x Exit For End If Next x End Sub 运行结果661 7. 程序功能若某整数N的所有因子之和等于N的倍数则N称为多因子完备数如数28其因子之和124714285622828是多因子完备数。

    求1200之间有多少个多因子完备数。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim N As Integer Dim s As Integer Dim i As Integer Dim c As Integer c 0 For N 1 To 200 s 0 For i 1 To N ‘下一行有错误 If N Mod i 0 Then s s i End If Next I ‘下一行有错误 If N Mod s 0 Then c c 1 End If Next N Print c End Sub 运行结果4 8. 程序功能我国今年的国民生产总值为45600亿元若今后每年以9的增长率增长计算多少年后能实现国民生产总值翻一番程序中有两行有错误。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim p As Long p1 As Long Dim n As Integer n 0 p1 45600 p p1 Do ‘下一行有错误 p p 1 9 n n 1 ‘下一行有错误 Loop Until p 2 p1 Print n End Sub 运行结果9 9. 程序功能有一个三位数满足下列条件: 1三位数字各不相同 2此数等于它的各位数字的立方和。

    求这种三位数的个数。

    程序中有两行有错误。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer Dim n As Integer n 0 x 100 ‘下一行有错误 Do While x 999 a Intx / 100 b Intx / 10 - a 10 c x - a 100 - b 10 ‘下一行有错误 If a c Or b c Or a b Or x a 3 b 3 c 3 Then n n 1 End If x x 1 Loop Print n End Sub 运行结果4 10. 程序功能求1130之间所有整数的立方和并输出结果。

    程序中有两行有错误。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim x As Integer ‘下一行有错误 Dim s As Integer x 1 s 0 ‘下一行有错误 Do While x 130 s s x 3 x x 1 Loop Print s End Sub 运行结果72505225 11. 程序功能计算1000以内既能被6整除又能被8整除的数的个数。

    程序中有两行有错误。

    改正错误使它能输出正确的结果。

     Private Sub Command1_Click Dim n As Integer Dim x As Integer x 1 n 0 Do While x