小明設(shè)計(jì)了一個(gè)VB程序解決如下數(shù)學(xué)趣味問題：
已知三個(gè)正整數(shù)a,b,c.
現(xiàn)有一個(gè)大于1的整數(shù)x,將其作為除數(shù)分別除a,b,c,得到的余數(shù)相同．
求滿足上述條件的x的最小值是多少？
程序界面如圖所示，在文本框Text1中輸入a的值，在文本框Text2中輸入b的值，在文本框Text3中輸入c的值，點(diǎn)擊“求解”按鈕，在2到三個(gè)數(shù)中的最小值之間，逐個(gè)檢測(cè)是否存在符合條件的值．如果存在符合條件的值，則在文本框Text4中輸出結(jié)果，結(jié)果不存在，則在文本框Text4中輸出“找不到符合條件的值”．

實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click（　　）
Dim a As Long,b As Long,c As Long
Dim d As Long,min As Long
'處理3個(gè)輸入數(shù)據(jù)，并求出3個(gè)數(shù)的最小值
a=Val（Text1．Text）
b=Val（Text2．Text）
c=Val（Text3．Text）
min=

（1）

（1）

'在2到三個(gè)數(shù)中的最小值之間，逐個(gè)檢測(cè)是否存在符合條件的值
d=2
x=0
Do While d＜=min And x=0
     If ISOK（a,b,c,d） Thenx=d

（2）

（2）

Loop
If x=0 Then
  Text4．Text=“找不到符合條件的值“
End If
End Sub
'求三個(gè)數(shù)的最小值
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.