一到一万之间个位数是七的素数有多少个
答案:1 悬赏:0 手机版
解决时间 2021-02-15 16:44
- 提问者网友：动次大次蹦擦擦
- 2021-02-15 03:16
一到一万之间个位数是七的素数有多少个
最佳答案
- 五星知识达人网友：毛毛
- 2021-02-15 04:07
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个
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个
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯