請教兩題VB程式~~~

Question

用多重迴圈↓
1.找出00000~99999中，各位數字立方和等於該數者。例如：153 = 1^3+ 5^3 + 3^3，則153即為所求
2.找出 2 ~ 100000的所有質數，並計算個數。
如果可以的話最好是能給我程式碼回去研究啦，這樣比較有效率~~~
因為小弟我才剛入門，如果給程式碼的話能簡單盡量簡單，不然我擔心我會看不懂...

第一題只能用一層迴圈喔

第二題要用到flag

第一題找完0~99999之後接下來再一個符合條件的數是多少?

據說flag(不知道有沒有拼錯)是什麼可以判斷迴圈跑了幾次的東西，可以用來設定跑不同次迴圈時執行不同指令

Answer 1

Private Sub Command1_Click()'第一題
Dim I&, T&
For I = 0 To 99999
　　T = (I Mod 10) ^ 3
　　T = T + ((I Mod 100) \ 10) ^ 3
　　T = T + ((I Mod 1000) \ 100) ^ 3
　　T = T + ((I Mod 10000) \ 1000) ^ 3
　　T = T + ((I Mod 100000) \ 10000) ^ 3
　　If T = I Then Print I
Next
End Sub

Private Sub Command2_Click()'第2題(我也不知道flag代表甚麼XD)請置一個ListBox
Dim I&
For I = 2 To 100000
　　If IsPrime(I) Then List1.AddItem I
Next
Print "共有"; List1.ListCount; "個質數"
End Sub

Function IsPrime(N As Long) As Boolean '判斷是否為質數
Dim I&
If N = 2 Then IsPrime = True: Exit Function
If N Mod 2 = 0 Then Exit Function
For I = 3 To Int(Sqr(N)) Step 2
　　If N Mod I = 0 Then Exit Function
Next I
IsPrime = True
End Function
'第3題:跑了很久還沒找到

Answer 2

彭鬍子說：沒做完不可以玩Game喔

Answer 3

回"小諾比"
就是下一個符合"各位數字立方和等於該數者"的數

Answer 4

第一題答案

Dim i As Long
Dim iLen, tmp As Integer


For i = 0 To 99999

iLen = Len(CStr(i))



If iLen = 5 Then
tmp = Mid(i, 1, 1) ^ 5 + Mid(i, 2, 1) ^ 5 + Mid(i, 3, 1) ^ 5 + Mid(i, 4, 1) ^ 5 + Mid(i, 5, 1) ^ 5
End If

If iLen = 4 Then
tmp = Mid(i, 1, 1) ^ 4 + Mid(i, 2, 1) ^ 4 + Mid(i, 3, 1) ^ 4 + Mid(i, 4, 1) ^ 4
End If

If iLen = 3 Then
tmp = Mid(i, 1, 1) ^ 3 + Mid(i, 2, 1) ^ 3 + Mid(i, 3, 1) ^ 3
End If

If iLen = 2 Then
tmp = Mid(i, 1, 1) ^ 2 + Mid(i, 2, 1) ^ 2
End If

If iLen = 1 Then
tmp = Mid(i, 1, 1) ^ 1
End If

If tmp = i Then
Print i
End If

Next i

第二題所提到的flag是什麼意思
還有這個問題"第一題找完0~99999之後接下來再一個符合條件的數是多少? "
可以說明一下嗎