按你上面说的我分析如下：
要是你在关了VB后，CPU还是老样子的话，可能就是你电脑的风扇有问题了
要是关了没有的话，我想不必我多说了，就是你在运行VB中，
可能你电脑有一点旧了吧，是以前的电脑，内存可能有一点小吧，
那你的VB可能是要求更高级诉配置的电脑，所以适应起来可能就使得CPU要多点大部了呀。。
祝你好运。
你用DoEvents CPU达到100%是正常的,因为你的MSComm1.InBufferCount清0不是>0,应该=0吧,像你那样就成了死循环了.
Do
DoEvents
Loop Until MSComm1.InBufferCount = 0
Getstring = MSComm1.Input
清理风扇
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024