作业帮 > 综合 > 作业

请问VB语言中怎么求1到1000的素数分别有哪些

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 07:29:12
请问VB语言中怎么求1到1000的素数分别有哪些
Private Sub Command1_Click()
    Dim a As Long
    Dim i As Long
    Dim k As Long
    Dim t
    For i = 2 To 1000
    t = 0
        For k = 2 To i - 1
            If i Mod k = 0 Then
                t = 1
            End If
        Next
        If t = 0 Then
            Print i;
            a = a + 1
            If a Mod 20 = 0 Then
                Print
            End If
        End If
    Next
End Sub