在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中实现二进制与十进制之间的转换。