Aug082011
【VB】vb各种求1-100内的素数
郑晓
2011-08-08 23:46
已被围观552次收藏的几个求1-100内素数的方法…
不知道这个VB的代码在语法高亮插件里应该用什么语言表示。。。
1.
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then
Exit For
End If
Next j
If j >= Sqr(i) Then
Print i
End If
Next i
End Sub
Dim i, j As Integer
For i = 1 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then
Exit For
End If
Next j
If j >= Sqr(i) Then
Print i
End If
Next i
End Sub
2.
Private Sub Form_Click()
Dim i, j, b As Integer
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j > i - 1 Then Print i & " ";
Next
End Sub
Dim i, j, b As Integer
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j > i - 1 Then Print i & " ";
Next
End Sub
3.
Private Sub Form_Click()
Dim flag As Boolean, i As Integer
For i = 2 To 100
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then flag = False
Next
If flag Then Print i & " ";
Next
End Sub
Dim flag As Boolean, i As Integer
For i = 2 To 100
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then flag = False
Next
If flag Then Print i & " ";
Next
End Sub
顶一下
(0)
100%
踩一下
(0)
100%
本文固定链接: http://www.zh30.com/vb-vb-1-100-of-the-prime-requirements/ | 飘羽博客 | 郑晓的个人博客
【VB】vb各种求1-100内的素数：目前有2 条留言
发表评论
最活跃的读者
最新评论
TXT电子书下载:
好漂亮的机场
二逼草莓:
谢谢博主的分享！学习了~~~
漫步夜雨中:
:wink: 青岛还真不错，有
lpeng700:
非常好，很感谢、、
hemingway:
现在4位的.com域名已经绝迹- hemingway:
用了一个插件，我使用的是这篇文 
东阳高复:
很久就想学，没开始。惭愧- hemingway:
博主你的4位.com域名我很羡 - hemingway:
第一个方法不错，我把文章同步到 
乾坤微博:
没关系啊 也许我这个2级域名还
我喜欢这样的文章 收藏了
LS说的很对啊 哈哈哈