vb6.0 求素数按奇偶显示

最新推荐文章于 2021-05-17 21:25:20 发布

a771948524

最新推荐文章于 2021-05-17 21:25:20 发布

阅读量1.3k

点赞数

分类专栏： vb.net

本文链接：https://blog.csdn.net/zxlstudio/article/details/9001586

版权

vb.net 专栏收录该内容

43 篇文章 2 订阅

订阅专栏

Private Sub Command1_Click()
Me.Refresh
Dim x As Integer
    For x = 2 To 100
        If x Mod 2 = 0 Then
            If prime(x) = 1 Then
                Print x & "  这是偶数"
            End If
        Else
            If prime(x) = 1 Then
                Print x & "  这是奇数"
            End If
        End If
    Next x

End Sub
Function prime(x As Integer) As Integer
Dim i As Integer
    For i = 2 To x - 1
       If x Mod i = 0 Then
           Exit For
       End If
    Next i
    If i >= x Then
        prime = 1
    Else:
       prime = 0
    End If
End Function