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 I

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

总结

以上是内存溢出为你收集整理的vb6.0 求素数按奇偶显示全部内容，希望文章能够帮你解决vb6.0 求素数按奇偶显示所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。