计算1-100之间有多少个质数

兰色幻想

<br /><br /><P>要求：用公式计算1-100之间有多少个质数？（被它自已和1整除）</P>
<P>&nbsp;</P>
<DIV align=right><FONT color=#000066>[此贴子已经被作者于2008-2-16 17:52:10编辑过]</FONT></DIV>

hai

<p>不太了解题意!</p>[em04]

喵喵

[em06]100内不用公式也知道是25个。。。

jwgzs

<p>Sub dz()<br/>Dim xNum(100)<br/>For i = 2 To 100<br/>&nbsp; For j = 3 To 33<br/>&nbsp;&nbsp;&nbsp; If i &lt;&gt; j And Int(i / j) = i / j Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xNum(i) = i<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; If xNum(i) = 0 Then<br/>&nbsp;&nbsp;&nbsp; Range("a" &amp; i) = i<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next<br/>End Sub</p><p>解法不太好。</p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>jwgzs</i>在2008-2-16 6:52:00的发言：</b><br/><p>Sub dz()<br/>Dim xNum(100)<br/>For i = 2 To 100<br/>&nbsp; For j = 3 To 33<br/>&nbsp;&nbsp;&nbsp; If i &lt;&gt; j And Int(i / j) = i / j Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xNum(i) = i<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; If xNum(i) = 0 Then<br/>&nbsp;&nbsp;&nbsp; Range("a" &amp; i) = i<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next<br/>End Sub</p><p>解法不太好。</p></div><p></p>要求是公式,不是VBA

uranus1997

<p>=SUM(IF(MMULT((MOD(ROW(2:100),TRANSPOSE(ROW(2:100)))=0)*1,(ROW(2:100)&gt;0)*1)=1,1))+1</p><p>ctrl+alt+enter 三键结束</p>

[此贴子已经被作者于2008-2-16 17:04:20编辑过]

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>uranus1997</i>在2008-2-16 17:03:00的发言：</b><br/><p>=SUM(IF(MMULT((MOD(ROW(2:100),TRANSPOSE(ROW(2:100)))=0)*1,(ROW(2:100)&gt;0)*1)=1,1))+1</p><p>ctrl+alt+enter 三键结束</p><br/></div><p></p><p>&nbsp;</p><p>喵喵,利害[em17]</p><p>公式再简化一些:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =SUM(IF(MMULT((MOD(ROW(2:100),COLUMN(B1:CV1))=0)*1,(ROW(2:100)&gt;0)*1)=1,1))+1</p>

[此贴子已经被作者于2008-2-16 17:56:09编辑过]

uranus1997

呃。。我是懒得算第100列是啥[em04]