VB编程题求1-100内的素数个数

发布网友发布时间：2024-02-16 19:04

共2个回答

热心网友时间：2024-11-24 13:02

答案：25个

Sub Command3_Click()
    Dim i As Long, m As Integer, n As Integer
    For i = 2 To 100
        For m = 2 To i / 2
            If i Mod m = 0 Then GoTo inext
        Next
        n = n + 1
inext:
    Next
    MsgBox n
End Sub

热心网友时间：2024-11-24 13:03

Dim i, j As Integer
Dim flag As Boolean
n=0
For i = 2 To 100
flag = False
For j = 2 To i / 2
If i Mod j = 0 Then
flag = True
Exit For
End If
Next
If flag = False Then
n=n+1
End If
Next
print n

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

VB编程题 求1-100内的素数个数

VB编程题求1-100内的素数个数