速救vb编程,高手进来帮忙！！！

编程设定一个函数过程F(m)，对一个四位数m判断：已知该整数m，逆向排列(如：2468逆向排列为8642)获得另一个4位数，是它自身的倍数(2倍以上)。主调程序调用该函数，显示1000～9999中所有满足该条件的数。

Dim S1 As String
Dim S2 As String
Dim NUMBER As Integer
For i = 1000 To 9999
S1 = Str(i)
S2 = StrReverse(S1)
NUMBER = Int(S2)
If ((NUMBER Mod i) = 0) Then

Print NUMBER
End If
Next i

Dim S1 As String Dim S2 As String Dim NUMBER As Integer For I = 1000 To 9999 S1 = Str(I) S2 = StrReverse(S1) NUMBER = Int(S2) If ((NUMBER Mod I = 0) And (NUMBER / I) > 2) Then

Me.Print NUMBER End If Next I

Private Sub Command1_Click() For j = 1000 To 9999 Call F(j) Next End Sub

Public Sub F(m) Dim a For i = 4 To 1 Step -1 a = a + Mid(m, i, 1) Next If CInt(m) * 2 < CInt(a) Then List1.AddItem a End If

End Sub

Function F(M As Integer) As Boolean Dim T As Integer T = Val(StrReverse(M)) If T Mod M = 0 And T \ M >= 2 Then F = True Else F = False End If End Function

Private Sub Command1_Click() Me.AutoRedraw = True Dim I As Integer For I = 1000 To 9999 If F(I) Then Print I; Next End Sub