如何使用Excel VBA将二进制字符串转换为整数位数组

Question

我在使用Excel宏编码解决此问题时遇到了困难。 我的输入数据是二进制字符串'1110'。 需要提取二进制字符串并按顺序将二进制的每一位返回到数组中（作为整数位）。 请帮助我...非常感谢教练的帮助。

对于每个位= 1，该位的数组值= 2的幂。最后，将所有值加起来。 例：

输入= 1110（二进制字符串）存储到数组（i）中。 i = 3（输入的总位= 4）

Array (0) = 1^2 to the pwr of 0 = 1
Array (1) = 1^2 to the pwr of 1 = 2
Array (2) = 1^2 to the pwr of 2 = 4
Array (3) = 1^2 to the pwr of 3 = 8

返回的最终输出是所有数组列表的总和，在本例中为15

Answer 1

从我的头顶开始，无需测试，这将使您接近。

Dim bin as String

bin="1101"

Dim bits(Len(bin)) as Integer

Dim bitIndex as Integer

Dim sum as Integer
sum = 0
For bitIndex = 0 to Len(bin)-1
  bits(bitIndex) = CInt(Mid(bin,bitIndex+1, 1)) * (2 ^ bitIndex)
  Debug.Print bits(bitIndex)
  sum = sum + bits(bitIndex) 
Next

Debug.Print sum

Answer 2

您可以使用内置的Excel函数BIN2DEC（从分析工具库）获得最终答案。