辗转相除法：用辗转相除法求三个数的最大公约数。
程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数从a、b和c，单击"求最大公约数"按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。

辗转相除法具体为：设两数为a、b(a>b），求最大公约数(a，b）的步骤如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续r1除以r2，……如此下去，直到余数为0，这时的除数即为最大公约数（a，b）。
相应的Visual Basic 程序如下：
Function temp(num1 as Integer, num2 as Integer) as Integer
Dim r As Integer
if num1<num2 then
t=num1:num1=num2:num2=t
endif
r =" num1" Mod num2
Do While    (1)    
num1 =    (2)
num2 =    (3)
r =" num1" Mod num2
Loop
temp = num2
End Function
-------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x =    (4)
y =" temp(x," c) ‘调用函数TEMP
Text4.Text = Str(y)
End Sub
在（1）中应该填入（_____）
A、r =0    B、 r<>0 C、 r< 0 D、r>0
在（2）中应该填入（______）
A、num1   B、num2 C、 r     D、num1 mod num2
在（3）中应该填入（___）
A、num1    B、num2 C、 r     D、num1 mod num2
在（4）中应该填入（___）
A、temp(a, b) B 、temp(x, c)   C、temp(b, c) D、temp(x, y)