用vb判断素数

私有子命令1_Click()

X = Text1。文本

对于i = 2至X - 1

如果X Mod i = 0，则

F = 1

为...退出

如果…就会结束

接下来我

如果F = 1，则

标签2。Caption = "您输入的数字是" &；X & amp"这个数不是质数。"

其他

标签2。Caption = "您输入的数字是" &；X & amp"这个数是质数。"

如果…就会结束

末端接头

扩展数据:

有无限个质数，也叫质数。大于1的自然数除了1和它本身不能被其他自然数整除，换句话说，这个数除了1和它本身没有其他因子；否则称为合数。

根据算术基本定理，每一个大于1的整数，不是它本身就是一个素数，就是一系列素数的乘积；而如果不考虑这些素数在乘积中的顺序，那么书写形式就是唯一的。最小的素数是2。

到目前为止，人们还没有找到一个求所有素数的公式。

2065438+2006年10月，65438+2006年发现了世界上最大的素数，长度为2233万位。如果用普通字号打印，其长度将超过65公里。