2、随机产生20个4位整数，找出回文数。输出回文数的个数及每个回文数，将回文数输出到文本框中，每3个数一行。若没有回文数，则输出相应信息。
3、随机产生30个3位整数，将其中3的倍数、5的倍数、同时为3与5的倍数、其他的数，分别输出到：list1、list2、list3、list4中。


2、编写程序，求：

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /> 1-1/22+1/333-1/4444......1/nnnnn..nn

Private Sub Command1_Click()
Dim i As Integer, j As String, k As Integer
Randomize
k = 0
Text1.Text = ""
For i = 0 To 19
j = CStr(1000 + Int(9000 * Rnd))
If j = StrReverse(j) Then
   k = k + 1
   Text1.Text = Text1.Text & j & " "
   If k Mod 3 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next
If k > 0 Then
Text1.Text = Text1.Text & vbCrLf & "回文个数为:" & CStr(k)
Else
Text1.Text = "没有回文数"
End If
End Sub

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = 0 To 29
j = 100 + Int(900 * Rnd)
If j Mod 3 = 0 Then
   List1.AddItem j
   If j Mod 5 = 0 Then
    List2.AddItem j
    List3.AddItem j
   End If
Else
   If j Mod 5 = 0 Then
    List2.AddItem j
   Else
    List4.AddItem j
   End If
End If
Next
End Sub