帮我做Visaual Basic程序设计

来源：百度知道 编辑：UC知道 时间：2024/09/23 05:06:51
打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数．例如，153是一水仙花数，因为153＝1＾3＋5＾3＋3＾3．有谁能帮我做小生感激不尽

VB 1:
Dim i%, j%, k%, M%, N%
For i% = 1 To 9
For j% = 0 To 9
For k% = 0 To 9
M% = i% * 100 + j% * 10 + k%
N% = i% ^ 3 + j% ^ 3 + k% ^ 3
If M% = N% Then Print M%
Next k%
Next j%
Next i%
******************************

VB 2：

PRINT " N = I ^ 3 + J ^ 3 + K ^ 3"

FOR K = 100 TO 999

IA = INT(K / 100)

IB = INT((K MOD 100) / 10)

IC = K MOD 10

L = IA ^ 3 + IB ^ 3 + IC ^ 3

IF K <> L THEN GOTO 90

PRINT K; " "; IA; " "; IB; " "; IC

NEXT K

*********************************

再给你一个 参考一下
[code]program c1(input,output);{100-999}
const
x:array[1..3]of integer=(0,0,1);
var
st,i:integer;
begin
st:=0;
while st<>900 do
begin