设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？(要用b语言来编程）v

窗体上加一command1

Private Sub Command1_Click()
For i = 1000 To 9999
If Val(Mid(CStr(i), 1, 1)) ^ 2 + Val(Mid(CStr(i), 2, 1)) ^ 2 + Val(Mid(CStr(i), 3, 1)) ^ 2 + Val(Mid(CStr(i), 4, 1)) ^ 2 = 100 Then Print i
Next
End Sub

结果如下

1177
1339
1393
1557
1575
1717
1755
1771
1933
2448
2484
2844
3139
3193
3319
3391
3913
3931
4248
4284
4428
4482
4824
4842
5157
5175
5517
5555
5571
5715
5751
6008
6080
6800
7117
7155
7171
7515
7551
7711
8006
8060
8244
8424
8442
8600
9133
9313
9331

dim i as integer, j as integer,s as integer
for i=1000 to 9999
j=(i mod 10)^2+(i\10 mod 10)^2+(i\100 mod 10)^2+(i\1000 mod 10)^2
if j=100 then
s=s+1
print i;
if s mod 10=0 then print
e