编写程序代码:
双击命令按钮,输入:
Dim star as string
Star=text1.text
Text2.text=left(stra,1)
Text3.text=mid(stra,2,1)
Text4.text=right(stra,1)
双击命令按钮,输入:
Dim star as string
Star=text1.text
Text2.text=left(stra,1)
Text3.text=mid(stra,2,1)
Text4.text=right(stra,1)