一个三位数，各位数字互不相同，十位数字比个位数字、百位数字之和还要大。

Private Sub Form_Click()
For a = 0 To 9
For b = 1 To 9
For c = 1 To 9
If a <> c And b > a + c Then
Print c * 100 + b * 10 + a;
n = n + 1
If n Mod 8 = 0 Then Print
End If
Next c
Next b
Next a
End Sub

dim a as single
dim b as single
dim c as single
for a=0 to 9
for b= 1 to 9
for c= 1 to 9
if a<>c and b>a+c then
print c*100 +b *10+a;
n=n+1
if n mod 8 = 0 then print
end if
next c
next b
next a
sleep
end