VBS为什么不弹出结果对话框？

代码如下：

dim s,a,b,c,d,e,f
s="最大公因数计算器"
a="请输入第一个数"
b="请输入第二个数"
c="结果："
d=inputbox(a,s)
e=inputbox(b,s)
if d/e=int(d/e) then
msgbox c&e
else
if e/d=int(e/d) then
msgbox c&d
else
do
f=d-1
if d/f=int(d/f) and e/f=int(e/f) then
msgbox c&f
exit do
end if
Loop
end if
end if

输入4、8这样的数还能弹出结果对话框，但输9、6就不行了，怎么解决？谢谢

if d mod e = 0 then
...
别的类似

这个 VBS 脚本用于计算两个输入数字的最大公因数，并在消息框中显示结果。修正后的脚本应该能够正确计算两个输入数字的最大公因数，并在消息框中显示结果。如果结果消息框仍然没有出现，可能是输入值或 Do 循环条件的问题。请再次检查输入值和 Do 循环内部的逻辑，确保它们正确运行。

Dim s, a, b, c, d, e, f
s = "最大公因数计算器"
a = "请输入第一个数"
b = "请输入第二个数"
c = "结果："
d = InputBox(a, s)
e = InputBox(b, s)
If d \ e = d / e Then
    MsgBox c & e
ElseIf e \ d = e / d Then
    MsgBox c & d
Else
    Do
        f = d - 1
        If d \ f = d / f And e \ f = e / f Then
            MsgBox c & f
            Exit Do
        End If
        Loop
End If