小弟快答辩了，但不知道这段程序什么意思，大家帮我翻一下，最好逐字逐句

是关于电压的




Private Sub Command1_Click()            
Dim  powerdelay&
Dim  setvoltage!,buf$,buflen%
PowerDelay  =50
setVoltage   =val(Text1.text)
if  setvoltage =0   then 
Mscomm1.output =” c ” : Timedelay PowerDelay  
Mscomm1.output =” H ” : Timedelay PowerDelay  
Mscomm1.output =” A” : Timedelay PowerDelay  
Mscomm1.output =” N ” : Timedelay PowerDelay  
Mscomm1.output =” 1” : Timedelay PowerDelay   
Mscomm1.output =Chr(13)
TimeDelay  100
Mscomm1.output =” o ” : Timedelay PowerDelay  
Mscomm1.output =” u” : Timedelay PowerDelay  
Mscomm1.output =” t” : Timedelay PowerDelay  
Mscomm1.output =” o ” : Timedelay PowerDelay      
Mscomm1.output =Chr(13)
Exit  sub
End  if 
Mscomm1.output =” c ” : Timedelay PowerDelay  
Mscomm1.output =” H ” : Timedelay PowerDelay  
Mscomm1.output =” A” : Timedelay PowerDelay  
Mscomm1.output =” N ” : Timedelay PowerDelay  
Mscomm1.output =” 1” : Timedelay PowerDelay   
Mscomm1.output =Chr(13)
TimeDelay  100
Mscomm1.output =” v ” : Timedelay PowerDelay  
Mscomm1.output =” s” : Timedelay PowerDelay  
Mscomm1.output =” e” : Timedelay PowerDelay  
Mscomm1.output =” t ” : Timedelay PowerDelay   
Mscomm1.output =” 1 ” : Timedelay PowerDelay  
Mscomm1.output =”   ” : Timedelay PowerDelay 

Buf= Trim(Format(SetVoltage,”00.00”))
Buflen= Len(Buf)
For I =1 To Buflen
Mscomm1.Output=Mid(Buf, i , 1) : TimeDelay PowerDelay
Next  i
Mscomm1.output =Chr(13)
TimeDelay  100
Mscomm1.output =” o ” : Timedelay PowerDelay  
Mscomm1.output =” u” : Timedelay PowerDelay  
Mscomm1.output =” t” : Timedelay PowerDelay  
Mscomm1.output =” 1 ” : Timedelay PowerDelay  
Mscomm1.output =Chr(13)
End  sub                             
--------------------编程问答-------------------- 乖乖，不懂 --------------------编程问答-------------------- dddddddddddddddddd不要沉掉啊 --------------------编程问答-------------------- 往传输缓冲区写数据流。串口通讯 --------------------编程问答-------------------- 协议呢

补充：VB ,  基础类