简易M或J的VB代码参考.docVIP

简易M或J的VB代码参考 VERSION 5.00 Begin VB.Form Form1 AutoRedraw = -1 True BackColor = H00FFFFFF Caption = Form1 ClientHeight = 12000 ClientLeft = 60 ClientTop = 450 ClientWidth = 12000 LinkTopic = Form1 ScaleHeight = 800 ScaleMode = 3 Pixel ScaleWidth = 800 StartUpPosition = 3 窗口缺省 Begin VB.Menu Right_m_menu Caption = 右键菜单 Visible = 0 False Begin VB.Menu cmd_End Caption = 结束(E) End End End Attribute VB_Name = Form1 Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Type Cnumber Cnumber_Real As Single Cnumber_Imagine As Single End Type Private Sub cmd_End_Click() End End Sub Private Function Cnumpow(a As Cnumber, N As Integer) As Cnumber Dim Cube As Cnumber, I As Integer If N = 1 Then Cnumpow = a Else Cube.Cnumber_Real = 1 Cube.Cnumber_Imagine = 0 For I = 1 To N Cube = Cmultiply(Cube, a) Next I Cnumpow = Cube End If End Function Private Function Cabs(b As Cnumber) As Single Cabs = Sqr(b.Cnumber_Imagine * b.Cnumber_Imagine + b.Cnumber_Real * b.Cnumber_Real) End Function Private Function Cplus(a As Cnumber, b As Cnumber) As Cnumber Cplus.Cnumber_Real = a.Cnumber_Real + b.Cnumber_Real Cplus.Cnumber_Imagine = a.Cnumber_Imagine + b.Cnumber_Imagine End Function Private Function Cdecrease(a As Cnumber, b As Cnumber) As Cnumber multiply Cdecrease.Cnumber_Real = a.Cnumber_Real - b.Cnumber_Real Cdecrease.Cnumber_Imagine = a.Cnumber_Imagine - b.Cnumber_Imagine End Function Private Function Cmultiply(a As Cnumber, b As Cnumber) As Cnumber Cmultiply.Cnumber_Real = a.Cnumber_Real * b.Cnumber_Real - a.Cnumber_Imagine * b.Cnumber_Imagine Cmultiply.Cnumber_Imagine = a.Cnumber_Real * b.Cnumber_Imagi