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

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

相关问题