三位数，各位数字不相同，十位数字比个位百位数字和要大，十位百位数字和不是质数。找出这样的三位数。

130，140，150，160，170，180，190
450，460……490
252，262……292
153，163……193
351，361……391
373，383，393
274，284，294
175，185，195
472，482，492
571，581，591
197，
296
395
494
593
693
791 累死我了……

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, x As Integer
For i = 1 To 9
For j = 1 To 9
For k = 1 To 9
If (i <> j) And (i <> k) And (j <> k) And (j > i + k) And (i + j <> 2) And (i + j <> 3) And (i + j <> 5) And (i + j <> 7) And (i + j <> 11) And (i + j <> 13) And (i + j <> 17) Then
x = (i * 100 + j * 10 + k)
Text1.Text = Text1.Text & x & " "
End If
Next
Next
Next
End Sub
三楼用的是delphi，我用VB。结果相同。

var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i<>j) and (i<&