荒野之息攀岩套装:求水仙数的VB的编程程序
来源:百度文库 编辑:高校问答 时间:2024/10/05 09:36:30
要详细,并附带解释
水仙vs幽助
Dim i, j, k, n As Integer
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
n = i * 100 + j * 10 + k
If n=i^3+j^3+k^3 Then
MsgBox(n)
End If
Next
Next
Next
在vb.net下调试成功。