QBasic程序如下：
　　100 open "com1:4800,n,8,1" for random as #1
     110 print #1,"X0"
     120 input #1,B$
     130 print B$
帮帮忙，转成VB程序。

mscomm1.settings="4800,n,8,1"
mscomm1.portopen=true
mscomm1.output="X0"
dim B$
B$=mscomm1.input

天啊.这年头还有用QBasic语言呀.好久不见了,都忘的差不多了.