请问应怎样编码?

Question

用霍夫曼树的方法做啊，结果是：A--1;B--01;C--001;D--0000

Answer 1

dim i as integer,x as integer ,str as string
for i=1 to 10000
   x=RND
   x=int(x)*10
   select case x
          case 0 to 3
                str = str & "A"
          case 4 to 6
                str = str & "B"
          case 7 to 8 
                str = str & "C"
          case 9
                str =str & "D"
          end select
next