vb源代码.txt

一个哈夫曼编码,我是新手,随便做个玩,请大家别笑话我.

'计数器
Public counts As Integer

'取对数函数 base为底数 ,value 为值
Static Function Logs(value As Double, base As Double)
    Logs = Log(value) / Log(base)
End Function

'输入指令频度
Private Sub cmdadd_Click()
    myvalue = InputBox("请输入指令的频度", "请输入指令的频度")
    If IsNull(myvalue) = False Then
        '判断是否为数字
        If IsNumeric(myvalue) = True And 0 < myvalue And myvalue < 1 Then
            List1.AddItem (myvalue)
            counts = counts + 1
            cmdadd.Caption = "输入第" & (counts + 1) & "条指令频度Pi"
        Else
            MsgBox ("请输入合法的指令频度")
        End If
    End If
End Sub

'计算平均指令长度
Private Sub cmdok_Click()
 '求合
 For i = 0 To List1.ListCount - 1
       Sum = Sum + Logs(List1.List(i), 2)
 Next
 '取负数
 Sum = -Sum
 param1.Text = Sum
 MsgBox ("平均指令长度为：" & Sum)
End Sub

Private Sub Form_Load()
    '初始化计数器
    counts = 0
End Sub