UC知道如何用VB来实现以下功能 （数据处理）
来源：百度知道 编辑：UC知道 时间：2024/05/22 03:18:25
问题：在个、十、百、千位上分别给定一组数（即0—9中选）， 每组数的输入由用户通过相应的“COMMAND”输入，并显示在相应的Label上。接着通过命令，将这些数进行组合，成为不同的4位数。然后，在文本框中输出。每个四位数的个位、十位、百位、千位，就是与所给的一致。
例如：千 百 十 个
3 6 8 2
5 2 1 3
3 5 7
通过command1输入“35” label显示3、5 通过command2输入“623” label显示6、2、3……十位，个位同理。然后在下面的TEXT里输出这几个数的组合，如：3682、3683、3687、3612 、3613、3617、3652、3653、3657……以此类推~！！！还有，每组数的个数是不定的，由输入的数确定。
跪求该程序的VB编程~！！！先谢谢了~！
例如：千 百 十 个
3 6 8 2
5 2 1 3
3 5 7
通过command1输入“35” label显示3、5 通过command2输入“623” label显示6、2、3……十位，个位同理。然后在下面的TEXT里输出这几个数的组合，如：3682、3683、3687、3612 、3613、3617、3652、3653、3657……以此类推~！！！还有，每组数的个数是不定的，由输入的数确定。
跪求该程序的VB编程~！！！先谢谢了~！
dim i as string
dim p() as integer
i = StrReverse(format(inputbox("input","input number"),"0000"))
dim j as integer
for j = 0 to len(i))-1
redim preserve p(len(i)-1)
p(j) = mid(i,j+1,1)
next
p(0)就是个位，p(1)（如果有）就是十位………………随手写的 可能有小问题