module1.bas

复数(Complex Number)的四则运算

Attribute VB_Name = "Module1"
Option Explicit
Type Complex
     r As Double
     i As Double
End Type

'两复数相加
Public Function Add(x As Complex, y As Complex) As Complex
     Add.r = x.r + y.r
     Add.i = x.i + y.i
End Function

'两复数相减
Public Function Subtract(x As Complex, y As Complex) As Complex
     Subtract.r = x.r - y.r
     Subtract.i = x.i - y.i
End Function

'两复数相乘
Public Function Multiply(x As Complex, y As Complex) As Complex
     Multiply.r = (x.r * y.r) - (x.i * y.i)
     Multiply.i = (x.r * y.i) + (x.i * y.r)
End Function

'两复数相除
Public Function Divide(x As Complex, y As Complex) As Complex
     Dim den As Double
     den = y.r * y.r + y.i * y.i
     Divide.r = (x.r * y.r + x.i * y.i) / den
     Divide.i = (x.i * y.r - x.r * y.i) / den
End Function

'某复数的平方
Public Function Square(x As Complex) As Complex
     Square.r = (x.r * x.r) - (x.i * x.i)
     Square.i = 2 * x.r * x.i
End Function

'某复数的Modulus
Public Function Modulus(x As Complex) As Double
     Modulus = Sqr(x.r * x.r + x.i * x.i)
End Function