VB找回文數

Private Sub Command1_Click() '第壹問

Dim I As Long

Cls

For I = 1 To 1000

If HWS(I + 2013) Then Print I

Next I

End Sub

Private Sub Command2_Click() '第二問

Dim I As Long

Cls

For I = 1 To 1000

If HWS(I + 2013) And HWS(I) Then Print I

Next I

End Sub

Private Function HWS(N As Long) As Boolean '判斷回文數的函數

If StrReverse(CStr(N)) = CStr(N) Then HWS = True

End Function

StrReverse（）函數的作用是將字符串反轉，例如“abcd“反轉後為”dcba“。

上一篇:學習數控編程好還是plc編程好

下一篇:請問哪裏有西門子wincc視頻教程下載？