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

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

作者: 郑晓 分类: 编程基础 发布于: 2011-08-08 23:46 浏览:47,205 评论(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说的很对啊 哈哈哈