如何用VB统计10000以内素数的个数

cd3166 1年前 已收到1个回答 举报
赞

56023076 幼苗

共回答了31个问题采纳率：96.8% 举报

Private Sub Form_load()
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i = 2 To 10000
f = 0 ' f 用来标识是否为素数
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
f = 1
Exit For
End If
Next j
If f = 0 Then x = x + 1
Next i
MsgBox x
End Su

1年前

5
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.032 s. - webmaster@yulucn.com