vb判断素数三种方法 判断素数的vb程序代码？

判断素数的vb程序代码？大一vb中如何求素数?求代码？一个素数，从最高阶去掉一位，两位如果我们得到所有素数，并且每个数都不是零，那么它被称为超级素数。Private Sub Command1uClic

判断素数的vb程序代码？

大一vb中如何求素数?求代码？

一个素数，从最高阶去掉一位，两位如果我们得到所有素数，并且每个数都不是零，那么它被称为超级素数。Private Sub Command1uClick（）dim n as long，ISS as Boolean n=Val（InputBox（“输入数字以确定它是否是超级素数：”），如果instr（STR（n），“0”），那么msgbox“这个数字不是超级素数！“Exit sub end if do if not issushu（n）then msgbox”这个数字不是超级素数！“退出sub end if n=n10 loop until n=0 msgbox”这个数字是一个超级素数！“结束子私有函数IsSuShu（nub As Long）作为布尔值Dim i As Long For i=2 To nub-1 If（nub Mod i）=0则IsSuShu=False退出函数End If Next i IsSuShu=TrueEnd函数