VB中怎样打印1000以内个位数字与十位数字之和除以10所得的余数是百位数字的素数

Question

VB中怎样打印1000以内个位数字与十位数字之和除以10所得的余数是百位数字的素数

Answer 1

Private Sub Command1_Click()
For i = 100 To 999
a = i Mod 10
b = i \ 10 Mod 10
c = i \ 100
f = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then f = False:Exit For
Next
If f And (a + b) Mod 10 = c Then Print i
Next
End Sub