functionnullvb6.0 求素数按奇偶显示

题记：写这篇博客要主是加深自己对functionnull的认识和总结实现算法时的一些验经和训教，如果有错误请指出，万分感谢。

 

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

    每日一道理
书籍好比一架梯子，它能引领人们登上文化的殿堂；书籍如同一把钥匙，它将帮助我们开启心灵的智慧之窗；书籍犹如一条小船，它会载着我们驶向知识的海洋。

    

文章结束给大家分享下程序员的一些笑话语录： 面试官：熟悉哪种语言
应聘者：JAVA
面试官：知道什么叫类么
应聘者：我这人实在，工作努力，不知道什么叫累
面试官：知道什么是包?
应聘者：我这人实在 平常不带包 也不用公司准备了
面试官：知道什么是接口吗?
应聘者：我这个人工作认真。从来不找借口偷懒
面试官：知道什么是继承么
应聘者：我是孤儿没什么可以继承的
面试官:知道什么叫对象么？
应聘者:知道，不过我工作努力，上进心强，暂时还没有打算找对象。
面试官：知道多态么？
应聘者：知道，我很保守的。我认为让心爱的女人为了自已一时的快乐去堕胎是不道德的行为！请问这和C#有什么关系？？

--------------------------------- 原创文章 By
function和null
---------------------------------