风行与风神谁的质量好:三位数，各位数字不相同，十位数字比个位百位数字和要大，十位百位数字和不是质数。找出这样的三位数。

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<>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 writeln(i*100+j*10+k)
end.

130 150 152 153 170 172 173 174 175 180 182 183 184 185 186 190 192 193 194 195 196 197 240 241 260 261 263 270 271 273 274 280 281 283 284 285 350 351 360 361 362 370 371 372 390 391 392 394 395 450 460 461 480 481 482 483 570 571 590 591 592 593 680 681 690 691 692 780 790 791

提问应该问：最小的三位数 最大的三位数

最小的 130
最大的 791

中间的就好找了

同意3楼的

441
442
443