解决此问题的相应程序如下: Private mand1_Click() Dim a As Integer, s As long, b As Integer, i As Integer For i = 0 To 9999 ① s = 310000 + i If s Mod 46 = 0 Then ② b = (s Mod 100) \ 10 If a = b Then Str(s) End If End If Next i End Sub (1)解决此问题的算法是________________。(选填:枚举算法或排序算法) 在程序①和②划线处,填入适当的语句或表达式,把程序补充完整: (2)程序中①划线处应填入__________________。 (3)程序中②划线处应填入__________________。