用VB6.0找出100以内的素数（质数）

工具/原料

• 联想2020
• Win11
• Visual Basic 6.0

方式/步骤

1. 1

   启动VB6.0，新建一个尺度exe工程。

   
2. 2

   在窗体上绘制一个号令按钮，名称为Command1。

   
3. 3

   双击号令按钮进入代码窗口。

   
4. 4

   假设有一个名为a的函数过程进行挪用，从1到100一一查找。可以选择计数轮回For....Next语句。

   
5. 5

   编写号令按钮的单击事务。（具体过程请看代码中的绿色注释）

   
6. 6

   按F5运行测试。（想学更多经典算法可以点击存眷。若是感觉对您有帮忙，请动脱手指点下赞吧，感谢哦。）

   END

注重事项

• aqr(n)中的sqr()不克不及省略，不然犯错。
• 1不是素数，可直接跳过。