vb 字母组合问题

题目

vb 字母组合问题
text1里有6个字母,ABCDEF
text2里有4个字母MNSY
一个命令按钮
要实现的是：首先把text1里的字母依次组合成两位的字母,中间要用空格分开.组成AB AC AD AE AF BC BD BE BF CD CE CF DE DF EF
然后把组出来的这些两位数组合,依次跟text2中的每一个字母组合一遍,形成ABM ABN ABS ABY ACM ACN ACS ACY,依次类推.
把结果输出到text3中.
这样的代码怎么写?

答案

Private Sub Command1_Click() For i = 1 To Len(Text1.Text) For j = i + 1 To Len(Text1.Text) For k = 1 To Len(Text2.Text) DoEvents Text3.Text = Text3.Text & Mid(Text1.Text, i, 1...