前面兩張是題目，最后一張是我寫的，按下按鈕后沒反應，求大佬告知我哪錯了
uj5u.com熱心網友回復：
按F8跟蹤一遍,就知道了;uj5u.com熱心網友回復：
你這是隨機生成1次,而非窮舉,所以能不能出結果完全靠運氣;uj5u.com熱心網友回復：
不是特別難吧，下面是一個簡單點程式，估計是你需要點，1000 以內的平方逆序數對：
Dim a As Integer, b As Integer, c As Long, d As Long, C1 As String, D1 As String
Private Sub Command1_Click()
'1000 以內的平方逆序數對
a = 1000: b = 1000
For I = 1 To a
For J = I + 1 To a
c = I ^ 2: d = J ^ 2
C1 = CStr(c): D1 = CStr(d)
If StrReverse(C1) = D1 Then 'C1 的逆序與D1相同時，列印在螢屏上
Print I & " ^ 2 = " & c & Space(6) & J & " ^ 2 = " & d
End If
Next J
Next I
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10399.html
標籤：VB基礎類
下一篇：VB