05骞寸�嬫睙鑻忚�＄畻鏈轰簩绾�VB涓婃満璇曢�樺強绛旀�?- 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

姹熻嫃鐪佺瓑绾ц�冭瘯浜岀骇

VB

涓婃満璇曞嵎

2005

骞达紙绉嬶級鍙婂弬鑰冪瓟妗?/p>

 

 

銆愰�樼�?/p>

1

銆戞湰绋嬪簭鐨勫姛鑳芥槸锛氭壘鍑?/p>

2~10000

涔嬮棿鍙�浠ヨ〃绀烘�?/p>

2

虏

-1

褰㈠紡鐨勭礌鏁?/p>

.

鏈�棰樼▼搴忕晫闈㈣�佸浘

1.  

绛旓細

 

 

婧愮▼搴忥細

  

Option Explicit  

Private Sub Command1_Click()  

Dim Exp As Integer, Idx As Integer  

For Idx = 2 To 10000  

    If Mersenne(Idx, Exp) Then  

        If Prime(Idx) Then  

            List1.AddItem Idx & " =" & 2 & "^" & Exp & "-1"  

        End If  

       

    End If  

  Exp = 0  

Next Idx  

End Sub  

Private Function Mersenne(N As Integer, Exp As Integer) As Boolean  

   Dim M   As Integer, Ex As Long  

   M = N  

   Ex = 1