＊用一個command作出下列的程式碼(我做的跑不出來~而且還有錯~大大們幫個忙!!)
非常急!!!!!!!

Sub compare ( byref X as Integer , byref Y as Integer )
X = X-2
Y = Y+2
End sub

Dim a as Integer
Dim b as Integer
Dim count as Integer
Count = 0
a=100
B=-100
Do
Count = count + 1
Call compare (a,B)
‘Cls a , B , count
Loop while a <> B
Count = 0
X=100
Y=-100
Do
Count = count + 1
compare (a,B)
Print a , B , count
Loop while (a <> B)
Sub compare ( byref X as Integer , byref Y as Integer )
X = X-2 : Y = Y+2
End sub