vb字节转浮点数的例程,可以直接使用. Private Sub Command1_Click() 'On Error Resume Next '无报错处理 Dim BB(0 To 3) As Byte Dim se As Single BB(0) = Text1.Text BB(1) = Text2.Text BB(2) = Text3.Text BB(3) = Text4.Text