為此，需要完成以下內容：
　　1、分別錄制各WAV文件：0,1,2,3,4,5,6,7,8,9,元,角,分,拾,佰,仟,萬,億,整
　　2、在工程中聲明兩個External 函數（Windows的API函數），用于發聲；
       　　Function boolean sndPlaySoundA (string SoundName, uint Flags) Library "WINMM.DLL"
       　　Function uint waveOutGetNumDevs () Library "WINMM.DLL"
　　3、新建一函數用于在程序中調用發聲：
       　　Function PlaySound(string as_filename,integer ai_option) returns integer

　　該函數的代碼如下：
      　　uint lui_numdevs
      　　lui_numdevs = WaveOutGetNumDevs()
     　　 If lui_numdevs > 0 Then
　　　  sndPlaySoundA(as_filename,ai_option)
　　　     return 1
    　　  Else
　　  return -1
　　      End If

　　4、新建一函數用于將小寫金額轉換成大寫金額：
      　　Function xx2dx(Decimal ls) returns string

　　代碼實現如下：
　　string dx_sz,dx_dw,str_int,str_dec,dx_str,fu,a,b,b2,c,d,result
　　long num_int,num_dec,len_int,i,a_int,pp

　　dx_sz = "零壹貳叁肆伍陸柒捌玖"
　　dx_dw = "萬仟佰拾億仟佰拾萬仟佰拾元"