Question

VB 编一个程序，显示出所有水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例

VB 编一个程序，显示出所有水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为153=一的立方加五的立方加三的立方。

Answer 1

窗体上放置一个command1 编写如下代码 Private Sub Command1_Click() Dim k As Long, k1 As Long, sum As Long, i As Long If k < 3 Then MsgBox "水仙花数的位数必须大于等于三位数"k1 = kPrint " " & k & "位数的水仙花数如下："PrintFor i = 10 ^ (k - 1) To 10 ^ k - 1Dosum = sum + (i \ 10 ^ (k - 1) Mod 10) ^ k1k = k - 1Loop Until k = 0