Question

vb编写Function过程，判断数字是否是回文数。程序要求输入一系列数字，找出所有的回文数并显示在文本框中

自己编的，不知道哪错了，求高手指点。PS:用sub或function的其他方法解决也行。
Private Sub Command1_Click()
Dim x(5) As Long, a%, b%
For a = 1 To 5
x(a) = Val(InputBox("请输入整数"))
If x(a) < 10 Then
Text1.Text = Text1.Text & x(a) & " "
ElseIf x(a) >= 10 Then
Call fac(x(a), Len(x(a)))
End If
Next
End Sub

Function fac(x As Long, z%)
Dim m%, n%, i%
m = 1
n = z
If z Mod 2 = 1 Then
For i = 1 To ((z - 1) / 2)
If Mid(x, m, 1) = Mid(x, n, 1) Then
m = m + 1
n = n - 1
End If
Next
Text1.Text = Text1.Text & fac(x, z) & " "
End If
If z Mod 2 = 0 Then
For i = 1 To (z / 2)
If Mid(x, m, 1) = Mid(x, n, 1) Then
m = m + 1
n = n - 1
End If
Next
Text1.Text = Text1.Text & fac(x, z) & " "
End If
End Function





Answer 1

Private Sub Command1_Click()
Dim x As Long, a As Integer
For a = 1 To 5
x = Val(InputBox("请输入一个整数"))
If fac(x) Then Text1.Text = Text1.Text & x & " "
Next
End Sub

Function fac(x As Long) As Boolean
fac = (x = Val(StrReverse(x)))
End Function

怎么样，我这函数只用一行语句就解决了！原理就是把一个数左右反转，如果与原来的数相等，那么就是回文数。

追问

不行呐

你的command1加了end if后还是有点问题

追答

你的窗体中要放入一个Text1文本框
另外，我 If fac(x) Then Text1.Text = Text1.Text & x & " " 这一行并不是有错误，把它们写在同一行就无需 End If