填空题

[原创]为了求得两个正整数的所有公约数，可以设计如图所示窗体，只要用户单击破“计算”按钮，求得的所有公约数就会在列表框List1中显示出来。其中，单击“计算”按钮将执行如下程序段：
　　
Private sub command1_click( )
Dim a,b As integer
Dim temp As integer
Dim i As integer
a=Val(Text1.text)
b=Val(Text2.text)
If a>b then
temp=a:a=b:b=temp
End if
For i=1 to a
If ________________then list1.additem i
Next i
End sub
（1）此程序主要采用了______算法。
（2）请在划线处填入合适的代码______。