mainmodule.bas

科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全部的源代码

Attribute VB_Name = "MainModule"
Sub Main()
    Dim cpxZ As Complex
    Dim dblM As Double
    Dim i As Integer, n As Integer
    Dim sComplex As String, sMsg As String
    Dim cpxZR() As Complex
        
    ' 乘法
    Dim cpxZ1 As Complex, cpxZ2 As Complex
    Dim sComplex1 As String, sComplex2 As String
    cpxZ1.x = 9
    cpxZ1.y = 11
    cpxZ2.x = 56
    cpxZ2.y = 3
    sComplex1 = "复数 " & cpxZ1.x & " + " & cpxZ1.y & "j"
    sComplex2 = "复数 " & cpxZ2.x & " + " & cpxZ2.y & "j"
    
    cpxZ = CMul(cpxZ1, cpxZ2)
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    
    sMsg = sComplex1 & "乘以" & sComplex2 & " 的积为 " & sComplex
    MsgBox sMsg
    
    ' 除法
    cpxZ1.x = 4
    cpxZ1.y = 8
    cpxZ2.x = 7
    cpxZ2.y = 9
    sComplex1 = "复数 " & cpxZ1.x & " + " & cpxZ1.y & "j"
    sComplex2 = "复数 " & cpxZ2.x & " + " & cpxZ2.y & "j"
    
    cpxZ = CDiv(cpxZ1, cpxZ2)
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    
    sMsg = sComplex1 & "除以" & sComplex2 & " 的商为 " & sComplex
    MsgBox sMsg
    
    ' 求模
    cpxZ.x = 55.6
    cpxZ.y = 68.2
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    dblM = CAbs(cpxZ)
    
    sMsg = sComplex & " 的模为 " & dblM
    MsgBox sMsg
    
    ' 求根
    cpxZ.x = 16
    cpxZ.y = 81
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    n = 4
    ReDim cpxZR(n) As Complex
    n = CRoot(cpxZ, n, cpxZR)
    
    sMsg = sComplex & " 的 " & n & " 个 " & n & " 次根为:" & Chr(13) & Chr(13)
    For i = 1 To n
        sMsg = sMsg & i & ": " & cpxZR(i).x & " + " & cpxZR(i).y & "j" & Chr(13)
    Next i
    MsgBox sMsg
    
    ' 求实幂指数
    cpxZ.x = 16
    cpxZ.y = 81
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxPow As Complex
    n = 4
    cpxPow = CPow(cpxZ, 3)
    sMsg = sComplex & " 的 " & n & " 次幂为:" & cpxPow.x & " + " & cpxPow.y & "j"
    MsgBox sMsg
    
    ' 求复幂指数
    cpxZ.x = 1
    cpxZ.y = 1
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxCPow As Complex
    Dim cpxN As Complex
    cpxN.x = 1
    cpxN.y = 1
    cpxCPow = CCPow(cpxZ, cpxN, 0)
    sMsg = sComplex & " 的 " & cpxN.x & " + " & cpxN.y & "j" & " 次幂为:" & cpxCPow.x & " + " & cpxCPow.y & "j"
    MsgBox sMsg
    
    ' 求自然对数
    cpxZ.x = 3
    cpxZ.y = 2
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxLn As Complex
    cpxLn = CLn(cpxZ)
    sMsg = sComplex & " 的自然对数为:" & cpxLn.x & " + " & cpxLn.y & "j"
    MsgBox sMsg
    
    ' 求正弦
    cpxZ.x = 5
    cpxZ.y = 7
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxSin As Complex
    cpxSin = CSin(cpxZ)
    sMsg = sComplex & " 的正弦为:" & cpxSin.x & " + " & cpxSin.y & "j"
    MsgBox sMsg

    ' 求余弦
    cpxZ.x = 0.75
    cpxZ.y = 0.25
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxCos As Complex
    cpxCos = CCos(cpxZ)
    sMsg = sComplex & " 的余弦为:" & cpxCos.x & " + " & cpxCos.y & "j"
    MsgBox sMsg

    ' 求正切
    cpxZ.x = 0.25
    cpxZ.y = 0.25
    sComplex = "复数 " & cpxZ.x & " + " & cpxZ.y & "j"
    Dim cpxTan As Complex
    cpxTan = CTan(cpxZ)
    sMsg = sComplex & " 的正切为:" & cpxTan.x & " + " & cpxTan.y & "j"
    MsgBox sMsg

End Sub