1.編寫一個自定義函數過程,判斷已知正整數是否爲迴文數2.用冒泡法排序書寫一個自定義函數過程

題目：

1.編寫一個自定義函數過程,判斷已知正整數是否爲迴文數2.用冒泡法排序書寫一個自定義函數過程
1,迴文數就是順讀和倒讀數字相同,個位數也是迴文數
2,在窗體單擊事件中隨機產生20個四位正整數,並用該排序過程將他們排列大小.

請指教~

解答：

你把代碼文本貼上來.
再問： 　　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