用VB6.0找出四位数的超级素数

一个数,除去个位是素数,除去百位是素数……而且各个位上没有零的数,就是超等素数 。

需要这些哦
Visual Basic 6.0
电脑
方式/
1【用VB6.0找出四位数的超级素数】启动VB6.0,新建一个尺度exe工程 。

用VB6.0找出四位数的超级素数

文章插图

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

用VB6.0找出四位数的超级素数

文章插图

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

用VB6.0找出四位数的超级素数

文章插图

4假设有一个名为ss的函数过程进行挪用,从1000到9999一一查找 。 可以选择计数轮回For....Next语句 。

用VB6.0找出四位数的超级素数

文章插图

5编写ss函数过程 。 (具体过程请看代码中的绿色注释)

用VB6.0找出四位数的超级素数

文章插图

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

用VB6.0找出四位数的超级素数

文章插图

注重事项任何一个超等素数都是素数

以上内容就是用VB6.0找出四位数的超级素数的内容啦,希望对你有所帮助哦!

    推荐阅读