Question

vb程序改错题，计算1~1000内的水仙花。。。

计算出1-1000之间的所有“水仙花数”的个数，所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身（如 153=1^3+5^3+3^3）。下列程序中的i代表三位数，A、B和C分别代表百位、十位和个位上的三个数字。窗体中有一个“计算”按钮、一个“退出”按钮和一个文本框，窗体运行时,单击“计算”按钮，在文本框中显示出水仙花数的个数，单击“退出”按钮，结束窗体运行。所用控件的属性都已设置好，只是为“计算”按钮编写的代码中有2个错误进行修改。不准添加或删除原程序代码行

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
Dim A As Integer, B As Integer, C As Integer
n = 1
For i = 100 To 999
s = Trim(Str$(i))
A = Val(Left(s, 1))
B = Val(Mid(s, 2, 1))
C = Val(Right(s, 1))
If i = A ^ 3 + B ^ 3 + C ^ 3 Then
n = n + 1
End If
Next i
Text1 = s
End Sub

Private Sub Command2_Click()
End
End Sub

Answer 1

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
Dim A As Integer, B As Integer, C As Integer
n = 0 '这个地方n是统计水仙花数的个数的变量，开始时应为0，而不是1.
For i = 100 To 999
s = Trim(Str$(i))
A = Val(Left(s, 1))
B = Val(Mid(s, 2, 1))
C = Val(Right(s, 1))
If i = A ^ 3 + B ^ 3 + C ^ 3 Then
n = n + 1
End If
Next i
Text1 = n '这个地方文本框应该输出的是水仙花数的个数n，而不应该是s。 ‘
End Sub
两个地方改好了，请采纳哦！！！

追问

我改了，运行不通

追答

不会哟，我是照着你程序改的，我没运行，我再试一下！

你看我运行的结果是文本框中为4，有4个水仙花数，没问题呀！

追问

哦，我以为是计算水仙花153，........那样排列下来的
好的，谢谢你了

Answer 2

Private Sub Form_Load()Me.AutoRedraw = TrueDim sumFor i = 100 To 999 sum = 0 For j = 2 To 4 sum = sum + Val(Mid(Str(i), j, 1)) ^ 3 Next j If sum = i Then Print iNext iEnd Sub

追问

你这是什么答案啊 ，根本不对好不好