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

判斷素?cái)?shù)的vb程序代碼？

大一vb中如何求素?cái)?shù)?求代碼？

一個(gè)素?cái)?shù)，從最高階去掉一位，兩位如果我們得到所有素?cái)?shù)，并且每個(gè)數(shù)都不是零，那么它被稱為超級(jí)素?cái)?shù)。Private Sub Command1uClick（）dim n as long，ISS as Boolean n=Val（InputBox（“輸入數(shù)字以確定它是否是超級(jí)素?cái)?shù)：”），如果instr（STR（n），“0”），那么msgbox“這個(gè)數(shù)字不是超級(jí)素?cái)?shù)！“Exit sub end if do if not issushu（n）then msgbox”這個(gè)數(shù)字不是超級(jí)素?cái)?shù)！“退出sub end if n=n10 loop until n=0 msgbox”這個(gè)數(shù)字是一個(gè)超級(jí)素?cái)?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ù)