请帮我看看下面这段代码的意思，谢谢啊！！

Question

请大家帮我仔细讲讲下面两段代码的含义，谢谢！
Public Function Word_Byte(S_Data As Long) As Variant
Dim t(2) As Byte
t(0) = CByte(S_Data Mod 256)
t(1) = CByte(S_Data \ 256)
Word_Byte = Array(t(0), t(1))
End Function
Public Function sbyte_word(strg() As Byte, Sit As Variant) As Long
  On Error GoTo sberexit
  sbyte_word = (strg(Sit) - 48) * 10 + (strg(Sit + 1) - 48)
  GoTo sbw_exit
sberexit:
    sbyte_word = 0
sbw_exit:
End Function

Answer 1

第一段代码是将S_Data中的数据除以256后,将余数和商转化为byte变量分别放到t(0)和t(1)中，然后返回此数组地址
第二段只是简单的计算，但具体是做什么的就不知道了!!!
:)

Answer 2

第一段我就不罗嗦了，同意楼上第二段……
你代码没贴全啊……看来是计算后赋值了，然后GOTO到哪里去了