小明设计了一个VB程序解决如下数学趣味问题：已知三个正整数a,b,c.现有一个大于1的整数x,将其作为除数分别除a,b,c,得到的余数相同．求满足上述条件的x的最小值是多少？程序界面如图所示，在文本框text1中输入a的值，在文本框text2中输入b的值，在文本框text3中输入c的值，点击“求解”按钮，在2到三个数中的最小值之间，逐个检测是否存在符合条件的值．如果存在符合条件的值，则在文本框text4中输出结果，如果不存在，则在文本框text4中输出“找不到符合条件的值”．实现上述功能的程序如下，请在横线处填入合适的代码．
Private Sub Command1_Click （　　）
Dim a As Long,b As Long,c As Long
Dim d As Long,min As Long
'处理3个输入数据，并求出3个数的最小值
a=Val（Text1．Text）
b=Val（Text2．Text）
c=Val（Text3．Text）
min=①
'在2到三个数中的最小值之间，逐个检测
是否存在符合条件的值
d=2
x=0
Do While d＜=min And x=0
If ISOK（a,b,c,d） Then x=d
②
Loop
If x=0Then
Text4．Text=“找不到符合条件的值“
Else
Text4．Text=Str（x）
End If
End Sub
'求三个数的最小值
Public Function GetMin（x As Long,y As Long,z As Long） As Long
If x＞y Then GetMin=y Else GetMin=x
If z＜GetMin Then GetMin=z
End Function
'判断前3个参数除第4参数的余数是否都相等
Public Function ISOK（x As Long,y As Long,z As Long,cs As Long） As Boolean
③
If x Mod cs＜＞y Mod cs Then ISOK=False
If x Mod cs＜＞z Mod cs Then ISOK=False
If y Mod cs＜＞y Mod cs Then ISOK=False
End Function
程序横线处应填入的代码是：
①

GetMin（a,b,c）

GetMin（a,b,c）

②

d=d+1

d=d+1

③

ISOK=True

ISOK=True

．