vb求回文数的算法

vb求回文数的算法

Private Sub Command1_Click() '回文数
For i = 100 To 200
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge = bai Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 9 = 0 Then Print
 End If

Next i
Print
  Print
  Print "geshu="; geshu
End Sub

private sub form_click() dim a as string a = inputbox("请输入一串数字，判断是否是回文：") print huiwen(a) end sub function huiwen(b as string) as string if b = strreverse(b) then huiwen = "是回文" else huiwen = "不是回文" end if end function