有奖题 抓肇事逃逸司机 (当一回警察）[己结束]

jiangjuntx

[em01]

aci123

看内容了

zbhpass

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p>肯定没BB了</p>

zbhpass

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>k19841217m</i>在2008-5-30 9:20:00的发言：</b><br/><p>这个不用VBA 也行啊</p><p>&nbsp;</p><p>直接使用公式推断就可以了</p><p>32的平方是1024 第一个四位数</p><p>99的平方是9801最后一个四位数</p><p>前两位,后两位是相同,这个数肯定是偶数,</p><p>进行简单的推断就可以得出这个题的答案是</p><p>88 他的平方是 7744</p><p>&nbsp;</p></div><p>心算王</p>

qzxqzxqzx859

<p>7744</p><p>设为xxyy,则,平方数为z</p><p>1000x+100x+10y+y=z^2</p><p>有11(100x+y)=z^2,令z=11p</p><p>则9x+(x+y)/11=p^2</p><p>因为x+y&lt;19,所以9x+1=p^2,由x&lt;10,为正整数,所以不难得出,只有x=7能满足条件,倒推y=4</p>

quartz

<p>rivate Sub 寻找车号_Click()</p><p><br/>Dim i As Long, j As Long, a As Long, b As Long, c As Long, d As Long<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; For i = 32 To 99<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = i ^ 2<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a = Mid(j, 1, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; b = Mid(j, 2, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; c = Mid(j, 3, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d = Mid(j, 4, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; If a = b And c = d Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "车号是" &amp; j</p><p>End Sub</p>

gjx4700

<p>学习</p>

hams0n

我是新人 学习

千里马

它肯定是11的倍数

webking

游客，如果您要查看本帖隐藏内容请回复