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

 

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

    每日一道理

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

    

文章结束给大家分享下程序员的一些笑话语录： 面试官：熟悉哪种语言

应聘者：JAVA

面试官：知道什么叫类么

应聘者：我这人实在，工作努力，不知道什么叫累

面试官：知道什么是包?

应聘者：我这人实在 平常不带包 也不用公司准备了

面试官：知道什么是接口吗?

应聘者：我这个人工作认真。从来不找借口偷懒

面试官：知道什么是继承么

应聘者：我是孤儿没什么可以继承的

面试官:知道什么叫对象么？

应聘者:知道，不过我工作努力，上进心强，暂时还没有打算找对象。

面试官：知道多态么？

应聘者：知道，我很保守的。我认为让心爱的女人为了自已一时的快乐去堕胎是不道德的行为！请问这和C#有什么关系？？

--------------------------------- 原创文章 By

function和null

---------------------------------