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

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

作者: 郑晓分类: 编程基础发布于: 2011-08-08 23:46 浏览：52,678 评论(12)

2021.02.18 经批评，原提供的几段代码有错误，本人其实对VB也不了解。

以下是回复中更正的代码：

Private Sub Form_Click()
For i = 1 To 100 Step 1
     p = 0
   For j = 2 To Sqr(i) Step 1
     If i Mod j = 0 Then
       p = 1
     End If
   Next j
   If p = 0 Then
     Print i;
   End If
Next i
End Sub

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

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

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

哈哈：发表于 2021年02月18日 15:36[回复]

Private Sub Form_Click()
For i = 1 To 100 Step 1
p = 0
For j = 2 To Sqr(i) Step 1
If i Mod j = 0 Then
p = 1
End If
Next j
If p = 0 Then
Print i;
End If
Next i
End Sub

郑晓：发表于 2021年02月18日 15:43[回复]

感谢指正，N年前的代码了，当时对VB也不太了解

哈哈：发表于 2021年02月18日 16:10[回复]

嗯

哈哈：发表于 2021年02月18日 15:31[回复]

第一个定义出错,定义这样写的话只能定义到离as最近的那一个变量
第一个if语句也出错,如果i是4的时候if判断出来它不是素数,而你要输出的是素数
你不是要输出是素数的吗？

啊啊啊啊啊：发表于 2020年12月05日 19:09[回复]

真的三个都是错的

嘻哈：发表于 2020年04月18日 17:03[回复]

写程序最基本的都错了

哇哇：发表于 2019年06月02日 22:19[回复]

能详细的说明下吗

啊：发表于 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说的很对啊哈哈哈

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

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

发表评论