vb四叶玫瑰数

vb四叶玫瑰数

问题补充说明：Dim a As Integer, b As Integer, c As Integer, d As Integer Private Sub Command1_Click() For i = 1001 To 9999 Step 1 a = i / 1000 b = (i - a * 1000) / 100 c = (i - a * 1000 - b * 100) / 10 d = i - a * 1000 - b * 100 - c * 10 If a ^ 4 ... Dim a As Integer, b As Integer, c As Integer, d As IntegerPrivate Sub Command1_Click()For i = 1001 To 9999 Step 1a = i / 1000b = (i - a * 1000) / 100c = (i - a * 1000 - b * 100) / 10d = i - a * 1000 - b * 100 - c * 10If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i ThenPicture1.Print iEnd IfNext iEnd Sub为什么没有数出来，哪里出错了 展开

运算符号输入错误了？？？

所有的符号/改为\（方向反了）