[看清现实，坚定信念]敬爱的党组织： 从来没有一次像今天这样，系统而又深刻地走近中国特色社会主义；从未没有一次像今天这样，对坚持和发展中国特色社会主义有这么强烈的信念；从来没有一次像今天这样，学...+阅读

Private Sub Command1_Click()m = 0For i = 2 To 100If a(i) = True Then Print i: m = m + 1NextPrint ＂1-100中素数的个数：＂ & mEnd SubFunction a(ByVal j As Integer) As IntegerIf j = 2 Then a = True: Exit Functiona = FalseFor i = 2 To Sqr(j)If j Mod i = 0 Then Exit ForNextIf i >Sqr(j) Then a = TrueEnd Function参考一下……...

延伸阅读：

认清方向、看清道路敬爱的党组织： 递交入党申请书已经有两年多的时间了，成为入党积极分子也将近一年了，在这时候，我接受了一系列的入党积极分子再教育的活动，这让我更加地了解党，了解我们身边先进党...

2011年4月入党思想汇报《看清现实，坚定信念》敬爱的党组织： 从来没有一次像今天这样，系统而又深刻地走近“中国特色社会主义”；从未没有一次像今天这样，对坚持和发展中国特色社会主义有这么强烈的信念；从来没有一次像今天这...