user_sthrb 发表于 2009-4-1 02:13:00

帮顶一下。

fuyongfuyong 发表于 2009-4-1 02:17:35

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 发表于 2009-4-1 02:17:45

学习一下，谢谢各位的分享！
页: 1 2 [3]
查看完整版本: 如何使用VBA实现分数加减效果