一到一万之间个位数是七的素数有多少个

Option Explicit

Private Sub Command1_Click()
Dim i&, j&, sum&
i = -3
sum = 10000
While i <= 9997
i = i + 10
For j = 2 To i - 1
If i Mod j = 0 Then sum = sum - 1
Next
Wend
MsgBox "一到一万之间个位数是七的素数有" & sum & "个"
End Sub
----------------------
7382个