多语言展示
当前在线:647今日阅读:86今日分享:14

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

一个数,除去个位是素数,除去百位是素数……并且各个位上没有零的数,就是超级素数。
工具/原料
1

联想2020

2

Win11

方法/步骤
1

启动VB6.0,新建一个标准exe工程。

2

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

3

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

4

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

5

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

6

按F5运行测试。(想学更多经典算法可以点击关注。如果觉得对您有帮助,请动动手指点下赞吧,谢谢哦。)

注意事项

任何一个超级素数都是素数

推荐信息