本题需要做大手术。如果我猜的不错的话，你是相求最大公因子和最小公倍数把。你题目也不说清楚，别人很难帮助你的。幸亏我一眼看穿你的算法了，否则没有办法帮助你了。按照如下程序做就可以了。Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim n As Integer
a = InputBox("输入a的值")
b = InputBox("输入b的值")
If ab Then
a = c: b = d
ElseIf a < b Then
a = d: b = c这里错了c和d默认是0，所以无论a，b谁大，经过这一步后四个变量都变成0了...
