如附件图所示，程序在运行时，endif下面一句没有被输出，但是yp是有正常加1，除了那一句没有被输出，其他全部正常。在那一行加断点进行运行时，那一行会被输出。以前没有接触过VB，求问大佬们这是怎么回事，谢谢

end if前面的是满足条件的才输出，而end if后面的是外层循环的才输出，二者输出内容不一样，都不是全部输出。

内部循环结束以后跳到外部循环，应该是从endif下那一行开始，也就是说内部循环结束，然后输出那一句，然后才是yp加1吧，可是现在是内部循环结束，输出那一行没有反应，直接yp加1，然后又进到内循环

没有试验，观察你的程序，可能不是没有显示，是后面的内容覆盖或者说是替换掉了前面的内容，若要全部显示你得另设控件或者改为如下语句就不会替换掉了：
MSComm1.Output=MSComm1.Output & "#+x  1000#"

这句程序一旦输出，外部其他设备就会读取到然后进行动作，现在是外部设备一直没有关于这句的相关动作

根据题主描述“在那一行加断点进行运行时，那一行会被输出”，应该是没清缓冲导致的，加个延时或改成if语句里的样式看看，如下：
capture
Mysegmentecap 2
Mscomm1.Output = "#+X 1000#"

昨天加个延时没有用，然后刚才按照内循环的格式写，可以了

谢谢指导