今天寫了一個程式需要函式返回陣列，看了別的網友的程式發現有bug，特此記錄一下

返回函式寫法

    Private Function Fun_Fp32ToByte(ByVal fp32 As Single) As Byte()
        Dim byt(3) As Byte
        byt = System.BitConverter.GetBytes(fp32)
        Debug.WriteLine("Gao      " & byt(3).ToString("X2"))
        Debug.WriteLine("ZhongGao " & byt(2).ToString("X2"))
        Debug.WriteLine("ZhongDi  " & byt(1).ToString("X2"))
        Debug.WriteLine("Di       " & byt(0).ToString("X2"))

        Return byt
    End Function
 

呼叫方法

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim tmp(3) As Byte
        tmp = Fun_Fp32ToByte(Fun_ByteToFp32(&HC2, &H54, &H80, &H0))
        For Each td As Byte In tmp
            Debug.WriteLine("陣列返回  " & td.ToString("X2"))
        Next

End Sub
 

輸出結果

Gao           C2 ZhongGao 54 ZhongDi    80 Di               00 陣列返回  00 陣列返回  80 陣列返回  54 陣列返回  C2