判斷素數(shù)的vb程序代碼？大一vb中如何求素數(shù)?求代碼？一個素數(shù)，從最高階去掉一位，兩位如果我們得到所有素數(shù)，并且每個數(shù)都不是零，那么它被稱為超級素數(shù)。Private Sub Command1uClic

判斷素數(shù)的vb程序代碼？

大一vb中如何求素數(shù)?求代碼？

一個素數(shù)，從最高階去掉一位，兩位如果我們得到所有素數(shù)，并且每個數(shù)都不是零，那么它被稱為超級素數(shù)。Private Sub Command1uClick（）dim n as long，ISS as Boolean n=Val（InputBox（“輸入數(shù)字以確定它是否是超級素數(shù)：”），如果instr（STR（n），“0”），那么msgbox“這個數(shù)字不是超級素數(shù)！“Exit sub end if do if not issushu（n）then msgbox”這個數(shù)字不是超級素數(shù)！“退出sub end if n=n10 loop until n=0 msgbox”這個數(shù)字是一個超級素數(shù)！“結(jié)束子私有函數(shù)IsSuShu（nub As Long）作為布爾值Dim i As Long For i=2 To nub-1 If（nub Mod i）=0則IsSuShu=False退出函數(shù)End If Next i IsSuShu=TrueEnd函數(shù)