設(shè)計一個“偶數(shù)遷移”的VB程序界面如圖1所示，運行程序后，將在左邊列表框List1中產(chǎn)生10個兩位正整數(shù)，同時清空右邊的列表框List2中的內(nèi)容．單擊“Command1”按鈕，將列表框Listl中的所有偶數(shù)“遷移”到列表框List2中．


（1）要使命令按鈕Command1上顯示的文本改為“遷移”，可在其屬性窗口（圖2）中將屬性的屬性值修改為“遷移”．
（2）解決此問題的程序代碼如下：
Dim a（1To 10）As Integer'數(shù)組a用來存放隨機產(chǎn)生的10個兩位正整數(shù)
Dim i As Integer
Private Sub Form_Load （　?。?br />Randomize
List2．Clear
For i=1To 10
a（i）=Int（Rnd*90）+10
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （　　）
List1．Clear
For i=1To 10
If           ①Then
List2．AddItem Str（a（i））
Else
           ②
End If
Next i
End Sub
解決此問題主要采用的算法是

枚舉算法

枚舉算法

（填：枚舉算法/解析算法）
在程序①、②橫線處，填入適當(dāng)?shù)恼Z句或表達式，把程序補充完整：
程序①橫線處的語句為：

a（i） Mod 2=0

a（i） Mod 2=0

．
程序②橫線處的語句為：

List1．AddItem Str（a（i））．

List1．AddItem Str（a（i））．

．