急求VB 1.编写一个自定义函数过程，判断已知正整数是否为回文数2.用冒泡法排序书写一个自定义函数过程

Question

1，回文数就是顺读和倒读数字相同，个位数也是回文数
2，在窗体单击事件中随机产生20个四位正整数，并用该排序过程将他们排列大小。

我的不知道错在哪里？请指教~
感谢感谢~~

Answer 1

你把代码文本贴上来。追问

　　Private Function f() As Boolean
　　Dim i As Integer
　　b = Len(Str(Trim(Text1.Text)))
　　For i = 1 To b / 2
　　If Mid(Str(Trim(Text1.Text)), i, 1) Mid(Str(Trim(Text1.Text)), b - i + 1, 1) Then
　　f = False
　　Else
　　f = True
　　End If
　　Next i
　　End Function
　　

追答

Private Sub Command1_Click()
Print f()
End Sub
Private Function f() As Boolean
Dim i As Integer
Text1.Text = Trim(Text1.Text)
b = Len(Text1.Text)
f = False
For i = 1 To b / 2
If Mid(Text1.Text, i, 1) Mid(Text1.Text, b - i + 1, 1) Then Exit Function
Next i
f = True
End Function