【正文】
, j) j = j 1 End If j = j + 1 Loop Until j Len(st1) p amp。 k End If Next n If = 0 Then 無升序平方數(shù) 39。所謂升序數(shù)是指從最高位到最低位的數(shù)字依次遞增的整數(shù)。例如1369就是一個(gè)升序平方數(shù)。err 0End SubPrivate Function sx(ByVal n As Integer) As Boolean Dim num() As Integer, k As Integer, p