用VBScript求2个数的最大公约数

<script type="text/vbscript">
Dim a, b, c, d
a = 10
b = 35

c = Int(sqr(a))
d = Int(sqr(b))

If c < d Then c = d

For d = c To 1
If a Mod d = 0 And b Mod d = 0 Then
Exit For
End If
Next

msgbox d
</script>

dim a,b,c,d,temp
if a<b then
c=a
d=b
else
c=b
d=a 'C为小数,D为大数!
end if
while(c!=0){
temp=d mod c
d=c
c=temp
}
response.write d
外面的什么内容也不写了.呵呵.
学过一点儿C语言.