新手问个问题啊，怎样把一个小数按位（包括小数点）存入一个数组？

Question

新手问个问题啊，怎样把一个小数按位（包括小数点）存入一个数组？

Answer 1

什么数据类型啊?可以考虑使用api函数copymemory

Answer 2

比如一个小数12.34存入数组a，a(1)=1,a(2)=2,a(3)=.,a(4)=3,a(5)=4……

Answer 3

Private Sub Command1_Click()
  Dim i As Double
  Dim k As Integer
  Dim a() As String * 1
  Dim istr As String
  i = 3.1415926
  istr = CStr(i)
  ReDim a(Len(istr) - 1) As String * 1
  For k = 1 To Len(istr)
      a(k - 1) = Mid(istr, k, 1)
  Next
End Sub