如何使用VBA实现分数加减效果

user_sthrb

帮顶一下。

fuyongfuyong

Function gcd(ByVal a1 As Integer, ByVal b1 As Integer)
  Dim c As Integer
  Do
    c = a1 Mod b1: a1 = b1: b1 = c
  Loop Until b1 = 0
  gcd = a1
End Function
Private Sub Command2_Click()
  Text1 = : Text2 = : Text3 = : Text4 =
  Text1.SetFocus
End Sub

177140

学习一下，谢谢各位的分享！