下列VB程序用于求2個正整數(shù)（均小于10000的最大公約數(shù)）：
Private Sub Command1_Click （　?。?br />Dim x As Integer
Dim y As Integer
Dim z As Integer
x=Val（Text1．Text）
y=Val（Text2．Text）
z=gcd（a,b）

z=gcd（x,y）

z=gcd（x,y）

Text3．Text=Str（z）
End Sub
Function gcd（a As Integer,b As Integer） As Integer
Do While a＞b

a＜＞b

a＜＞b

If a＞b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
其中，劃線①，②部分有錯，應(yīng)改為

z=gcd（x,y）

z=gcd（x,y）

，

a＜＞b

a＜＞b

．