怪物猎人ol传奇珠升级:帮我做Visaual Basic程序设计

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
st:=st+1;
if x[1]*x[1]*x[1]+x[2]*x[2]*x[2]+x[3]*x[3]*x[3]=x[3]*100+x[2]*10+x[1]
then begin
for i:=3 downto 1 do
write(x[i]);
writeln;
end;
x[1]:=x[1]+1;
for i:=1 to 3 do
if x[i]>=10
then begin
x[i+1]:=x[i+1]+(x[i] div 10);
x[i]:=x[i] mod 10;
end;
end;
end.[/code]

我以前用java作过