vb分数类和向量类之间运算程序.docVIP

vb分数类和向量类之间运算程序 ■分数类的运算 ▲分数类的类模块代谢 Private a, b 分数类的成员变量 Public Function fgcd(a, b) 求最大公约数 Dim c, x, y If a 0 And b 0 Then x = Abs(a): y = Abs(b) While y 0 c = x - y * Int(x / y): x = y: y = c Wend fgcd = x ElseIf a = 0 And b 0 Then fgcd = Abs(b) ElseIf a 0 And b = 0 Then fgcd = Abs(a) ElseIf a = 0 And b = 0 Then fgcd = 0 Else End If End Function Public Sub cset(x, y) 分数类的构造函数1(两个整数转换成分数) a = x: b = y End Sub Public Function cshow() 显示分数 If a * b 0 Then cshow = Abs(a) / fgcd(Abs(a), Abs(b)) / Abs(b) / fgcd(Abs(a), Abs(b)) ElseIf a * b 0 Then cshow = - Abs(a) / fgcd(Abs(a), Abs(b)) / Abs(b) / fgcd(Abs(a), Abs(b)) ElseIf a * b = 0 Then cshow = 0/1 Else End If End Function Public Function re(x) 返回成员变量 If x = 1 Then re = a ElseIf x = 2 Then re = b Else End If End Function Public Sub cset1(s) 分数类的构造函数2(文本转换成分数) If dec(s, /) 0 Then a = Val(dtxt(s, /, 1)): b = Val(dtxt(s, /, 2)) Else a = Val(s): b = 1 End If End Sub ▲窗体运算代码 Private Sub Cmdys_Click() 命令单击按钮 Dim i, cl1 As New Class1, cl2 As New Class1, cl3 As New Class1, n For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then Exit For Next i i = i + 1: cl1.cset1 Text1.Text: cl2.cset1 Text2.Text If i = 1 Then Set cl3 = fadd(cl1, cl2): Label1.Caption = cl3.cshow ElseIf i = 2 Then Set cl3 = fsub(cl1, cl2): Label1.Caption = cl3.cshow ElseIf i = 3 Then Set cl3 = ftim(cl1, cl2): Label1.Caption = cl3.cshow ElseIf i = 4 Then Set cl3 = fdiv(cl1, cl2): Label1.Caption = cl3.cshow ElseIf i = 5 Then n = Val(Text2.Text): Set cl3 = fpow(cl1, n): Label1.Caption = cl3.cshow Else End If End Sub Private Sub Form_Load() 窗体加载 Dim i For i = 1 To 5 Combo1.AddItem Choose(i, +, -, *, /, ^) Next i Combo1.Text = + End Sub Public Function fadd(cl1 As Class1, cl2 As Class1) As Class1 分数类加法 Dim cl As New Class1 Call cl.cset(cl1.re(1) * cl2.re(2) + cl1.re(2) * cl2.re(1), cl1.re(2) * cl2.re(2)) Set fadd = cl: Set cl = Nothing End Function Public Function fsub(cl1 As Class1, cl2 As Class1) As Class1 分数类减法