一、实验目的
实现显示各位数
二、实验内容
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
点击运行,即可。
三、心得体会
每个小问题都需要自己不断地探索研究,通过思考查阅知识解决问题才是学习之道。
四、遇到的问题及解决的方法
不了解编写的程序
通过百度资料得以解决
五、没有解决的问题
有些细节语言不能理解