我是用js算的，代碼給妳，妳自己改成vb吧：
function a() {
var _arr = [];
var j = 0;
for (var i = 10000; i < 99999; i++) {
var s = i + "";
var sa = s.split("");
if (sa[0] * sa[0] + sa[1] * sa[1] + sa[2] * sa[2] + sa[3] * sa[3] + sa[4] * sa[4] == 100) {
_arr[j++] = i;
document.writeln(i + "<br>");
}
}
//alert(_arr.reverse());
alert(_arr.length);
}
a();
5位數中，***有410個這樣的數。
分別是：
10177
10339
10393
10557
10575
10717
10755
10771
10933
11077
11149
11194
11358
11385
11419
11491
11538
11583
11707
11770
11835
11853
11914
11941
13039
13093
13158
13185
13309
13390
13457
13475
13518
13547
13574
13581
13745
13754
13815
13851
13903
13930
14119
14191
14357
14375
14537
14573
14735
14753
14911
15057
15075
15138
15183
15318
15347
15374
15381
15437
15473
15507
15570
15705
15734
15743
15750
15813
15831
17017
17055
17071
17107
17170
17345
17354
17435
17453
17505
17534
17543
17550
17701
17710
18135
18153
18315
18351
18513
18531
19033
19114
19141
19303
19330
19411
20448
20484
20844
24048
24084
24408
24480
24804
24840
28044
28404
28440
30139
30193
30319
30391
30913
30931
31039
31093
31158
31185
31309
31390
31457
31475
31518
31547
31574
31581
31745
31754
31815
31851
31903
31930
33019
33091
33109
33190
33338
33383
33833
33901
33910
34157
34175
34517
34555
34571
34715
34751
35118
35147
35174
35181
35417
35455
35471
35545
35554
35714
35741
35811
37145
37154
37415
37451
37514
37541
38115
38151
38333
38511
39013
39031
39103
39130
39301
39310
40248
40284
40428
40482
40824
40842
41119
41191
41357
41375
41537
41573
41735
41753
41911
42048
42084
42408
42480
42804
42840
43157
43175
43517
43555
43571
43715
43751
44028
44082
44208
44280
44446
44464
44644
44802
44820
45137
45173
45317
45355
45371
45535
45553
45713
45731
46444
47135
47153
47315
47351
47513
47531
48024
48042
48204
48240
48402
48420
49111
50157
50175
50517
50555
50571
50715
50751
51057
51075
51138
51183
51318
51347
51374
51381
51437
51473
51507
51570
51705
51734
51743
51750
51813
51831
53118
53147
53174
53181
53417
53455
53471
53545
53554
53714
53741
53811
54137
54173
54317
54355
54371
54535
54553
54713
54731
55017
55055
55071
55107
55170
55345
55354
55435
55453
55505
55534
55543
55550
55701
55710
57015
57051
57105
57134
57143
57150
57314
57341
57413
57431
57501
57510
58113
58131
58311
60008
60080
60800
64444
68000
70117
70155
70171
70515
70551
70711
71017
71055
71071
71107
71170
71345
71354
71435
71453
71505
71534
71543
71550
71701
71710
73145
73154
73415
73451
73514
73541
74135
74153
74315
74351
74513
74531
75015
75051
75105
75134
75143
75150
75314
75341
75413
75431
75501
75510
77011
77101
77110
80006
80060
80244
80424
80442
80600
81135
81153
81315
81351
81513
81531
82044
82404
82440
83115
83151
83333
83511
84024
84042
84204
84240
84402
84420
85113
85131
85311
86000
90133
90313
90331
91033
91114
91141
91303
91330
91411
93013
93031
93103
93130
93301
93310
94111