vb6.0 求素数按奇偶显示

 

Private Sub Command1_Click()Me.RefreshDim 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 xEnd SubFunction prime(x As Integer) As IntegerDim 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 IfEnd Function