Question

vb求玫瑰花数

Private Sub command1_click()
Dim m As Integer, a As Integer, b As Integer, c As Integer, d As Integer
a = 1
b = 0
c = 0
d = 0
Do While a <= 9
Do While b <= 9
Do While c <= 9
Do While d <= 9
m = a * 1000 + b * 100 + c * 10 + d
If m = a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 Then
List1.AddItem Str(m)
End If
d = d + 1
Loop
c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop
End Sub

为什么没有出现任何数，哪里错了

Answer 1

当然不会有数字产生了，Do While d <= 9这里1000-1009都不满足，验证完后，d=10，自然下次不满足d <= 9条件就退出了
可以在每次循环结束，重新开始时加个清零操作，或者直接用for语句

Answer 2

当然不会有数字产生了，Do
While
d
<=
9这里1000-1009都不满足，验证完后，d=10，自然下次不满足d
<=
9条件就退出了
可以在每次循环结束，重新开始时加个清零操作，或者直接用for语句

Answer 3

当然不会有数字产生了，Do
While
d
<=
9这里1000-1009都不满足，验证完后，d=10，自然下次不满足d
<=
9条件就退出了
可以在每次循环结束，重新开始时加个清零操作，或者直接用for语句

Answer 4

哪来的玫瑰花
说明白点