level 7
哎我就不懂了，这还要排序？你从小到大找的，最后找到的那个不就是最大的么
另外，如果你真的想排序的话，你得有数据啊，第一个循环就应该每找到一个数就放进数组才对，现在这样数组里一个数据都没有，都是0，你还排个啥？
2020年08月08日 03点08分
level 7
贴吧用户_QNAAVSQ
楼主
要怎么放
2020年08月08日 03点08分
3
不排序的代码写好了么？写好了再告诉你排序的代码怎么写
2020年08月08日 03点08分
回复 miku_con :List2.additemlist1.list(3)
2020年08月08日 03点08分
level 15
算了，直接给你写个参考吧：
For i = 100 To 999
b = i \ 100
c = i \ 10 Mod 10
d = i Mod 10
If b ^ 3 + c ^ 3 + d ^ 3 = i Then
List1.AddItem i
ReDim Preserve a(x)
a(x) = i
x = x + 1
End If
Next i
List2.AddItem a(x - 1)
另外，你这个数组a没必要定义在最前面的
2020年08月08日 03点08分
4
For i = 100 To 999
b = i \ 100
c = i \ 10 Mod 10
d = i Mod 10
If b ^ 3 + c ^ 3 + d ^ 3 = i Then
List1.AddItem i
ReDim Preserve a(x)
a(x) = i
x = x + 1
End If
Next i
List2.AddItem a(x - 1)
另外，你这个数组a没必要定义在最前面的
你的方法看不懂啊，我写的方法该怎么改
2020年08月08日 03点08分
@贴吧用户_QNAAVSQ 这就是“每找到一个数就放进数组”的方法，如果你还想排序（其实不用排了），那就把这个的最后一句换成你自己的排序代码
2020年08月08日 04点08分
@贴吧用户_QNAAVSQ 人家写的代码肯定比你的简单实用，你如果看不懂，只能说明你的代码本来就不是你写的。说简单点，你暂时还不具备编程能力。
2020年08月10日 02点08分
@贴吧用户_QNAAVSQ 你与本班同学相比，落后得不是一点点了。
2020年08月10日 02点08分
level 3