![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb如何在text1随便输入几个数字后,点击"对号入座"实现单个数字自动对号入座到text2(0)至text2(9)里.
1个回答
展开全部
很简单,
如果重复呢
sub test()
for i=1 to len(text1.text)
text2(val(mid(text1.text,i,1))) = mid(text1.text,i,1)
next
end sub
如果重复呢
sub test()
for i=1 to len(text1.text)
text2(val(mid(text1.text,i,1))) = mid(text1.text,i,1)
next
end sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询