在Visual FoxPro （VF） 中实现二进制转十进制，可以通过以下方法实现：

一、整数二进制转十进制

补齐位数：

若二进制数位数不足，需在前面补零（首位为0表示正数，首位为1表示负数）。

逐位计算：

将二进制数的每一位乘以2的对应幂次（从右往左，幂次从0开始递增），然后将结果相加。

示例代码：

```foxpro

FUNCTION BinaryToDecimal(binaryStr)

local binaryStr, result, i, power, temp

binaryStr = LTRIM(binaryStr) && 去除前导空格

IF LEFT(binaryStr, 1) = "1" THEN

binaryStr = "0" & binaryStr && 补齐位数

result = -1 * BinaryToDecimal(binaryStr) && 处理负数

ENDIF

power = 0

result = 0

DO WHILE LEN(binaryStr) >

0

temp = VAL(MID(binaryStr, LEN(binaryStr) - power, 1)) * POWER(2)

result = result + temp

power = power + 1

LEN(binaryStr) = LEN(binaryStr) - 1

ENDDO

RETURN result

ENDFUNCTION

```

二、小数二进制转十进制

逐位计算：

将二进制小数部分从左往右（即小数点后第一位为2⁻¹，第二位为2⁻²，依此类推），将每一位乘以对应的负幂次，然后将结果相加。

示例代码：

```foxpro

FUNCTION BinaryToDecimalDecimal(binaryStr)

local binaryStr, result, i, power, temp

binaryStr = LTRIM(binaryStr) && 去除前导空格

power = 0

result = 0

DO WHILE LEN(binaryStr) >

0

temp = VAL(MID(binaryStr, power + 1, 1)) * POWER(2, -power - 1)

result = result + temp

power = power + 1

LEN(binaryStr) = LEN(binaryStr) - 1

ENDDO

RETURN result

ENDFUNCTION

```

三、注意事项

负数处理：若二进制数以1开头，需先取反再计算（如11101011需转换为-00010100）。

输入验证：建议对输入的二进制字符串进行验证，确保仅包含0和1。

通过上述方法，你可以在VF中实现二进制与十进制之间的转换。