别人在我电脑安装的vb程序怎么能复制到 别的电脑中运行啊

串口号用不着去测试，直接在下拉组合框中选择其号码即可。
因为串口比较多，谁也不晓得你要用哪一对。
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "1": Combo1.AddItem "2"
Combo1.AddItem "3": Combo1.AddItem "4"
Combo1.AddItem "5": Combo1.AddItem "6"
Combo1.AddItem "7": Combo1.AddItem "8"
Combo1.AddItem "9": Combo1.AddItem "10"
'　……
End Sub

Private Sub 【打开】_Click() '　串口初始化
'　MSComm1.Settings = "9600, N, 8, 1"
'　表示串口比特率是9600bit/s，无奇偶校验，8位数据位，1个停止位。
'　【9600, N, 8, 1】放置在名称叫【参数】的文本框中。
On Error GoTo CW01
Dim cTS$
If MSComm1.PortOpen = False Then
MSComm1.CommPort = Val(Combo1.Text)
MSComm1.Settings = Trim(参数.Text)
MSComm1.InputLen = 0 '　字符长度
MSComm1.RThreshold = 1 '　读完缓冲
MSComm1.InputMode = 0 '　文本型数据
MSComm1.PortOpen = True '　打开串口
End If
If MSComm1.PortOpen = True Then
可以接收.Visible = True
停止接收.Visible = False
Timer1.Interval = Val(时间1.Text) '　毫秒
Timer2.Interval = Val(时间2.Text) '　毫秒
Else
可以接收.Visible = False
停止接收.Visible = False
Timer1.Interval = 0
End If
Exit Sub
CW01:
cTS = "Com" & Trim(Combo1.Text)
cTS = cTS & "：串口无效！"
MsgBox cTS, 0 + 64, "系统提示"
End Sub