【正文】
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 + 1 Str(I) End If I = I + 1 Loop = Str(n) End Sub 列表框 列表框的功能:多列顯示。 image 什么是枚舉? ? 現(xiàn)實世界中有一類問題可以采用搜索的方法,在搜索結(jié)果的過程中,把各種可能的情況都考慮到,并對全部可能結(jié)果逐一進行判斷,過濾掉那些不符合要求的,保留符合要求的結(jié)果,這種方法叫做枚舉算法。 True 表示圖形要調(diào)整大小以與控件相適合。 上機實踐: 津津?qū)?10000元錢存入銀行,銀行的年利率為 1分(即 10%),如一直不取出,問按照利滾利的計算方法,至少經(jīng)過多少年津津才能拿到 150000