当前位置:博客首页>>编程基础 >> 阅读正文

【VB】vb各种求1-100内的素数

作者: 郑晓 分类: 编程基础 发布于: 2011-08-08 23:46 浏览(18,192) 评论(5)


收藏的几个求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

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

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
↓↓微信扫码请我吃份正宗的烤面筋,可带劲啦↓↓
       

本文采用知识共享署名-非商业性使用 3.0 中国大陆许可协议进行许可,转载时请注明出处及相应链接。

本文永久链接: https://www.zh30.com/vb-vb-1-100-of-the-prime-requirements.html

【VB】vb各种求1-100内的素数:目前有5 条留言

用户评论头像 发表于 2018年05月18日 21:04[回复]

第一个编程在vb中根本没有办法运行,这些编程你运行了吗就发出来了

    用户评论头像 郑晓发表于 2018年05月18日 21:37[回复]

    需要我给你录个屏吗?

用户评论头像 快乐的镘头发表于 2016年06月15日 15:21[回复]

很赞~

用户评论头像 安吉农家乐发表于 2011年08月09日 11:32[回复]

我喜欢这样的文章 收藏了

用户评论头像 小娃撑小艇发表于 2011年08月09日 10:54[回复]

LS说的很对啊 哈哈哈