Question

恳求vb高手帮助！写一段vb代码，实现三个textbox中单一数据相互组合，生成的3位数输入到一个textbox，谢谢

上图参考

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim a, b, c, i, j, k
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1)
For j = 1 To Len(Text2.Text)
b = Mid(Text2.Text, j, 1)
For k = 1 To Len(Text3.Text)
c = Mid(Text3.Text, k, 1)
Text4.Text = Text4.Text & a & b & c & " "
Next
Next
Next
Text4.Text = Text4.Text + vbCrLf
Text4.Text = Text4.Text + vbCrLf
End Sub

Answer 2

dim i,j,k,n
n=1
for i=1 to len(text1)
for j=1 to len(text2)
for k=1 to len(text3)
text4=text4+" "+mid(text1,i,1)+mid(text2,j,1)+mid(text3,k,1)
n=n+1
if n mod 5=0 then
text4=text4+vbcrlf
endif
next k
next j
next i

Answer 3

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
s1 = Mid(Text1.Text, i, 1)
For ii = 1 To Len(Text2.Text)
s2 = Mid(Text2.Text, ii, 1)
For iii = 1 To Len(Text3.Text)
s3 = Mid(Text3.Text, iii, 1)
Text4.Text = Text4.Text & vbCrLf & s1 & s2 & s3
Next
Next
Next
End Sub

添加text1……到……text4
添加一个command1
复制运行！

追问

你好！换行问题解决了，谢谢你！

追答

我的代码有换行了、、
你吧text4的 Text4.MultiLine = True Text4.ScrollBars = 2

Answer 4

你好!
每个文本框里到底允许输入几位数?
0-9，怎么可以12？34？

追问

你好！我想向里面输入0-9中的任意一个或多个，然后组合。谢谢你的关注，问题已经解决