大神救命，明天要答辩了，下面的这段程序还看不懂

使用工具注释 自己多看书 没人那么空帮你逐行注释 英文不懂就翻字典或百度查
' 接收触法事件
'-----------------------------------------------
'获取温度测量值并显示
'每发送一次指令，触发下面事件，返回数据串
Private Sub MSComm1_OnComm() '窗体级声明 过程 MSComm1_OnComm()
Dim Inbyte()As Byte ' 接收数据暂存
Dim bufferAs String ' 温度数据缓冲
Dimdatatemp2a, datatemp2b As String ' 两字节进制温度数据
Dimdatatemp2 As String ' 十六进制温度数据
Dim count AsInteger ' 接收个数计数
If num > Txttimes.Text - 1 Then ' 接收个数判断
Timer1.Enabled = False ' 接收完毕
Shpstate.FillColor = &H80FF& 'Shpstate.FillColor = &H80FF&
Exit Sub '退出 过程
End If '结束 如果
'读取仪表返回数据串
Select CaseMSComm1.CommEvent '选择 CaseMSComm1.CommEvent
CasecomEvReceive 'CasecomEvReceive
count= MSComm1.InBufferCount ' 接收温度数据个数，两字节，低位在前
Inbyte = MSComm1.Input ' 接收温度数据
If count <> 2 Then Exit Sub ' 不是两字节，表示接收错误，跳出程序
counter = counter + 1 ' 基数器加1
For i = LBound(Inbyte) To UBound(Inbyte) ' 把接收的数据安十六进制格式放入缓冲中
buffer= buffer + Hex(Inbyte(i)) + Chr(32) 'buffer = buffer + 转成十六进制(Inbyte(i))+ 把Ascii转成对应字符(32)
Next i '下一个 i
End Select '结束 选择
'获取十进制测量数据
If Len(Trim(Mid(buffer, 1, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2)))= 1 则
datatemp(num) = Val("&H" & Mid(buffer, 3, 3) &Str("0") & Mid(buffer, 1, 2)) * 0.0625 'datatemp(num)= 转成数值("&H"连接 从指定位置取得指定数量字符(buffer, 3, 3)&Str("0")连接 从指定位置取得指定数量字符(buffer, 1, 2))* 0.0625
Else '否则
datatemp(num) = Val("&H" & Mid(buffer, 3, 3) &Mid(buffer, 1, 2)) * 0.0625 'datatemp(num)= 转成数值("&H"连接 从指定位置取得指定数量字符(buffer, 3, 3)&Mid(buffer, 1, 2))* 0.0625
End If '结束 如果
'获取十六进制测量数据
If Len(Trim(Mid(buffer, 1, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2)))= 1 则
datatemp2a = Str("0") & Trim(Mid(buffer, 1, 2)) 'datatemp2a = 转成带符号的数值("0")连接 去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2))
Else '否则
datatemp2a = Mid(buffer, 1, 2) 'datatemp2a = 从指定位置取得指定数量字符(buffer, 1, 2)
End If '结束 如果
If Len(Trim(Mid(buffer, 4, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 4, 2)))= 1 则
datatemp2b = Str("0") & Trim(Mid(buffer, 3, 2)) 'datatemp2b = 转成带符号的数值("0")连接 去除两边空格(从指定位置取得指定数量字符(buffer, 3, 2))
Else '否则
datatemp2b = Mid(buffer, 4, 2) 'datatemp2b = 从指定位置取得指定数量字符(buffer, 4, 2)
End If '结束 如果
datatemp2 =datatemp2a & " " & datatemp2b 'datatemp2 = datatemp2a 连接 " "连接 datatemp2b
'显示测量温度值
If counter =num + 1 Then ' If datatemp(num) <> 0 Then 不能显示零度,别的正常
Grid.Col= 1: Grid.Row = num + 1 'Grid.Col = 1: Grid.Row = num + 1
Grid.Text = Format$(datatemp(num), "0.0") 'Grid.文本 = Format$(datatemp(num), "0.0")
If counter > 13 Then Grid.TopRow = counter - 12 ' 控制滚动条的滚动
TempText= Format$(datatemp(num), "0.0") ' 10进制显示,保留一位小数
num =num + 1 'num = num + 1
Callcal ' 调用计算极值、平均值子程序
Calldraw ' 调用绘曲线过程
End If '结束 如果
End Sub '结束 过程
If Len(Trim(Mid(buffer, 1, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2)))= 1 则
datatemp(num) = Val("&H" & Mid(buffer, 3, 3) &Str("0") & Mid(buffer, 1, 2)) * 0.0625 'datatemp(num)= 转成数值("&H"连接 从指定位置取得指定数量字符(buffer, 3, 3)&Str("0")连接 从指定位置取得指定数量字符(buffer, 1, 2))* 0.0625
Else '否则
datatemp(num) = Val("&H" & Mid(buffer, 3, 3) &Mid(buffer, 1, 2)) * 0.0625 'datatemp(num)= 转成数值("&H"连接 从指定位置取得指定数量字符(buffer, 3, 3)&Mid(buffer, 1, 2))* 0.0625
End If '结束 如果
'获取十六进制测量数据
If Len(Trim(Mid(buffer, 1, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2)))= 1 则
datatemp2a = Str("0") & Trim(Mid(buffer, 1, 2)) 'datatemp2a = 转成带符号的数值("0")连接 去除两边空格(从指定位置取得指定数量字符(buffer, 1, 2))
Else '否则
datatemp2a = Mid(buffer, 1, 2) 'datatemp2a = 从指定位置取得指定数量字符(buffer, 1, 2)
End If '结束 如果
If Len(Trim(Mid(buffer, 4, 2))) = 1 Then '如果 取字符数目(去除两边空格(从指定位置取得指定数量字符(buffer, 4, 2)))= 1 则
datatemp2b = Str("0") & Trim(Mid(buffer, 3, 2)) 'datatemp2b = 转成带符号的数值("0")连接 去除两边空格(从指定位置取得指定数量字符(buffer, 3, 2))
Else '否则
datatemp2b = Mid(buffer, 4, 2) 'datatemp2b = 从指定位置取得指定数量字符(buffer, 4, 2)
End If '结束 如果
datatemp2 =datatemp2a & " " & datatemp2b 'datatemp2 = datatemp2a 连接 " "连接 datatemp2b