编程输出1—1000中所有个位数是7的素数,统计其个数,并求满足该条件数的和,输出结果

Private Sub Command1_Click()
Dim i,j,a,b,s
For i = 7 To 997
a = False
For j = 1 To i - 1
If i Mod j = 0 And j > 1 Then
a = True
Exit For
End If
Next j
If a = False And Right(CStr(i),1) = "7" Then
s = s + i
b = b + 1
Print i,
If b Mod 6 = 0 Then Print
End If
Next i
Print
Print "1000以内个位数是7的素数共有" & b & "个"
Print "1000以内个位数是7的素数之和=" & s
End Sub
7 17 37 47 67 97
107 127 137 157 167 197
227 257 277 307 317 337
347 367 397 457 467 487
547 557 577 587 607 617
647 677 727 757 787 797
827 857 877 887 907 937
947 967 977 997
1000以内个位数是7的素数共有46个
1000以内个位数是7的素数之和=22472