朋友，请看一下重要启示！

ysr · 发表于 2023-2-12 22:28

0778554878034969630783136099224268002989297490055841307356311123927457202894454409696596318357560081887391604289300959052370284265788076737064249034373225641058041557147903110807736172204325564489777963956530016416340618742618696603828556231062825434491815254357911988339403282529024831697043830830748374608232870518333646655642966585695598773238849470942266480207109821635165754257001144292016551524194820275581375804023392242298559484290154499091802403573519420956529897206837904759475158706591200693608570591039522360901285829459123836381142820971288033642829017929466836691206737530358189984899732291219755208054556944174070669538979898059185849164454635002556447785701368513170206255089500706495117834421100177347977187592722641329720013833070694930603976137595422736566191732034204067356706899476467626931000228524616702705686162149004010565299806534898045476756352346573495698265489814561273863209241406753194486846602284793170916743725676046030603701955739180575336054568388286331211920759536193971980760063099973976565557537479765677033085286173736167674364461358418509516434996905917357058567509473877204437025374815538195737950333268046262346975231722411613008283987553097402627592016921073653233623326343285459194408406749498992262468807343496102385704014964130456680876042025164410765905557701988879422329823368471923718316051333042382673709405141005172142694251586648678747437144703527754892864631768402639155338684330018156799358366772592257128221621909657555206218730602378730259055362442783909053639865469691997215742854612209699528872124324067218423876328247180427039433192193255770067757489247600878955505410740513933623910469848757711811742445962034395994656076412337563641483142643825967000663877720614172126362549714832988082745223185819123659951078804276235597554917731734034539522897344048042383269756918710920889832180438364335950021654406167995038023659033165633378565392313109004096396141760602761392762767248333540559185551140697850044697603042607979669534569146458768472853552437220401561978272160778333148359921622136155610362786703324383481234576525526986468410137433059393869746690535588030078464886781370844908079340599788307765080508733705402085904036588734248997418279799723267060/3353420

ysr · 发表于 2023-2-13 00:28

本帖最后由 ysr 于 2023-2-12 16:35 编辑

Private Sub Command1_Click()
'判断小数是否循环的简单程序
Dim a, b
a = Trim(Text1)
b = InStr(Trim(a), ".")
c = Mid(a, Val(b + 1))
c = qqdl(Trim(c))
'去前导0的程序
d = Len(a)
h = Left(c, 5)
f = Split(a, h)
j = UBound(f)
If j > 1 Then
Text2 = "可能是循环的，循环节有" & j & " 个"
Else
Text2 = "不循环"
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

Private Function qqdl(sa As String) As String


  For I = 1 To Len(sa)
If Not Mid(sa, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(sa, I)
  If Len(strTmp) = 0 Then
  qqdl = "0"
  Else
qqdl = strTmp
End If
End Function

ysr · 发表于 2023-2-13 00:37

例如，输入：
0.0051813471502590673575129533678756476683937823834196891191709844559585492227979274611398963730569948186528497409326424870466321243523316062176165803108808290155440414507772020725388601036269430051813471502590673575129533678756476683937823834196891191709844559585492227979274611398963730569948186528497409326424870466321243523316062176165803108808290155440414507772020725388601036269430051813471502590673575129533678756476683937823834196891191709844559585492227979274611398963730569948186528497409326424870466321243523316062176165803108808290155440414507772020725388601036269430051813471502590673575129533678756476683937823834196891191709844559585492227979274611398963730569948186528497409326424870466321243523316062176165803108808290155440414507772020725388601036269430051813471502590673575129533678756476683937823834196891191709844559585492227979274611398963730569948186528497409326424870466321243523316062176165803108808290155440414507772020725388601036269430051813471502590673575129533678756476683
输出结果是：
可能是循环的，循环节有6 个

ysr · 发表于 2023-2-13 00:46

可能是循环的，循环节有6 个,可能的循环节是518134715025906735751295336787564766839378238341968911917098445595854922279792746113989637305699481865284974093264248704663212435233160621761658031088082901554404145077720207253886010362694300

ysr · 发表于 2023-2-13 00:47

Private Sub Command1_Click()
'判断小数是否循环的简单程序并输出可能的循环节
Dim a, b, ak()
a = Trim(Text1)
b = InStr(Trim(a), ".")
c = Mid(a, Val(b + 1))
c = qqdl(Trim(c))
'去前导0的程序
d = Len(a)
h = Left(c, 5)
f = Split(a, h)
J = UBound(f)
For k = 1 To J

   ReDim Preserve ak(1 To k)
   ak(k) = f(k)
Next
If J > 1 Then
Text2 = "可能是循环的，循环节有" & J & " 个,可能的循环节是" & h & ak(1)
Else
Text2 = "不循环"
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

Private Function qqdl(sa As String) As String


  For I = 1 To Len(sa)
If Not Mid(sa, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(sa, I)
  If Len(strTmp) = 0 Then
  qqdl = "0"
  Else
qqdl = strTmp
End If
End Function

ysr · 发表于 2023-2-14 14:39

本帖最后由 ysr 于 2023-2-14 07:37 编辑

Private Sub Command1_Click()
'验证素数的原根的程序
Dim A, B
A = Trim(Text1)
jB = Trim(Text2)
g = 10
c = MCC1(MPC(Trim(A), 1), Trim(jB))
J = qksmimo(Trim(g), Trim(jB), Trim(A))
j1 = qksmimo(Trim(g), Trim(c), Trim(A))
If J > 1 And j1 > 1 Then
Text3 = g & "是该素数的原根"
Else
Text3 = g & "不是原根"
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""

End Sub

ysr · 发表于 2023-2-14 16:31

程序用法举例如下：

框1：输入：29484081443918291801600463101876546530549424781270631658342853728313216934769556000297342398244699141404947881779779424408806582548005915062131296706953121226446340097

框2：输入：2305843009213693951

框3：输出：10是该素数的原根

ysr · 发表于 2023-2-17 09:38

Private Sub Command1_Click()
'验证素数的原根的程序
Dim a, b
a = Trim(Text1)
jB = Trim(Text2)
jB1 = qxdcm(2, 4)
g = 10
c = MCC1(MPC(Trim(a), 1), Trim(jB))
C1 = MCC1(MPC(Trim(a), 1), Trim(jB1))
j = qksmimo(Trim(g), Trim(jB), Trim(a))
j1 = qksmimo(Trim(g), Trim(c), Trim(a))
j2 = qksmimo(Trim(g), Trim(C1), Trim(a))
If j <> 1 And j1 <> 1 And j2 <> 1 Then
Text3 = g & "是该素数的原根,素数是 " & a
Else
Text3 = g & "不是原根"
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""

End Sub

Private Function qxdcm(sa As String, sb As String) As String

Dim a, b
a = sa: b = sb
If b = 1 Then
qxdcm = a
ElseIf b = 0 Then
qxdcm = 1
Else
a1 = a
Do While b > 1
s = Int(Log(b) / Log(2))
s1 = 0
Do While s1 < s
a = MbC(Trim(a), Trim(a))
s1 = s1 + 1
Loop
a2 = a
b = b - 2 ^ s
a = a1
If s2 > 0 Then
a3 = MbC(Trim(a3), Trim(a2))
Else
a3 = a2
End If
s2 = s2 + 1
Loop
If b = 1 Then
qxdcm = MbC(Trim(a3), Trim(a1))
Else
qxdcm = a3
End If

End If

End Function

ysr · 发表于 2023-2-26 19:29

本帖最后由 ysr 于 2023-2-26 11:48 编辑

/1550/1552/1554/1556/1558/1560/1562/1564/1566/1568/1570/1572/1574/1576/1578/1580/1582/1584/1586/1588
/1590/1592/1594/1596/1598/1600/1602/1604/1606/1610/1612/1614/1616/1618/1620/1622/1624/1626/1628/1630
/1632/1634/1636/1638/1640/1642/1644/1646/1648/1650/1652/1654/1656/1658/1660/1662/1666/1668/1672/1674
/1676/1678/1680/1682/1686/1690/1692/1694/1698/1702/1704/1710/1718/1722/1726/1728/1732/1734/1740/1744
/1746/1750/1752/1754/1762/1766/1776/1780/1806/1808/1830/1854/2000/3000/4000/6000/8888/66666/88888/100000
/123456

ysr · 发表于 2023-3-11 17:41

/1550/1552/1554/1556/1558/1560/1562/1564/1566/1568/1570/1572/1574/1576/1578/1580/1582/1584/1586/1588
/1590/1592/1594/1596/1598/1600/1602/1604/1606/1610/1612/1614/1616/1618/1620/1622/1624/1626/1628/1630
/1632/1634/1636/1638/1640/1642/1644/1646/1648/1650/1652/1654/1656/1658/1660/1662/1666/1668/1672/1674
/1676/1678/1680/1682/1686/1690/1692/1694/1698/1702/1704/1710/1718/1722/1726/1728/1732/1734/1740/1744
/1746/1750/1752/1754/1762/1766/1776/1780/1806/1808/1830/1854/2000/3000/4000/6000/8888/66666/88888/100000
/123456
这是目前知道的最大的素数间距。
缺少1608，1664，1670，1684，1688，1696，1700，1706，1708，1712~1716，1720，1724，1730，1736，1738，1742，1748，1756~1760，1764，1768~1774，1778，1782~1804，1810~18285，1832~1852，等

		自动登录	找回密码
密码			注册