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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
