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

xhf2766

<p>哈哈，不会</p>

上善若水2008

<p>For Z = 33 To 100 Step 1</p><p>X = Z * Z</p><p>A = Mid$(X, 1, 1)<br/>B = Mid$(X, 2, 1)<br/>C = Mid$(X, 3, 1)<br/>D = Mid$(X, 4, 1)</p><p>If A = B And C = D Then</p><p>ActiveCell.FormulaR1C1 = X</p><p>End If</p><p>Next Z</p>

秋水留香

看看各位高手如何做的

king_gg

[em07]

annyjick

我的目的是来学习,并没有要赚取金币的意思

xy412

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

tinytree

Private Sub CommandButton1_Click()<br/>Dim i As Integer<br/>Dim j As Integer<br/>?For i = 32 To 99<br/>牋?j = i * i<br/>牋?If Mid(CStr(j), 1, 1) = Mid(CStr(j), 2, 1) And Mid(CStr(j), 3, 1) = Mid(CStr(j), 4, 1) Then<br/>牋牋牋?MsgBox "this number is " &amp; j<br/>牋牋牋?Exit Sub<br/>牋?End If<br/>?Next i<br/>End Sub<br/>

HYY514

<p>Sub ff()<br/>Dim n As Integer<br/>Dim i As Integer<br/>Dim j As Integer<br/>Dim l As Integer<br/>Dim k As Integer</p><p>For i = 0 To 9<br/>For j = 0 To 9<br/>For l = 0 To 9<br/>For k = 0 To 9<br/>If i = j And l = k Then<br/>n = i &amp; j &amp; l &amp; k<br/>If Int(Sqr(n)) = Sqr(n) And n &gt; 0 Then MsgBox n: End<br/>End If<br/>Next k, l, j, i</p><p>End Sub<br/></p>

HYY514

Sub ff()<br/>Dim n%, i%, j%<br/>For i = 0 To 9<br/>For j = 0 To 9<br/>n = i &amp; i &amp; j &amp; j<br/>If Int(Sqr(n)) = Sqr(n) And n &gt; 0 Then MsgBox n: End<br/>Next j, i<br/>End Sub<br/>

lvxingong

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