实现显示各位数

一、实验目的

实现显示各位数

二、实验内容

    Dim numberLength asInteger

    Dim numbers() as Byte

   numberLength=Len(Text1.text)

    redimnumbers(numberLength)

    For index =1 tonumberLength

    Numbers(index-1)=mid(Text1.text)

    Next

    For index =1 tonumberLength

    Print Number(Index-1)

    Next

End sub

点击运行，即可。

三、心得体会

每个小问题都需要自己不断地探索研究，通过思考查阅知识解决问题才是学习之道。

四、遇到的问题及解决的方法

不了解编写的程序

通过百度资料得以解决

五、没有解决的问题

有些细节语言不能理解