VB6编程 找出100内的素数

易飞鸟

[Visual Basic] 纯文本查看 复制代码

Option Explicit

Private Sub Command1_Click()
    Dim ret As String
    Dim n As Integer
    For n = 2 To 100
        If isPrime(n) Then
            Text1.Text = Text1.Text & n & vbNewLine '追加内容并换行
            Text1.SelStart = Len(Text1.Text) '滚动条到最后一行
        End If
    Next n
End Sub

Private Function isPrime(n)
    Dim i As Integer
    For i = 2 To n - 1
        If n Mod i = 0 Then
            isPrime = False
            Exit Function
        End If
    Next i
    isPrime = True
End Function

注：质数又称素数。一个大于1的自然数，除了1和它自身外，不能被其他自然数整除的数叫做质数

胡子

VB6编程 找出100内的素数