小明設計了一個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

．