【正文】
image 什么是枚舉? ? 現(xiàn)實(shí)世界中有一類問(wèn)題可以采用搜索的方法,在搜索結(jié)果的過(guò)程中,把各種可能的情況都考慮到,并對(duì)全部可能結(jié)果逐一進(jìn)行判斷,過(guò)濾掉那些不符合要求的,保留符合要求的結(jié)果,這種方法叫做枚舉算法。 True 表示圖形要調(diào)整大小以與控件相適合。 分析: ? 設(shè)三位數(shù) i,百位數(shù)為 a,十位數(shù)為 b,個(gè)位數(shù)為 c ? 初始值 i=100 ? 枚舉范圍: i=999 ? 滿足條件: i=a^3+b^3+c^3 思考:如何取出三位數(shù)的每位數(shù)字? 流程圖 程序代碼 100=i=999 a=i\100 b=i\10 mod 10 c=I mod 100 i=a^3+b^3+c^3 輸出 i 是 退出 i=i+1 Private Sub Command1_Click() Dim I, a, b, c As Integer I = 100 Do While I = 999 a = I \ 100 b = I \ 10 Mod 10 c = I Mod 10 If I = a ^ 3 + b ^ 3 + c ^ 3 Then n = n +