高手帮帮该下程序。。。。

我做的是基于VB与PLC的机械手监控系统 但是调试不通过 高手帮忙看下

Dim X As String
Dim D As String

Private Sub Combo1_click()

Select Case Combo1.Text
Case "连续操作"
X = 1

Case "单周期操作"
X = 2

End Select
End Sub

Private Sub Command1_Click()
Dim OutByte(0 To 32) As Byte
Dim ByteXor As Byte
Dim StrXor As String
Dim Data_Send As Integer
Dim Data_Send2 As String
Dim Temp() As String
Dim i As Integer, L As Integer

Data_Send = Val(X)
Data_Send2 = Hex(Data_Send)
ByteXor = 0

OutByte(0) = 103
OutByte(1) = 6 '写
OutByte(2) = Asc(0) '修改地址部分
OutByte(3) = Asc(2)
OutByte(4) = Asc(0)
OutByte(5) = Asc(8)
OutByte(6) = Asc(0)
OutByte(7) = Asc(0)
OutByte(8) = Asc(0)

程序高手帮帮我 JAVA高手讲解下该程序(我想读这专业) 程序高手帮忙下 电脑程序高手,帮帮我! 双击执行程序打不开,哪位高手帮帮小弟,我该怎么办啊? 高手指点，有如下程序 C程序高手来下 请问电脑程序高手下！ 高手来下.帮帮小弟 高手来下。。帮帮菜鸟