1. (2016·杭州模拟) 以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。

Private Sub Command1Click()

Dim i As Integer

Dim j As Integer

i = 1: j = 0

list1.clear

Do While i <= 1000

If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then

List1.AddItem i

    ①    

j = j + 1

End If

i = i + 1

Loop

Label1.Caption = Str(j)

End Sub

1. （1） 程序中①处应填入的代码是
3. （2） 程序运行结束后，变量i的值为