题记：写这篇博客要主是加深自己对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


    每日一道理

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


    functionnullvb6.0 求素数按奇偶显示_c#

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

应聘者：JAVA

面试官：知道什么叫类么

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

面试官：知道什么是包?

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

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

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

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

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

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

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

面试官：知道多态么？

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

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

function和null

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